1 REM Ins{nt av: Sven Wickberg <1384> 1985-07-23 00.30.04 10 REM KRYPTOSW 85 07 14 SW 11 REM Kypterar/avkrypterar meddelanden 12 REM med f|rskjutningsmetoden. Om man 13 REM v{ljer SCRAMBLE anv{nds datorns 14 REM slumptalsgenerator f|r att villa 15 REM bort korten. 16 REM ------------------------------- 20 ; 'CHIFFRERA/AVL[SA (C/A)'; : INPUT K$ 50 ; 'Scramble (J/N) '; : INPUT W$ 60 IF W$='J' THEN S=1 : H=10 ELSE 75 70 ; 'Scramble-nyckel '; : INPUT T 75 FOR I=1 TO T : Z=RND : NEXT I 80 ; 'F|rskjutning '; : INPUT F 90 REM ------------------------------ 95 ; 'Skriv ditt meddelande (ENDAST VERSALER!):' 100 INPUTLINE A$ 110 ; 200 FOR I=1 TO LEN(A$)-2 300 X=ASC(MID$(A$,I,1)) 310 IF K$='A' IF X=32 THEN 600 : REM mellanrum bort 330 IF K$='A' GOSUB 790 ELSE GOSUB 890 500 B$=B$+CHR$(X) 600 NEXT I 610 REM ------------------------------- 620 REM klartext visas 650 IF K$='A' THEN ; B$ : END 680 REM ------------------------------- 690 REM krypterat meddelande uppdelas 695 REM i 5-grupper och visas 700 FOR I=1 TO LEN(B$) 710 J=J+1 : IF J=6 THEN J=1 : ; ' '; 720 ; MID$(B$,I,1); 750 NEXT I 760 END 770 REM ------------------------------ 790 REM avkryptering 795 IF S THEN G%=RND*H 800 X=X-F-G% 810 IF X<64 THEN X=X+30 : GOTO 810 815 IF X=64 THEN X=32 : REM mellanslag }ter 820 RETURN 870 REM ------------------------------ 890 REM kryptering 892 IF X=32 THEN X=64 : REM mellanslag byts mot @ 895 IF S THEN G%=RND*H 900 X=X+F+G% 910 IF X>93 THEN X=X-30 : GOTO 910 920 RETURN