1 REM Ins{nd av Bo Kullmar SYSOP <1789>    1986-06-02 21.01.06
2 ! **********************************************************************
3 ! Program          CHIFFER.BAC      Utg}va  1.0      1986-06-02
4 ! av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC806
9 ! Hemligt chiffer, ABC80 {gare g|re sig icke besv{r! M|jligtvis s} kan
10 ! de som har BASIC II till sin ABC80 tolka det hela.
11 ! 
12 ! En liten infofil finns med med namnet CHIFFER.INF. Den {r dock chiffrad
13 ! och dessutom {r det en bin{r fil. Om du dekrypterar den s} blir det en
14 ! textfil!
15 ! **********************************************************************
60 INTEGER : EXTEND 
100 DIM Rec$=253
1000 ! 
1010 INPUT 'V{lj kryptera eller dekryptera, K/D 'Svar$
1020 Krypto=(ASCII(Svar$) AND 223)=75
1030 Dekrypto=NOT Krypto
1040 INPUT 'Ange infil: 'Infil$
1050 INPUT 'Ange utfil: 'Utfil$
1060 ; : ; 'Ta det lungt, om det h{r kan ta tid!' : ; 
1070 OPEN Infil$ AS FILE 1
1080 PREPARE Utfil$ AS FILE 2
1090 ON ERROR GOTO 5000
2000 WHILE Krypto
2010   WHILE -1
2020     GET #1,Rec$ COUNT 253
2030     PUT #2,FNKryptorec$(Rec$)
2040   WEND 
2050 WEND 
3000 WHILE Dekrypto
3010   WHILE -1
3020     GET #1,Rec$ COUNT 253
3030     PUT #2,FNDekryptorec$(Rec$)
3040   WEND 
3050 WEND 
5000 IF ERRCODE<>38 ; 'Fel nr' ERRCODE
5010 END 
10000 DEF FNRnd
10010   ! *** Ber{knar ett slumptal mellan 1 och 127 ***
10020   RETURN INT(1+127*RND)
10030 FNEND 
10040 DEF FNKrypto(Chr) LOCAL T
10050   RETURN Chr+FNRnd
10060 FNEND 
10070 DEF FNDekrypto(Chr)
10080   RETURN Chr-FNRnd
10090 FNEND 
10100 DEF FNKryptorec$(I$) LOCAL I,In$=253
10110   I=1 : In$=I$
10120   WHILE I<LEN(In$)
10130     MID$(In$,I,1)=CHR$(FNKrypto(ASCII(MID$(In$,I,1))))
10140     I=I+1
10150   WEND 
10160   RETURN In$
10170 FNEND 
10180 DEF FNDekryptorec$(I$) LOCAL I,In$=253
10190   I=1 : In$=I$
10200   WHILE I<LEN(In$)
10210     MID$(In$,I,1)=CHR$(FNDekrypto(ASCII(MID$(In$,I,1))))
10220     I=I+1
10230   WEND 
10240   RETURN In$
10250 FNEND