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.rarSaludos Flamer
