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