martes, 7 de julio de 2015

Solucion Del Crackme De Cruehead


Hola amigos aqui les dejo el crackme de cruehead y el codigo del keygen en visual basic 6

1-Agregar 4 botones llamados Command1, Command2, Command3 y Command4

2-Agregar 2 Textbox llamados Text1 y Text2




Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Dim suma As Integer
Dim bites() As Byte
Dim file As String

Private Sub Command1_Click()
Dim x  As Integer

If Command1.Caption = "Generar" Then
   suma = 0
   For x = 1 To Len(Text1)
      suma = suma + Asc(UCase(Mid(Text1, x, 1)))
   Next x

   suma = suma Xor 22136

   Timer1.Interval = 10
   Command1.Caption = "Detener"
   Command4.Enabled = False
Else
   Timer1.Interval = 0
   Command1.Caption = "Generar"
   Command4.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
MsgBox "Copiado Listo Para Pegar....", , ""
End Sub


Private Sub Command3_Click()
Clipboard.Clear
Clipboard.SetText Text2.Text
MsgBox "Copiado Listo Para Pegar....", , ""
End Sub

Private Sub Command4_Click()
Text1 = ""
Text2 = ""
Timer1.Interval = 0
End Sub

Private Sub Form_Load()

bites = LoadResData(101, "CUSTOM")
file = Environ("temp") & "\musik.mp3"
Open file For Binary As 1
   Put #1, , bites
Close #1

mciExecute ("play " & file)
End Sub

Private Sub Form_Terminate()
mciExecute ("close all")
Kill file
End Sub

Private Sub Timer1_Timer()
Randomize
Dim serialn, resi As Integer
Dim serials, rr As String
If Text1 <> "" Then
   serialn = suma Xor 4660
   serials = CStr(serialn)
   Text2 = ""

   Do While serialn > 207
      rr = CStr(Int((9 - 1 + 1) * Rnd + 1))
      resi = CInt(rr & Mid(serials, Len(serials), 1))
      serialn = serialn - resi
      serialn = serialn / 10
      serials = CStr(serialn)
      Text2 = Chr(resi + 48) & Text2
   Loop
   resi = CInt(serialn)
   Text2 = Chr(resi + 48) & Text2
End If
End Sub

link del codigo del keygen y el crackme:

http://www.mediafire.com/download/64346h3jx50fcy9/Archivos+Del+12.rar




Saludos Flamer

No hay comentarios.:

Publicar un comentario