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