The Art of Reversing by Ap0x - Tutoriali.org

KeyGens & Smart Check #1
Do sada smo obradili keygenovanje programa preko Olly-a, a sada je
na redu Smart Check. Za potrebe ovog dela skinuo sam primer sa interneta,
on se nalazi ovde …\Casovi\Cas3\abexcrackme2.exe, slobodno ga ucitajte u SC i
pokrenite sa F5, kada se pojavi Abexov crackme unesite kao ime cracker a
kao serijski 111111, pritisnite [ Check ] i izaci ce MessageBox 'Nope, the
serial is wrong!'
Sada se u SCu pojavio [+]Click kao oznaka da smo mi kliknuli na dugme,
duplim klikom na [+]Click pojavljuje se ovo:
Len(VARIANT:String:"cracker") returns LONG:1242252
Len(VARIANT:String:"cracker") returns LONG:1242252
Integer (1) --> Long (1)
Mid(VARIANT:String:"cracker",long:1,VARIANT:Integer:1)
Asc(String:"c") returns Integer: 99
Hex(VARIANT:Integer:199)
Integer (2) --> Long (2)
Mid(VARIANT:String:"cracker",long:1,VARIANT:Integer:1)
Asc(String:"r") returns Integer: 114
Hex(VARIANT:Integer:214)
Integer (3) --> Long (3)
Mid(VARIANT:String:"cracker",long:1,VARIANT:Integer:1)
Asc(String:"a") returns Integer: 97
Hex(VARIANT:Integer:197)
Integer (4) --> Long (4)
Mid(VARIANT:String:"cracker",long:1,VARIANT:Integer:1)
Asc(String:"c") returns Integer: 99
Hex(VARIANT:Integer:199)
Na osnovu ovoga zakljucujemo da se serijski broj generise od prva 4 slova
imena. Za svako slovo se izvaja ASCII broj od koga se racuna Hex broj :) Ali
se za racunanje Hex broja dodaje jos 100 na ASCII vrednost svakog slova.
To izgleda ovako:
serial = ..... Hex(Asc(Mid$(name,1,1)) + 100)
Ali sta se dalje radi sa serijskim Da li se Hex brojevi sabiraju, mnoze, dele,
dodaju
Obelezimo MsgBox i idemo na View -> Show All Events da bi smo imali
detaljniji uvid u ono sto se desava. Sada vidimo ovo par redova iznad
MsgBox-a:
_VbaVarMove(VARIANT:String:"111111",.....) returns ....