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