Codigo Fuente Del Keygen Para El Crackme 5 De Enigmagroup

Bueno aquí les dejo el código fuente de mi keygen para el crackme 5 de EnigmaGroup

Tipo De Programa: Keygen

Hecho Por: Flamer

Reto: Crackme 5 De EnigmaGroup

Pagina Del Reto: https://www.enigmagroup.org/pages/cracking

Tutorial: Parte 1 y Parte 2

Dificultad: Media

Lenguaje: Visual Basic.Net

Descarga: https://www.mediafire.com/?c04vb4sa23fzvq4

Codigo:

Option Explicit On

Public Class Form1
    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_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        On Error Resume Next
        mciSendString("close MP3", "", 0, 0)
        Kill(tem)
    End Sub


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        Dim fecha As String = Now.Date
        Dim d, c As Integer
        Dim clave As String = ""
        Dim mciret As Long


        System.IO.File.WriteAllBytes(tem, My.Resources._1)

        mciSendString("close all", "", 0, 0)
        mciret = mciSendString("open " & tem & " type MPEGVideo Alias MP3", "", 0, 0)
        If mciret <> 0 Then
            MsgBox("Error abriendo MP3")
        Else
            mciExecute("Play MP3")
        End If


        c = 1

        For x = 1 To Len(fecha)
            If Mid(fecha, x, 1) = "/" Then
                clave = clave & "0"
                c = c - 1
            Else
                d = CInt(Mid(fecha, x, 1))
                d = d * 45
                If d = 0 Then
                    clave = clave & "2D"
                Else
                    clave = clave & Hex(d)
                End If
            End If

            If c = 2 Then
                clave = clave & "-"
                c = 1
            Else
                c = c + 1
            End If
        Next
        serial.Text = Mid(clave, 1, Len(clave) - 1)


    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim cd As New OpenFileDialog
        Dim nom As String = ""
        Dim code As String = ""
        Dim r As String = "frmSerial" & Chr(0) & Chr(13) & Chr(1) & Chr(20) & Chr(0) & "Program Registration"

        With cd
            cd.Filter = "file exe|*.exe"
            cd.Title = "Selecciona el crackme 5"
            cd.ShowDialog()
            nom = cd.FileName
        End With

        If nom <> "" Then
            code = Space(34)
            FileOpen(1, nom, OpenMode.Binary)
            Seek(1, 4929)
            FileGet(1, code)
            FileClose(1)

            If code = r Then
                FileOpen(2, nom, OpenMode.Binary)
                Seek(2, 13433)
                FilePut(2, Chr(6))
                Seek(2, 13619)
                FilePut(2, Chr(6))
                FileClose(2)
                MsgBox("Crackme 5 De EnigmaGroup Crackeado, Ahora ya Acepta 6 Digitos")
            Else
                MsgBox("Error Crackme Incorrecto")
            End If
        Else
            MsgBox("No Selecciono Ningun Archivo", MsgBoxStyle.Exclamation, "Aviso De Error")
        End If
    End Sub

    Private Sub serial_Click(sender As System.Object, e As System.EventArgs) Handles serial.Click

    End Sub
End Class

Link del vídeo donde se explica como resolverlo: Parte 1 Parte 2

Saludos Flamer y espero les halla gustado