para mañana subire la segunda parte en mi blog \/
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
On Error Resume Next
Winsock1.Close
Winsock1.LocalPort = 666
Winsock1.Listen
End Sub
Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Label4.Caption = Winsock1.RemoteHostIP
Label2.Caption = "Conectado"
End Sub
Private Sub Winsock1_Close()
Label2.Caption = "Desconectado"
Label4.Caption = " "
End Sub
On Error Resume Next
Me.Hide
Winsock1.Close
Winsock1.Connect "TU NO-IP O TU IP", 666
Private Sub Form_Load()
On Error Resume Next
Winsock1.Close
Winsock1.LocalPort = 666
Winsock1.Listen
End Sub
Private Sub Winsock1_Close()
Label4.Caption = " "
Label2.Caption = " "
End Sub
Private Sub winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
Label4.Caption = Winsock1.RemoteHostIP
Label2.Caption = "Conectado"
End Sub
Private Sub Form_Load()
On Error Resume Next
Me.Hide
Winsock1.Close
Winsock1.Connect "abrahametalero.sytes.net", 666
Label1.Caption = "Conectando"
If Err Then Exit Sub
End Sub
0040406F| - C745 8C AC3A4...... | Mov Dword PTR SS:[EBP-74], Prueba_D.0040...... | UNICODE "CrackMe!"
00404081| - C745 9C 883A4...... | Mov Dword PTR SS:[EBP-64], Prueba_D.0040...... | UNICODE "Cracker??!"
0040409F| - FF15 2C104000 | CALL Dword PTR DS:[<&MSVBVM60.#595>] | MSVBVM60.rtcMsgBox
004040C0| - FF15 10104000 | CALL Dword PTR DS:[<&MSVBVM60.__vbaEnd] | MSVBVM60.__vbaEnd
00403FC8| - FF15 2C104000 | CALL Dword PTR DS:[<&MSVBVM60.#595] | MSVBVM60.rtcMsgBox
MSVBVM60.__vbaVarMove
MSVBVM60.__vbaVarCopy
MSVBVM60.__vbaVarCmp
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!