Codigo Del Keygen Del Crackme2 De AbelJM Por Flamer

Hola este es el código fuente del segundo crackme de nuestro amigo abelJM el cual es muy sencillo de resolver y son de los que recomiendo para aquellos que recien inician en este mundo del reversing sin mas que decir aquí esta el codigo en vb.net

1-Agregaremos 2 TextBox el primero lo llamaremos txtnombre y el segundo txtserial

2- Agregaremos 2 RadioButton el primero llamado op1 con el valor Text igual a Manual y el segundo op2 con el valor Text igual a Automático

3- Agregamos 2 Label uno con el valor de text igual a Nombre y otro con el valor Serial

4- y por ultimo agregamos 4 Botones los nombres los dejamos por defecto, al botón 1 su valor Text sera Copiar este copiara el serial, el segundo botón su valor Text sera Refrech, el tercero su valor sera Copiar y por ultimo su valor Text sera Generar



....:::::Aquí el Código::::.....

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Randomize()
        Dim l, x, largo As Integer
        Dim nombre As String = ""
        Dim caracter, serial As String
        Dim abc As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

       
        If op2.Checked Then
            Button4.Enabled = False
            l = CInt((7 - 2 + 1) * Rnd() + 2)
            For x = 1 To CInt(l / 2)
                nombre = nombre & Chr(CInt((90 - 65 + 1) * Rnd() + 65))
            Next

            txtnombre.Text = nombre
            nombre = nombre & UCase("perucrackers")
            largo = Len(nombre)
            serial = ""

            For x = 1 To largo
                caracter = Mid(nombre, x, 1)
                l = InStr(abc, caracter) + largo
                If l < 26 Then
                    serial = serial & Mid(abc, l, 1)
                ElseIf l > 26 Then
                    l = l - 26
                    serial = serial & Mid(abc, l, 1)
                Else
                    txtnombre.Text = ""
                    txtserial.Text = ""
                    serial = ""
                    Exit For
                End If
            Next
            txtserial.Text = serial
        ElseIf op1.Checked Then
            Button4.Enabled = True
        End If
    End Sub
 

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Clipboard.SetText(txtserial.Text)
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        txtnombre.Text = ""
        txtserial.Text = ""
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim nombre As String = ""
        Dim x, largo, l As Integer
        Dim caracter, serial As String
        Dim abc As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"


        nombre = UCase(txtnombre.Text) & UCase("perucrackers")
        largo = Len(nombre)
        serial = ""

        For x = 1 To largo
            caracter = Mid(nombre, x, 1)
            l = InStr(abc, caracter) + largo
            If l < 26 Then
                serial = serial & Mid(abc, l, 1)
            ElseIf l > 26 Then
                l = l - 26
                serial = serial & Mid(abc, l, 1)
            Else
                txtnombre.Text = ""
                txtserial.Text = ""
                serial = ""
                MsgBox("El Serial No Puede Ser Creado", MsgBoxStyle.Information, "Error")
                Exit For
            End If
        Next
        txtserial.Text = serial
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Clipboard.SetText(txtnombre.Text)
    End Sub
End Class

Link del video donde se resuelve el crackme: https://www.youtube.com/watch?v=GouH5QI5m08

bueno haca les dejo el ejecutable, el código con música en txt y el crackme: Descargar

Saludos Flamer