![]() ![]() Decrypted: Pack my box with five dozen liquor jugs. Encrypted: Ufhp rd gtc bnym knaj itejs qnvztw ozlx. Output: Pack my box with five dozen liquor jugs. ![]() Plaintext$ = 'Pack my box with five dozen liquor jugs' PRINT plaintext$ key% = RND(25) cyphertext$ = FNcaesar(plaintext$, key%) PRINT cyphertext$ decyphered$ = FNcaesar(cyphertext$, 26-key%) PRINT decyphered$ END DEF FNcaesar(text$, key%) LOCAL I%, C% FOR I% = 1 TO LEN(text$) C% = ASC(MID$(text$,I%)) IF (C% AND &1F) = 1 AND (C% AND &1F).
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |