Hola amigos aquí les dejo el código fuente del keygen del crackme 1 de Hendrix, el cual se encuentra como uno de los retos del WarZone del Foro el Hacker.Net
Link del reto:
http://warzone.elhacker.net/cm/HendrixCrackme1.rar1- Agregamos 2
Label, el primero llamado
Label1 con el valor
NOMBRE en la propiedad
Text y el segundo llamado
Label2 con el valor
SERIAL en la propiedad
Text2- Agregamos 2
TextBox, el primero llamado
txtnom y el segundo llamado
txtserial, este ultimo en la propiedad
Enable sera igual a
False3- Agregamos 7
Button llamados
Button1, Button2, Button3, Button4, Button5, Button6, Button7, en la propiedad
Text el
Button1 sera igual a
Generar Key Aleatorio, el
Button2 y
Button3 en la propiedad
Text seran igual a
Copy, el
Button4 sera igual a
Generar Key Por Nombre, el
Button5 sera igual a
X, el
Button6 sera igual a
About y por ultimo el
Button7 en la propiedad
Text sera igual a
Limpiar Codigo
Option Explicit On
Public Class Form1
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As IntPtr, ByVal wParam As IntPtr, lParam As IntPtr) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Int32, ByVal hwndCallback As Int32) As Long
Dim tem As String = Environ("temp") & "\musika.mp3"
Private Sub Form1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Call ReleaseCapture()
Call SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim code() As Byte = My.Resources.musik
FileOpen(1, tem, OpenMode.Binary, OpenAccess.Write)
FilePut(1, code)
FileClose(1)
Timer1.Interval = 100
Timer2.Interval = 100
cancion(tem)
End Sub
Function cancion(tem)
Dim mciret As Long
mciSendString("close all", "", 0, 0)
mciret = mciSendString("open " & tem & " type MPEGVideo Alias MP3", "", 0, 0)
mciExecute("Play MP3")
Return Nothing
End Function
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
While generar1()
End While
End Sub
Function generar1() As Boolean
Randomize()
Dim serial As String = ""
Dim nom As String = ""
Dim s As String
Dim x, l, c, a As Integer
l = (CInt((10 - 3 + 1) * Rnd() + 3)) * 2
For x = 1 To l
Select Case CInt((3 - 1 + 1) * Rnd() + 1)
Case 1
serial = serial & Chr(CInt((57 - 48 + 1) * Rnd() + 48))
Case 2
serial = serial & Chr(CInt((90 - 65 + 1) * Rnd() + 65))
Case 3
serial = serial & Chr(CInt((122 - 97 + 1) * Rnd() + 97))
Case Else
x -= 1
End Select
Next
For x = 1 To l Step 2
s = Mid(serial, x, 2)
c = Asc(Mid(s, 1, 1)) * 56 * Asc(Mid(s, 2, 1))
a = c Mod 255
If a Mod 2 Then
generar1 = True
Exit Function
Else
If (a / 2) >= 32 And (a / 2) <= 122 Then
nom = nom & Chr(a / 2)
Else
generar1 = True
Exit Function
End If
End If
Next
txtnom.Text = nom
txtserial.Text = serial
generar1 = False
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If Timer1.Enabled = True Then
Timer1.Stop()
Button1.Text = "Generar Key Aleatorio"
txtnom.Enabled = True
Button4.Enabled = True
Else
Timer1.Start()
Button1.Text = "Detener"
txtnom.Enabled = False
Button4.Enabled = False
End If
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
If Timer2.Enabled = True Then
Timer2.Stop()
Button4.Text = "Generar Key Por Nombre"
Button1.Enabled = True
Else
Timer2.Start()
Button4.Text = "Detener"
Button1.Enabled = False
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If txtnom.Text <> "" Then
Clipboard.SetText(txtnom.Text)
End If
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If txtserial.Text <> "" Then
Clipboard.SetText(txtserial.Text)
End If
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
mciSendString("close MP3", "", 0, 0)
Kill(tem)
End
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
MsgBox("Keygen Hecho Por Flamer Del Crackme 1 De Hendrix" & vbCrLf & vbCrLf & "Saludos al foro el hacker.net y al grupo de CracksLatinos" & vbCrLf & vbCrLf & vbCrLf & "Visita mi blog: https://elblogdeflamer.blogspot.com/" & vbCrLf & vbCrLf & "Saludos Flamer", , "About")
End Sub
Function generar2(s, ab) As String
Dim a, b, x, y, c As Integer
If ab <> "" Then
a = Asc(Mid(ab, 1, 1))
b = Asc(Mid(ab, 2, 1)) + 1
If b > 122 Then
b = b - 90
a = a + 1
If a > 122 Then
a = 32
End If
End If
Else
a = 32
b = 32
End If
For x = a To 122
For y = b To 122
c = (x * 56 * y) Mod 255
If (s * 2) = c Then
generar2 = Chr(x) & Chr(y)
Exit Function
End If
Next
Next
For x = 32 To 122
For y = 32 To 122
c = (x * 56 * y) Mod 255
If (s * 2) = c Then
generar2 = Chr(x) & Chr(y)
Exit Function
End If
Next
Next
generar2 = ""
End Function
Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
Dim ab As String = ""
Dim c, s, res As String
res = ""
For x = 1 To Len(txtnom.Text)
c = Asc(Mid(txtnom.Text, x, 1))
If txtserial.Text <> "" Then
ab = Mid(txtserial.Text, (x * 2) - 1, 2)
End If
s = generar2(c, ab)
If s = "" Then
res = res & ab
Else
res = res & s
End If
Next
txtserial.Text = res
End Sub
Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
txtnom.Text = ""
txtserial.Text = ""
End Sub
End Class
Link del video donde se resuelve el crackme:
https://www.youtube.com/watch?v=zcTP5cpb8z4Bueno por si quieren bajar el reto y practica un rato aquí lo pueden descargar junto con mi keygen:
DescargarNota: Si salta el AV es un falso positivo ya que mi programa esta libre de virus, pueden jugar con el con toda seguridad
Saludos Flamer
