martes, 27 de noviembre de 2018

Codigo Del Keygen Del Crackme 1 De Hendrix Reto WarZone Del Foro.ElHacker.Net

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.rar





1- 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 Text

2- Agregamos 2 TextBox, el primero llamado txtnom y el segundo llamado txtserial, este ultimo en la propiedad Enable sera igual a False

3- 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=zcTP5cpb8z4


Bueno por si quieren bajar el reto y practica un rato aquí lo pueden descargar junto con mi keygen: Descargar

Nota: 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






No hay comentarios.:

Publicar un comentario