miércoles, 23 de mayo de 2018

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



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

Saludos Flamer




2 comentarios: