Mostrar Mensajes
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):
Y listo...
Saludos!
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:
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
