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