The Art of Reversing by Ap0x - Tutoriali.org

Text2.Text = ""
for i = 1 to Len(Text1.Text)
Text2.Text = Text2.Text & Chr(Asc(Mid$(Text1.Text,i,1)) xor 44)
next i
open "crc32table.txt" for output as #1
print #1, Text2.Text
close #1
Gotov primer se nalazi u istom folderu pod imenom XORascii.exe. Otvorimo
ovaj program, unesimo novi CRC u njega (0D2541F9) i program ce sam
generisati novi crc32table.txt fajl. Ako probamo da startujemo crc32.exe
sada videcemo da se poruka o modifikaciji ne menja, to jest da je jos tu.
Mora da smo negde pogresili !!! Probajmo samo da umesto 0D2541F9
unesemo D2541F9 u XORascii.exe i startujmo program sada. Radi, znaci ipak
je sve ok. Ova tehnika moze biti “malo” komplikovana ali je odlicna ako se
svaki karakter XORuje drugacijim brojem, tako da ovu vrstu dekripcije nije
lose znati. Istu ovakvu enkripciju 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 dekripciju
enkriptovanog CRCa iz crc32table.txt fajla. Ovo je veoma lako (lakse od prvog
nacina) i dacu vam odmah source za Visual Basic:
Text2.Text = "" ‘izlazni text box
for i = 1 to Len(Text1.Text) ‘ulazni text box
Text2.Text = Text2.Text & Chr(Asc(Mid$(Text1.Text,i,1)) xor 44)
next i
open "crc32table.txt" for output as #1
print #1, Text2.Text
close #1
i za Delphi:
var
wFile:TextFile;
crc:string;
i:integer;
begin
crc := ‘’;
for i := 1 to Length(Edit1.Text) do begin //ulazni text box
crc := crc + Chr(ORD(Edit1.Text[i]) xor 44);
end;
AssignFile(wFile,‘crc32table.txt’);
writeln(wFile,crc);
CloseFile(wFile);
end;
The Art of Reversing by Ap0x Page 135 of 293