CRYPT

Program uses random numbers lists stored in the calculator to encrypt text (using 3-digit key). Of course, you need to substitute characters for numbers. You can use the following 40-character table. This table was designed to use encoding czech text, so it doesn't contain Q,W letters. You can of cource make up your own one.

1 - A	6 - F	11 - K	16 - P	21 - V	26 - 2	31 - 7	36 - ?
2 - B	7 - G	12 - L	17 - R	22 - X	27 - 3	32 - 8	37 - CR
3 - C	8 - H	13 - M	18 - S	23 - Y	28 - 4	33 - 9	38 - acute accent
4 - D	9 - I	14 - N	19 - T	24 - Z	29 - 5	34 - .	39 - caron
5 - E	10 - J	15 - O	20 - U	25 - 1	30 - 6	35 - !	40 - space

Source code (247 B)


CLRT
PRINT"ENTER KEY!
INPUT K
CLRT
PRINT"EN-1 DECRYPT-2
E-3=>RAND
K=
STATx
INPUT A
LABEL 1
IF n>=0 GOTO 2
DATA RANDOM
GOTO 1
LABEL 2
CLRT
INPUT P
DATA 0,IPART P-n
IF 64<=ABS (πn-64 GOTO 1
PRINT"P= -----> .
P=1+40FPART (40-1(n+39+(3-2A)INT (39RANDOM+1
CLRT
PRINT P
WAIT
GOTO 1