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:
(http://r.i.elhacker.net/cache?url=http://img408.imageshack.us/img408/495/elhackernet.jpg)
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=ISD84TCV (http://www.megaupload.com/?d=ISD84TCV)
Mediafire: http://www.mediafire.com/file/zijemnlcunz/CrackMe!.exe (http://www.mediafire.com/file/zijemnlcunz/CrackMe!.exe)
Rapidshare: http://rapidshare.com/files/370460871/CrackMe_.exe.html (http://rapidshare.com/files/370460871/CrackMe_.exe.html)
Envienme un serial correcto por mp
Personas que lo han realizado:
--MCKSys Argentina <------ el primero
--Teno
--
--
Le vamos a dar una miradita, a ver qué tal está... :P
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!
Cita de: MCKSys Argentina en 31 Marzo 2010, 22:50 PM
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!
Cita de: abrahametalero en 31 Marzo 2010, 23:04 PM
Muy astuto.... crei que tardarias mas xD!
¿ Porqué pensaste eso ?
Cita de: MCKSys Argentina en 31 Marzo 2010, 22:50 PM
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!
:o 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
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