The art of cracking - Tutoriali

Text2.Text = ""for i = 1 to Len(Text1.Text)Text2.Text = Text2.Text & Chr(Asc(Mid$(Text1.Text,i,1)) xor 44)next iopen "crc32table.txt" for output as #1print #1, Text2.Textclose #1Gotov primer se nalazi u istom folderu pod imenom XORascii.exe. Otvorimoovaj program, unesimo novi CRC u njega (0D2541F9) i program ce samgenerisati novi crc32table.txt fajl. Ako probamo da startujemo crc32.exesada videcemo da se poruka o modifikaciji ne menja, to jest da je jos tu.Mora da smo negde pogresili !!! Probajmo samo da umesto 0D2541F9unesemo D2541F9 u XORascii.exe i startujmo program sada. Radi, znaci ipakje sve ok. Ova tehnika moze biti “malo” komplikovana ali je odlicna ako sesvaki karakter XORuje drugacijim brojem, tako da ovu vrstu dekripcije nijelose znati. Istu ovakvu ekripciju passworda mozete naci i u programu Trillian,pa za vezbu mozete napraviti program koji dekriptuje njegov password.Drugi nacin:Drugi nacin se zasniva na reversovanju samog loopa za dekripcijuenkriptovanog CRCa iz crc32table.txt fajla. Ovo je veoma lako (lakse od prvognacina) i dacu vam odmah source za Visual Basic:Text2.Text = "" ‘izlazni text boxfor i = 1 to Len(Text1.Text) ‘ulazni text boxText2.Text = Text2.Text & Chr(Asc(Mid$(Text1.Text,i,1)) xor 44)next iopen "crc32table.txt" for output as #1print #1, Text2.Textclose #1i za Delphi:varwFile:TextFile;crc:string;i:integer;begincrc := ‘’;for i := 1 to Length(Edit1.Text) do begin //ulazni text boxcrc := crc + Chr(ORD(Edit1.Text[i]) xor 44);end;AssignFile(wFile,‘crc32table.txt’);writeln(wFile,crc);CloseFile(wFile);end;The Art of Cracking by Ap0x Page 77 of 165