 Autor
|
Tema: CrackMe! By Abrahametalero Dedicado a www.Elhacker.net (Leído 3,747 veces)
|
|
abrahametalero
|
Bueno este es un crackme que acabo de hacer.. Lo hice especialmente para esta web, si le puse algo que no les parece bien, diganme para cambiarlo.... El Crackme tiene unas caracteristicas que ara mas dificil su trabajo como cracker's  Lo que deben hacer es activar el boton para registrarse.... la etiqueta de archivo es solo para darle diseño, eso no tiene nada que ver... El crackme se ve hasi:  Me parecio buena la idea de ponerle la imagen de elhacker.net pero si no les parece buena la idea de tenerlo hasi, pues diganme y la quito... Bueno esto es todo.... al ataque cracker's !!!!! Link de descarga del CrackMe!: Megaupload: http://www.megaupload.com/?d=ISD84TCVMediafire: http://www.mediafire.com/file/zijemnlcunz/CrackMe!.exeRapidshare: http://rapidshare.com/files/370460871/CrackMe_.exe.htmlEnvienme un serial correcto por mp Personas que lo han realizado: -- MCKSys Argentina <------ el primero --Teno -- -- |
|
|
|
« Última modificación: 1 Abril 2010, 00:17 am por abrahametalero »
|
En línea
|
abrahametalero.diosdelared.com <---- mi blog... <---- tutoriales programacion y ing. inversa.
|
|
|
|
MCKSys Argentina
|
Le vamos a dar una miradita, a ver qué tal está...  |
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
|
MCKSys Argentina
|
Bueno, el crackme es sencillo. El botón se activa con VBReformer. El serial comprueba que la sumatoria de todos los números ingresados sea igual a 79558. Aquí te dejo un keygen, el cual deja 2 números fijos (para evitar repeticiones, pues las combinaciones totales son MUY grandes) Suponiendo que hay un boton en el form (Command1): Option Explicit
Private Sub Command1_Click()
Dim t1 As Long
Dim t2 As Long
Dim t3 As Long
Dim t4 As Long
Dim suma As Long
t1 = 12345
t3 = 12
For t2 = 0 To 99999
For t4 = 0 To 99
suma = t1 + t2 + t3 + t4
If suma = 79558 Then
Debug.Print CStr(t1) + "-" + padNum(t2, 5) + "-" + CStr(t3) + "-" + padNum(t4, 2)
End If
Next t4
Next t2
End Sub
Function padNum(Numero As Long, LargoStr As Byte) As String
Dim strAux As String
strAux = CStr(Numero)
If LargoStr = 5 Then
If Len(strAux) < 5 Then
padNum = String(5 - Len(strAux), "0") + strAux
Else
padNum = strAux
End If
Else
If Len(strAux) < 2 Then
padNum = "0" + strAux
Else
padNum = strAux
End If
End If
End Function
Y listo... Saludos! |
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
|
abrahametalero
|
Bueno, el crackme es sencillo. El botón se activa con VBReformer. El serial comprueba que la sumatoria de todos los números ingresados sea igual a 79558. Aquí te dejo un keygen, el cual deja 2 números fijos (para evitar repeticiones, pues las combinaciones totales son MUY grandes) Suponiendo que hay un boton en el form (Command1): Option Explicit
Private Sub Command1_Click()
Dim t1 As Long
Dim t2 As Long
Dim t3 As Long
Dim t4 As Long
Dim suma As Long
t1 = 12345
t3 = 12
For t2 = 0 To 99999
For t4 = 0 To 99
suma = t1 + t2 + t3 + t4
If suma = 79558 Then
Debug.Print CStr(t1) + "-" + padNum(t2, 5) + "-" + CStr(t3) + "-" + padNum(t4, 2)
End If
Next t4
Next t2
End Sub
Function padNum(Numero As Long, LargoStr As Byte) As String
Dim strAux As String
strAux = CStr(Numero)
If LargoStr = 5 Then
If Len(strAux) < 5 Then
padNum = String(5 - Len(strAux), "0") + strAux
Else
padNum = strAux
End If
Else
If Len(strAux) < 2 Then
padNum = "0" + strAux
Else
padNum = strAux
End If
End If
End Function
Y listo... Saludos! Muy astuto.... crei que tardarias mas xD!
|
|
|
|
|
En línea
|
abrahametalero.diosdelared.com <---- mi blog... <---- tutoriales programacion y ing. inversa.
|
|
|
|
MCKSys Argentina
|
Muy astuto.... crei que tardarias mas xD!
¿ Porqué pensaste eso ?
|
|
|
|
|
En línea
|
MCKSys Argentina "Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando." |
|
|
tena
 Desconectado
Mensajes: 668
|
Bueno, el crackme es sencillo. El botón se activa con VBReformer. El serial comprueba que la sumatoria de todos los números ingresados sea igual a 79558. Aquí te dejo un keygen, el cual deja 2 números fijos (para evitar repeticiones, pues las combinaciones totales son MUY grandes) Suponiendo que hay un boton en el form (Command1): Option Explicit
Private Sub Command1_Click()
Dim t1 As Long
Dim t2 As Long
Dim t3 As Long
Dim t4 As Long
Dim suma As Long
t1 = 12345
t3 = 12
For t2 = 0 To 99999
For t4 = 0 To 99
suma = t1 + t2 + t3 + t4
If suma = 79558 Then
Debug.Print CStr(t1) + "-" + padNum(t2, 5) + "-" + CStr(t3) + "-" + padNum(t4, 2)
End If
Next t4
Next t2
End Sub
Function padNum(Numero As Long, LargoStr As Byte) As String
Dim strAux As String
strAux = CStr(Numero)
If LargoStr = 5 Then
If Len(strAux) < 5 Then
padNum = String(5 - Len(strAux), "0") + strAux
Else
padNum = strAux
End If
Else
If Len(strAux) < 2 Then
padNum = "0" + strAux
Else
padNum = strAux
End If
End If
End Function
Y listo... Saludos!  me ganaste de mano maxis, vengo a poner mi serial y tu ya te hiciste un keygen jejeje... bueno, dejo uno de los seriales posibles, 39800 39700 38 20 slds
|
|
|
|
« Última modificación: 31 Marzo 2010, 23:50 pm por tena »
|
En línea
|
|
|
|
|
karmany
|
Muchas gracias Abrahametalero por tu colaboración, ya he guardado tu crackme en mi HD.
Le he echado un vistazo y ya he visto que lo has programado en VB código nativo, y es muy sencillete. Como dice MCKSys, si lo abres con VBReformer ya casi tienes toda la info que necesitas. Pero puede ser muy interesante para la gente Newbie.
Un saludo a MCKSys y tena, que sois unas máquinas...y aportáis muchísimo en este foro.
karmany
|
|
|
|
|
En línea
|
|
|
|
|
 |
