Autor
|
Tema: CrackMe! By Abrahametalero Dedicado a www.Elhacker.net (Leído 3,753 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
|
|
|
|
|
|