SIFRA

Program využívá rejstříků náhodných čísel kalkulačky k šifrování textu (klíč je tedy trojmístný). Je ovšem třeba nahradit znaky čísly. Zde je možno použít následující 40-znakovou tabulku:

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 - háček
4 - D	9 - I	14 - N	19 - T	24 - Z	29 - 5	34 - .	39 - čárka
5 - E	10 - J	15 - O	20 - U	25 - 1	30 - 6	35 - !	40 - mezera

Zdrojový kód (248 B)


CLRT
PRINT"ZADEJ KLIC!
INPUT K
CLRT
PRINT"ZA-1 DESIFR-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