| Bien, para ahorrar tiempo y complejidad
al tutorial, dirΘ que existe una rutina que conviente el
nick en mayusc·las. Asi pues, comencemos con nuestra
tarea. Entramos en Soft-Ice previo BPX HMEMCPY y seguimos con los pasos
reglamen- tarios que todos ya conocemos.
Ok!, Ya hemos llegado. Las direcciones que aqui se
mostrarßn son ficticias, solo para uso informativo.
Bien, nos encontramos con la rutina de craci≤n de
Serial:
49368B MOV ECX, [EBP-04] ; Almacena tu nick en registro EAX.
-------- MOVZX ECX,
BYTE PTR [EAX+ECX-01]; Almacena cada uno de los caracteres del
nick.
-------- IMUL ECX, ECX, 7B0; Multiplica y deja en Ecx, el valor de Ecx
* 1968 (el a±o de nacimiento de tu novia Mr.WhitE ????
muahahahahahahahahahahaha!!!!).
-------- JNO 49369D; Salta si no hay overflow.
-------- CALL 402DC4; Y sino se mete aki, algo hace (no soy
curioso, pero lo supongo, |o|).
49369D IMUL
ECX, EAX;
Valor inicial de EAX =1, es un contador.
-------- JNO 4936A7; Salta si no hay overflow.
-------- CALL 402DC4; Lo mismo de arriba !
4936A7 ADD
EBX, ECX; Suma
a EBX, valor inicial = AF48 = 8008, ECX.
En EBX se almacena lo que va a ser la 2║ parte del
serial, osease, el serial number. :)))))
-------- JNO 4936B0; Salta si no hay overflow.
-------- CALL 402DC4;
4936B0 INC
EAX;
Incrementamos el contador.
---------- DEC EDX; Decrementamos un segundo contador
(long. nick)
-------- JNZ 493688; Salta si no es 0, al inicio de la
rutina.
***************************************
Pos bueno, yastß, entendida la rutina que genera el
serial correcto, podemos hacer en cualquier lenguaje de
alto nivel el Keygen correspondiente a este programilla
Software. Solo hay que recordar que el NICK debe estar en
may·sculas y qye empieza por ANM-
Valga un sencillo ejemplo en VBasic, ok?, a lo bestia
y sin depurar. :-O
Private Sub
Command1_Click()
ebx# = 8008 ' valor
inicial de ebx
v# = 1968 ' valor
inicial 7B0 en Hexadecimal.
l = Len(Text1.Text)
' Longitud del nick
nick$ = UCase$(Text1.Text) ' Convertimos en may·sculas el nick
eax# = 1 ' valor
inicial del contador.
For x = 1 To l 'Iniciamos
un bucle contando el n·mero de caracteres.
ecx# =
Asc((Mid$(nick$, x, 1)))' almacenamos el valor ASCII de cada
caracter del nick. ecx#
= ecx# * v# ' Lo
multiplicamos por 1968 y lo dejamos donde estß, en ECX#.
ecx# = ecx#
* eax# ' Lo multiplicamos por el contador,
resultado en ECX#.
ebx# = ebx# + ecx# ' variable donde se va acumulando el
serial number.
eax# = eax#
+ 1 ' Incrementamos el contador.
Next '
siguienteeeeeee.....!!!!!!
Y he akis
el Serial Number para tu propio nick :
Text2.Text = "ANM-"
+ Trim$(Str$(ebx#))
End Sub
Y ya estß todo
hecho Newbies ;-). AstalaVista
*▒▒========-*-*-*-* P E R S O N A L G R E E T Z *-*-*-*-========▒▒*
A todos los Crackers del pasado, del presente y del futuro.
(En ezpecial a loz kabroneZ de WkT!)
|
