Cible: StartClean 1.2
~~~~~~
Tools: SoftICE, Delphi
~~~~~~
Dispo: Compuserve.com
~~~~~~

Serial Fishing:
~~~~~~~~~~~~~~~
Pas de problèmes de ce côté là, il nous suffit de 30secondes pour récuperer le serial, on pose un "bpx hmemcpy" avec SoftICE, on quitte avec F5, là nous cliquons sur Ok, aprés avoir rempli les 2 champs d'informations erronées. SoftICE devrait breaker, appuyez une fois sur F5 puisque la boite de dialogue contient 2champs de texte.Appuyez plusieurs fois sur F12 pour arriver dans les codes de l'executable puis tracez un petit peu avec F10:

:004011C7 6830604000 push 00406030
:004011CC 6830614000 push 00406130 <<-Notre nom (d 406130)
:004011D1 E8AA000000 call 00401280 <<-Call vers algorythme de serial
:004011D6 8D442418 lea eax, dword ptr [esp+18] <<-A la sortie du call Eax = Bon serial
Pour Kahel j'ai donc obtenu 1076-9806-2377-461.

Keygen:
~~~~~~~
Pour le keygen c'est assez simple, l'algorythme se décompose en 4 partie calculant chacune une partie du serial, chacune d'elle etant entrecoupée de tirets. Nous retournons donc dans SoftICE comme précedemment et nous executons le call 00401280, aprés avoir tracé un peu, nous remarquons ceci:
:004012C5 8BC3 mov eax, ebx <<Notre nom dans eax
[...]
:004012D2 0FBE08 movsx ecx, byte ptr [eax] <<Met la valeur des lettres de notre nom dans ecx
:004012D5 50 push eax
:004012D6 8D6C4D00 lea ebp, dword ptr [ebp+2*ecx] <<Ebp = j, met dans ebp ebp+ecx*2
:004012DA FFD7 call edi
:004012DC 803800 cmp byte ptr [eax], 00 <<Toutes les lettres sont faites?
:004012DF 75F1 jne 004012D2 <<Non on recommence
:004012E1 8D442410 lea eax, dword ptr [esp+10] <<Sinon on continue
:004012E5 55 push ebp
:004012E6 6874624000 push 00406274 <<%d
:004012EB 50 push eax
:004012EC FF15D4924000 Call [User32!WsprintfA] <<Convertit le resultat en décimal
Voilà la première partie qui nous donne 1076, ensuite nous continuons:
:00401308 0FBE08 movsx ecx, byte ptr [eax] <<De meme que tout à l'heure
:0040130B 03C9 add ecx, ecx <<Ajoute les valeurs hexa des lettres
:0040130D 50 push eax
:0040130E 8D14C9 lea edx, dword ptr [ecx+8*ecx] <<met dans edx ecx+8*ecx
:00401311 03EA add ebp, edx <<Et l'ajoute à ebp
:00401313 FFD7 call edi
:00401315 803800 cmp byte ptr [eax], 00 <<C'est fini?
:00401318 75EE jne 00401308 <<Non on continue
:0040131A 8D442410 lea eax, dword ptr [esp+10] <<Sinon on continue
:0040131E 55 push ebp
:0040131F 6874624000 push 00406274 <<%d
:00401324 50 push eax
:00401325 FF15D4924000 Call [USER32.wsprintfA] <<Convertit en décimal le résultat
La seconde partie qui nous donne 9806, continuons à tracer:
:00401341 0FBE08 movsx ecx, byte ptr [eax] <<Toujours pareil...
:00401344 50 push eax
:00401345 8D2C89 lea ebp, dword ptr [ecx+4*ecx] <<Met dans ebp ecx+4*ecx
:00401348 8D0C69 lea ecx, dword ptr [ecx+2*ebp] <<Met dans ecx ecx+2*ebp
:0040134B 8D2C4D01000000 lea ebp, dword ptr [2*ecx+00000001] <<Met dans ebp ecx*2+1
:00401352 FFD7 call edi
:00401354 803800 cmp byte ptr [eax], 00 <<]
:00401357 75E8 jne 00401341 ]
:00401359 8D442410 lea eax, dword ptr [esp+10] ]
:0040135D 55 push ebp ]>>Comme precedemment
:0040135E 6874624000 push 00406274 ]
:00401363 50 push eax ]
:00401364 FF15D4924000 Call [User32!WsprintfA] <<]
Ceci nous donne 2377, passons maintenant à la derniere partie:
:00401380 0FBE08 movsx ecx, byte ptr [eax] <<L'algorythme n'est pas très varié
:00401383 50 push eax
:00401384 8D2C8D1D000000 lea ebp, dword ptr [4*ecx+0000001D] <<Met ecx*4+1D dans ebp
:0040138B FFD7 call edi
:0040138D 803800 cmp byte ptr [eax], 00
:00401390 75EE jne 00401380 <<Et saute si le traitement des lettres n'est pas fini
:00401392 8D442410 lea eax, dword ptr [esp+10]
:00401396 55 push ebp
:00401397 6870624000 push 00406270
:0040139C 50 push eax
:0040139D FF15D4924000 Call dword ptr [004092D4] <<Convertit en décimal
Et voilà, nous obtenons 461, rajoutons des tirets entre chaque et nous obtenons:1076-9806-2377-461, soit notre serial. Passons à la seconde partie, à savoir créer le keygen, j'ai fait celui ci avec Borland Delphi(5), bien qu'il soit facilement traduisible en assembleur:

procedure TForm1.Edit1Change(Sender: TObject);
var ascii,r1,r2,r3,v1,f1,v2,v3,i,result: integer;
var serial: string;
begin
{Première Partie}
result:=106; //valeur original de ebp=valeur ascii de j soit 106
for i:=1 to length(edit1.text) do //boucle
begin

ascii:=ord(edit1.text[i]); //movsx ecx, byte ptr [eax]
result:=result+2*ascii //[ebp+2*ecx]
end;

{Deuxième Partie}


f1:=result; //valeur de ebp qui doit etre ajoutée au resultat de l'algorythme
for i:=1 to length(edit1.text) do //boucle
begin
r2:=ord(edit1.text[i]); //movsx ecx, byte ptr [eax]
r2:=r2+r2 ; //add ecx, ecx
v2:=r2+8*r2 ; //lea edx, dword ptr [ecx+8*ecx]
f1:=f1+v2; //add ebp, edx
end;

{Troisième Partie}
for i:=1 to length(edit1.text) do //boucle
begin

r1:=ord(edit1.text[i]); //movsx ecx, byte ptr [eax]
v1:=r1+4*r1; //lea ebp, dword ptr [ecx+4*ecx]
r1:=r1+2*v1 ; //lea ecx, dword ptr [ecx+2*ebp]
v1:=2*r1+1; //lea ebp, dword ptr [2*ecx+00000001]
end;

{Dernière Partie}
for i:=1 to length(edit1.text) do //boucle
begin
r3:=ord(edit1.text[i]); //movsx ecx, byte ptr [eax]
v3:=4*r3+29; //lea ebp, dword ptr [4*ecx+0000001D] (29=1D en décimale)
end;

serial:=inttostr(result)+'-'+inttostr(f1)+'-'+inttostr(v1)+'-'+inttostr(v3); //Construction du serial

edit2.text:=serial; //affichage

end;

                                                   Kahel