| 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!)
|
