sábado, 3 de febrero de 2018

Codigo Del Keygen Del Crackme1 De AbelJM Por Flamer

Bueno este es el código del keygen para el crackme1 de abel, en mi opinión es un crackme divertido ya que es muy sencillo y son de los que me gusta desayunarme por las mañanas para levantar el animo muy recomendable para los que recién inician en este mundo.

bueno sin mas que decir aquí una imagen del formulario




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 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"
    Dim tiempo As Integer = 0

    Function cancion() As Boolean
        Dim mciret As Long

        mciSendString("close all", "", 0, 0)
        mciret = mciSendString("open " & tem & " type MPEGVideo Alias MP3", "", 0, 0)
        If mciret <> 0 Then
            cancion = False
        Else
            mciExecute("Play MP3")
            Timer1.Start()
            cancion = True
        End If
    End Function
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        System.IO.File.WriteAllBytes(tem, My.Resources.musika)
        While Not (cancion())
        End While

    End Sub


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

        If tiempo < 195 Then
            tiempo = tiempo + 1
        Else
            While Not (cancion())
            End While
            tiempo = 0
        End If
        If op2.Checked Then
            Button4.Enabled = False
            l = CInt((2 - 10) * Rnd() + 10)
            For x = 1 To CInt(l / 2)
                nombre = nombre & Chr(CInt((65 - 90) * Rnd() + 90))
                nombre = nombre & LCase(Chr(CInt((65 - 90) * Rnd() + 90)))
            Next

            txtnombre.Text = nombre
            nombre = ""
            For x = Len(txtnombre.Text) To 1 Step -1
                nombre = nombre & Mid(txtnombre.Text, x, 1)
                caracter = caracter & CStr(Asc(Mid(txtnombre.Text, x, 1)))
            Next
            txtserial.Text = nombre & "-" & caracter
        ElseIf op1.Checked Then
            Button4.Enabled = True
        End If
    End Sub


    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 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 As Integer
        Dim caracter As String = ""

        For x = Len(txtnombre.Text) To 1 Step -1
            nombre = nombre & Mid(txtnombre.Text, x, 1)
            caracter = caracter & CStr(Asc(Mid(txtnombre.Text, x, 1)))
        Next
        txtserial.Text = nombre & "-" & caracter
    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 y el crackme: Descargar

Saludos Flamer







No hay comentarios.:

Publicar un comentario