From: "Filip Drsek" <DRSEK@gymcheb.hiedu.cz>¢To: "All about Atari beast an' even more..." <Atari-l@cvtnw.upol.cz>¢Subject: Sifrovani souboru¢Date: Wed, 17 Dec 1997 15:19:32 MET-DST¢¢ Pokusim se zde popsat metodu sifrovani souboru na Atari 800/130.¢ Soubor je mozne sifrovat nejjednoduseji tak, ze kazdy jeho byte ¢zvysime o totez cislo a takto vznikle cislo pripadne jeste upravime ¢odectenim 256, aby se veslo do potrebneho rozsahu. Pri desifrovani od ¢kazdeho bytu odecitame tutez konstantu a opet upravujeme na potrebny ¢rozsah (+256 u zapornych cisel).¢ Takto sifrovany soubor se vsak da pomerne snadno rozlustit. Staci ¢vyzkouset postupne konstanty 1 az nejvyse 255, treba jen na cast ¢souboru. Pokud jde o spustitelny binarni soubor, staci najit takovou ¢konstantu, aby prvni dva byty byly desifrovany jako 255 a 255, coz je ¢poznavaci znameni tohoto typu souboru. U textoveho souboru by se ¢poznalo nalezeni spravne konstanty podle velkeho vyskytu pismen a ¢mezer a aspon castecne srozumitelnosti slov.¢ U nekterych pocitacu se da ovladat generator nahodnych cisel ¢(napriklad prikazem Randomize) tak, ze pro stejny zaklad ¢dostaneme vzdycky stejnou posloupnost cisel. Kazde nasledujici ¢nahodne cislo je vypocitano z predchoziho, neodecita se z zadneho ¢casovace jako u Atari. Na takovem pocitaci pak muzeme napsat ¢sifrovaci program, ktery k jednotlivym bytum souboru nepricita ¢konstantu, ale ruzna cisla z generatoru nahodnych cisel, spusteneho ¢od urciteho zakladu. Navic zakladu muze byt mnohem vic nez konstant, ¢takze takto sifrovany soubor uz se neda jen tak snadno rozlustit.¢ Ve svem postupu jsem jako generator nahodnych cisel pouzil ¢jednoduchy multiplikativni algoritmus. Nasledujici cislo se z ¢predchoziho vypocita jeho vynasobenim nejakou konstantou ¢(nejvhodnejsi je cislo 83) a naslednym odstranenim celociselne casti ¢tohoto soucinu. Vychozi hodnotu pro generator nahodnych cisel program ¢vypocita z hesla, ktere muze byt 2 az 10 znaku dlouhe a muze obsahovat ¢libovolne znaky krome Backspace, Return a CHR$(0), podle vzorce ¢R0=SQR(C/(128*D*(D+1))), kde C je soucet soucinu ASCII-kodu ¢jednotlivych znaku a jejich poradovych cisel a D je pocet znaku ¢hesla. Vyraz za lomitkem je navrzen tak, aby byl vzdycky vetsi nez ¢C, a odmocnina zvysuje pocet desetinnych mist v cisle.¢ Program muze vypadat napriklad takto:¢¢ 1 REM Sifrator¢ 2 H$(10),KH$(10),ZDROJ$(15),CIL$(15),SD$(1)¢ 3 PRINT "Zadejte heslo : ";:GOSUB 20¢ 4 H$=KH$¢ 5 PRINT "Kontrola hesla: ";:GOSUB 20¢ 6 IF H$<>KH$ THEN PRINT "Chyba pri zadavani hesla!":GOTO 3¢ 7 C=0:D=LEN(H$):FOR A=1 TO D:C=C+A*ASC(H$(A,A)):NEXT A:¢ R0=SQR(C/(128*D*(D+1))):R=R0¢ 8 PRINT "(S)ifrovat, nebo (D)esifrovat";:INPUT SD$¢ 9 IF SD$<>"S" AND SD$<>"D" THEN PRINT "S nebo D, prosim.":GOTO 8¢10 PRINT "Zdrojovy soubor";:INPUT ZDROJ$¢11 PRINT "Cilovy soubor ";:INPUT CIL$¢12 IF ZDROJ$=CIL$ THEN PRINT "Soubory musi byt ruzne!":GOTO 10¢13 OPEN #1,4,0,ZDROJ$:OPEN #2,8,0,CIL$:TRAP 15¢14 GET #1,A:A=A+((SD$="S")-(SD$="D"))*INT(256*R):A=A+256*(A<0)-256* ¢ (A>255):PUT #2,A:R=83*R-INT(83*R):GOTO 14¢15 CLOSE #1:CLOSE #2¢16 IF PEEK(195)=136 THEN PRINT "Hotovo!":END¢17 PRINT "Doslo k chybe ";PEEK(195):END¢20 REM Heslo¢21 KH$="":N=0:OPEN #3,4,0,"K:"¢22 GET #3,A:IF A=0 THEN 22¢23 IF A=126 OR A=155 THEN 25¢24 IF N<10 THEN PRINT "*";:N=N+1:KH$(LEN(KH$)+1)=CHR$(A):GOTO 22¢25 IF A=126 AND N>1 THEN PRINT CHR$(A);:N=N-1:KH$=KH$(1,N):GOTO 22¢26 IF A=126 AND N=1 THEN PRINT CHR$(A);:N=0:KH$="":GOTO 22¢27 IF A=155 AND N>1 THEN 29¢28 GOTO 22¢29 CLOSE #3:RETURN¢.¢
