CrackMe! By Abrahametalero Dedicado a www.Elhacker.net

[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=ISD84TCV

Mediafire: http://www.mediafire.com/file/zijemnlcunz/CrackMe!.exe

Rapidshare: http://rapidshare.com/files/370460871/CrackMe_.exe.html

Envienme un serial correcto por mp

Personas que lo han realizado:
--MCKSys Argentina      <------ el primero
--Teno
--
--

[MCKSys Argentina]

Le vamos a dar una miradita, a ver qué tal está... 

[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):

Código [Seleccionar] Expandir


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!

[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):

Código [Seleccionar] Expandir


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!

[MCKSys Argentina]

Muy astuto.... crei que tardarias mas xD!

¿ Porqué pensaste eso ?

[tena]

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

Código [Seleccionar] Expandir


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

[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