Bueno ya que tuve un tiempo ustedes me disculparan
Serial: 57250-57250-24-24-LOL
Tutorial
Bueno les explicare un poco el crackme es por encima pero espero que lo entiendan
El crackme tiene protección antidebug asi que con el plugin del OllyDBG IsdebugPresent o hide debugger nos quitamos ese dolor de cabeza
Primero lo abrimos con el OllyDBG y vamos a las String buscamos las que nos interesan, doble click y paramos en la rutina del boton asi que subimos hasta el push ebp y ponemos un breakpoint, ahora corremos el crackme y digitamos asi
Click al boton y rompemos en el breakpoint traceamos con F8 hasta ver algo interesante...
En el camino vemos que toma nuestros numeros y letras ingresadas y al final de los 4 primeros text osea los numeros hace unas operaciones con ellos
hasta llegar a esta zona donde vemos estas 2 Call EDI
Cuando paramos en la primera call y entramos vamos traceando hasta encontrar que mueve a EAX un numero pues lo apuntamos y seguimos "114548"
[Enlace externo eliminado para invitados]
Paramos en la otra Call y entramos y vaya sorpresa vemos en el mismo lugar pero ahora mueve a EAX la suma de nuestros 4 primeros text
12345+12345+12+34 = 24736
[Enlace externo eliminado para invitados]
Asi que ya resolvimos el dilema de los 4 primeros text del serial que la suma de estos cuatro debe dar 114548
Curioso el ultimo text es el unico que acepta letras...
Bueno también habiamos visto cuando estabamos traceando cuando tomaba por aparte nuestras letras
Ahora seguimos traceando hasta que encontramos un Api tipica de comparaciones en vb la vbaVarcmpEq asi que paramos en ella y entramos y vaya sorpresa encontramos una comparacion de abc "nuestras letras ingresadas" con las letras LOL asi que apuntamos eso y seguimos viendo...
En el Call vbaVarcmpEq
Entonces con todo esto lo unico que nos quedaba era programar un pequeño y simple keygen
Código: Seleccionar todo
Private Sub Command1_Click()
Dim num1 As Long
Dim num2 As Long
Dim num3 As Long
Dim num4 As Long
num1 = Aleatorio(CLng(Text9), CLng(Text7))
num2 = 114450 - num1
num3 = Aleatorio(CLng(Text6), CLng(Text8))
num4 = 98 - num3
Text1.Text = num1
Text2.Text = num2
Text3.Text = num3
Text4.Text = num4
Text5.Text = "LOL"
If (Len(Text3) = 1) Then
Text3 = 0 & num3
End If
If (Len(Text4) = 1) Then
Text4 = 0 & num4
End If
End Sub
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Como veran puede que algunos seriales se le escapen al keygen pero creo que con esos tienen suficientes
Nota: Adjunto descarga del Keygen
[Enlace externo eliminado para invitados]
Con esto me despido muchas gracias por el crackme muy interesante y espero que el tutorial les sirva de algo saludos
p0is0n: Estas PICS: Se me cargan la estetica del foro (las puse en un link)
