elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Temas
Páginas: [1]
1  Programación / Ingeniería Inversa / Reto a crear keygen a este algoritmo hecho en vb.net en: 1 Abril 2013, 22:39 pm
Muy buenas recurro a ustedes para que me orienten en esta comprobacion del serial echa en vb.net , ise algunos mas faciles pero este es un reto mayor asi que necesito el primer paso, asi que veamos que tiene ese jodido codigo:


Código:
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Public NotInheritable Class FormRegistration
    Inherits Form
    ' Methods
    Public Sub New()
        Me.InitializeComponent
        If GClass1.bool_3 Then
            Me.textBox4.Text = "REGISTERED"
            Me.textBox4.ForeColor = Color.Green
            Me.tbSerial.ReadOnly = True
            Me.tbSerial.Text = GClass17.smethod_2
            Me.buttonActivate.Enabled = False
        End If
    End Sub

    Private Sub buttonActivate_Click(ByVal sender As Object, ByVal e As EventArgs) Handles buttonActivate.Click
        GClass23.smethod_6.Replace("5", "-")
        Dim str As String = GClass23.smethod_12(GClass1.string_3, Me.tbSerial.Text)
        If GClass16.smethod_13(String.Empty, str).StartsWith(str) Then
            GClass17.smethod_3(Me.tbSerial.Text)
            MyBase.DialogResult = DialogResult.OK
        Else
            MessageBox.Show("Invalid License Key!", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Hand)
            MyBase.DialogResult = DialogResult.None
        End If
    End Sub

    Private Sub buttonExit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button Exit .Click
    End Sub

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If (disposing AndAlso (Not Me.icontainer_0 Is Nothing)) Then
            Me.icontainer_0.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    Private Sub FormRegistration_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown
        Dim str As String = GClass1.string_3
        Dim buffer As Byte() = GClass23.smethod_2(str)
        Dim i As Integer
        For i = 0 To buffer.Length - 1
            buffer(i) = CByte((buffer(i) Xor &H31))
            str = (str & GClass23.smethod_0(buffer(i)))
            Select Case i
                Case 5, 9, 14
                    str = (str & "-")
                    Exit Select
            End Select
        Next i
        Me.tbKey.Text = str.Substring((buffer.Length * 2))
    End Sub

    Private Sub InitializeComponent()
        Me.panel1 = New System.Windows.Forms.Panel
        Me.buttonExit = New System.Windows.Forms.Button
        Me.textBox4 = New System.Windows.Forms.TextBox
        Me.panel2 = New System.Windows.Forms.Panel
        Me.textBox3 = New System.Windows.Forms.TextBox
        Me.buttonActivate = New System.Windows.Forms.Button
        Me.label2 = New System.Windows.Forms.Label
        Me.label1 = New System.Windows.Forms.Label
        Me.tbSerial = New System.Windows.Forms.TextBox
        Me.tbKey = New System.Windows.Forms.TextBox
        Me.panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'panel1
        '
        Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.panel1.Controls.Add(Me.buttonExit)
        Me.panel1.Controls.Add(Me.textBox4)
        Me.panel1.Controls.Add(Me.panel2)
        Me.panel1.Controls.Add(Me.textBox3)
        Me.panel1.Controls.Add(Me.buttonActivate)
        Me.panel1.Controls.Add(Me.label2)
        Me.panel1.Controls.Add(Me.label1)
        Me.panel1.Controls.Add(Me.tbSerial)
        Me.panel1.Controls.Add(Me.tbKey)
        Me.panel1.Location = New System.Drawing.Point(12, 12)
        Me.panel1.Name = "panel1"
        Me.panel1.Size = New System.Drawing.Size(424, 322)
        Me.panel1.TabIndex = 0
        '
        'buttonExit
        '
        Me.buttonExit.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.buttonExit.Location = New System.Drawing.Point(322, 283)
        Me.buttonExit.Name = "buttonExit"
        Me.buttonExit.Size = New System.Drawing.Size(87, 27)
        Me.buttonExit.TabIndex = 24
        Me.buttonExit.Text = "Exit"
        Me.buttonExit.UseVisualStyleBackColor = True
        '
        'textBox4
        '
        Me.textBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.textBox4.BackColor = System.Drawing.Color.White
        Me.textBox4.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.textBox4.Enabled = False
        Me.textBox4.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(204, Byte))
        Me.textBox4.ForeColor = System.Drawing.Color.Red
        Me.textBox4.Location = New System.Drawing.Point(3, 89)
        Me.textBox4.Multiline = True
        Me.textBox4.Name = "textBox4"
        Me.textBox4.ReadOnly = True
        Me.textBox4.Size = New System.Drawing.Size(416, 30)
        Me.textBox4.TabIndex = 23
        Me.textBox4.Text = "UNREGISTERED"
        Me.textBox4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'panel2
        '
        Me.panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.panel2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
        Me.panel2.Location = New System.Drawing.Point(3, 3)
        Me.panel2.Name = "panel2"
        Me.panel2.Size = New System.Drawing.Size(416, 78)
        Me.panel2.TabIndex = 21
        '
        'textBox3
        '
        Me.textBox3.BackColor = System.Drawing.Color.White
        Me.textBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.textBox3.Enabled = False
        Me.textBox3.Location = New System.Drawing.Point(16, 168)
        Me.textBox3.Multiline = True
        Me.textBox3.Name = "textBox3"
        Me.textBox3.ReadOnly = True
        Me.textBox3.Size = New System.Drawing.Size(393, 81)
        Me.textBox3.TabIndex = 6
        Me.textBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'buttonActivate
        '
        Me.buttonActivate.Location = New System.Drawing.Point(168, 283)
        Me.buttonActivate.Name = "buttonActivate"
        Me.buttonActivate.Size = New System.Drawing.Size(87, 27)
        Me.buttonActivate.TabIndex = 4
        Me.buttonActivate.Text = "Activate"
        Me.buttonActivate.UseVisualStyleBackColor = True
        '
        'label2
        '
        Me.label2.AutoSize = True
        Me.label2.Location = New System.Drawing.Point(13, 258)
        Me.label2.Name = "label2"
        Me.label2.Size = New System.Drawing.Size(65, 13)
        Me.label2.TabIndex = 3
        Me.label2.Text = "License Key"
        '
        'label1
        '
        Me.label1.AutoSize = True
        Me.label1.Location = New System.Drawing.Point(13, 132)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(74, 13)
        Me.label1.TabIndex = 2
        Me.label1.Text = "Hardware Key"
        '
        'tbSerial
        '
        Me.tbSerial.Location = New System.Drawing.Point(116, 255)
        Me.tbSerial.Name = "tbSerial"
        Me.tbSerial.Size = New System.Drawing.Size(293, 20)
        Me.tbSerial.TabIndex = 1
        '
        'tbKey
        '
        Me.tbKey.Location = New System.Drawing.Point(116, 129)
        Me.tbKey.Name = "tbKey"
        Me.tbKey.ReadOnly = True
        Me.tbKey.Size = New System.Drawing.Size(293, 20)
        Me.tbKey.TabIndex = 0
        '
        'FormRegistration
        '
        Me.AcceptButton = Me.buttonActivate
        Me.BackColor = System.Drawing.Color.White
        Me.CancelButton = Me.buttonExit
        Me.ClientSize = New System.Drawing.Size(448, 346)
        Me.Controls.Add(Me.panel1)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "FormRegistration"
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "Registration"
        Me.panel1.ResumeLayout(False)
        Me.panel1.PerformLayout()
        Me.ResumeLayout(False)

    End Sub


    ' Fields
    Private buttonActivate As Button
    Private buttonExit As Button
    Private icontainer_0 As IContainer
    Private label1 As Label
    Private label2 As Label
    Private panel1 As Panel
    Private panel2 As Panel
    Private tbKey As TextBox
    Private tbSerial As TextBox
    Private textBox3 As TextBox
    Private textBox4 As TextBox

    Private Sub tbSerial_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbSerial.TextChanged
 
2  Programación / Ingeniería Inversa / crakeando en visual basic net en: 11 Octubre 2011, 03:47 am
Desde hce varios meses vengo intentando crakear este maldito programa fiatecuscan 3.1 escrito en .NET  , esto lo comprobe con el RDG Packer Detector v0.6.7 2011 Vx-Edition  , la verdad agote todos los rcursos ,nose si me pueden dar una mano


Registrando el programa

Luego analise las call de pilas
 

 
ahora ahi como sigo ...

http://www.megaupload.com/?d=WK7L20U8
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines