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
 

Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.IO
Imports System.Text

Public Class GClass1
    ' Methods
    Public Shared Function smethod_0() As GClass0
        If (GClass1.list_0.Count < (GClass1.int_4 + 1)) Then
            Return Nothing
        End If
        Return GClass1.list_0.Item(GClass1.int_4)
    End Function

    Public Shared Function smethod_1() As Integer
        Return CInt(GClass1.stopwatch_0.ElapsedMilliseconds)
    End Function

    Public Shared Sub smethod_2(ByVal string_4 As String, ByVal int_5 As Integer)
        If (((int_5 = 2) OrElse (int_5 = 3)) OrElse ((int_5 = 4) OrElse (int_5 = 5))) Then
            GClass1.stringBuilder_0.Append((string_4 & Environment.NewLine))
            GClass1.stringBuilder_1.Append((string_4 & Environment.NewLine))
        End If
    End Sub

    Public Shared Sub smethod_3()
        GClass1.stringBuilder_1 = New StringBuilder
    End Sub

    Public Shared Function smethod_4() As String
        Return GClass1.stringBuilder_0.ToString
    End Function

    Public Shared Sub smethod_5()
        If ((GClass1.stringBuilder_1.Length >= 5) AndAlso GClass1.bool_3) Then
            Dim now As DateTime = DateTime.Now
            Try 
                Dim writer As New StreamWriter((GClass17.smethod_14 & "\FESLog_" & now.ToString("yyyyMMddHHmmss") & ".txt"))
                writer.Write(GClass1.stringBuilder_1.ToString)
                writer.Close
            Catch exception1 As Exception
            End Try
        End If
    End Sub

    Public Shared Sub smethod_6()
    End Sub


    ' Fields
    Public Shared bool_0 As Boolean = False
    Public Shared bool_1 As Boolean = False
    Public Shared bool_2 As Boolean = False
    Public Shared bool_3 As Boolean = False
    Public Shared bool_4 As Boolean = False
    Public Shared formNotify_0 As FormNotify = Nothing
    Public Shared int_0 As Integer() = New Integer() { &HBB8, &H7D0, &H3E8, 750, 600, 500, 300, 200, 100 }
    Public Shared int_1 As Integer = 0
    Public Shared int_2 As Integer = 500
    Public Shared int_3 As Integer = 0
    Public Shared int_4 As Integer = 0
    Public Shared list_0 As List(Of GClass0) = New List(Of GClass0)
    Public Shared stopwatch_0 As Stopwatch
    Public Shared string_0 As String() = New String() { "20/min", "30/min", "60/min", "80/min", "100/min", "120/min", "200/min", "300/min", "600/min" }
    Public Shared string_1 As String = String.Empty
    Public Shared string_2 As String = String.Empty
    Public Shared string_3 As String = "74126-E079B-627D07"
    Private Shared stringBuilder_0 As StringBuilder = New StringBuilder
    Private Shared stringBuilder_1 As StringBuilder = New StringBuilder
End Class


 

Imports FiatECUScan2
Imports System
Imports System.Collections.Generic
Imports System.Globalization
Imports System.Management
Imports System.Text

Public Class GClass23
    ' Methods
    Public Shared Function smethod_0(ByVal byte_0 As Byte) As String
        Return GClass23.smethod_1(New Byte() { byte_0 })
    End Function

    Public Shared Function smethod_1(ByVal byte_0 As Byte()) As String
        Return BitConverter.ToString(byte_0).Replace("-", " ")
    End Function

    Public Shared Function smethod_10() As String
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
        Dim str As String = String.Empty
        Using enumerator As ManagementObjectEnumerator = searcher.Get.GetEnumerator
            Dim current As ManagementObject
            Do While enumerator.MoveNext
                current = DirectCast(enumerator.Current, ManagementObject)
                If (str = String.Empty) Then
                    goto Label_0048
                End If
            Loop
            Return str
        Label_0048:
            str = current.Properties.Item("SerialNumber").Value.ToString
        End Using
        Return str
    End Function

    Public Shared Function smethod_11(ByVal string_1 As String) As String
        Dim obj2 As New ManagementObject(("win32_logicaldisk.deviceid=""" & string_1 & ":"""))
        obj2.Get
        Return obj2.Item("VolumeSerialNumber").ToString
    End Function

    Public Shared Function smethod_12(ByVal string_1 As String, ByVal string_2 As String) As String
        If (string_1.Length < &H10) Then
            string_1 = (string_1 & "30383936363339323634393236344141")
        End If
        string_1 = string_1.Substring(0, &H10)
        Dim buffer As Byte() = GClass23.smethod_2(string_1)
        Dim bytes As Byte() = New Byte(buffer.Length  - 1) {}
        Dim i As Integer
        For i = 0 To bytes.Length - 1
            bytes(i) = buffer(((buffer.Length - i) - 1))
        Next i
        Dim buffer3 As Byte() = GClass23.smethod_2("6A606A197B056117")
        If (((string_2.Length = &H12) AndAlso (string_2.Chars(5) = "-"c)) AndAlso (string_2.Chars(11) = "-"c)) Then
            Try 
                string_2 = string_2.Replace("-", String.Empty)
                buffer3 = GClass23.smethod_2(string_2)
            Catch exception1 As Exception
            End Try
        End If
        Dim j As Integer
        For j = 0 To bytes.Length - 1
            If (j >= buffer3.Length) Then
                Exit For
            End If
            bytes(j) = CByte((bytes(j) Xor buffer3(j)))
        Next j
        Dim length As Integer = Encoding.ASCII.GetString(bytes).Length
        Return GClass23.smethod_1(bytes).Replace(" ", String.Empty)
    End Function

    Public Shared Function smethod_13(ByVal list_0 As List(Of GClass15)) As List(Of TableDataRowP)
        Dim list As New List(Of TableDataRowP)
        Dim i As Integer
        For i = 0 To list_0.Count - 1
            list.Add(New TableDataRowP(list_0.Item(i)))
        Next i
        Return list
    End Function

    Public Shared Function smethod_14(ByVal list_0 As List(Of GClass18)) As List(Of TableDataRowE)
        Dim list As New List(Of TableDataRowE)
        Dim i As Integer
        For i = 0 To list_0.Count - 1
            list.Add(New TableDataRowE(list_0.Item(i)))
        Next i
        Return list
    End Function

    Public Shared Function smethod_2(ByVal string_1 As String) As Byte()
        Dim list As New List(Of Byte)
        Dim str As String = string_1.Replace(" ", String.Empty)
        Dim i As Integer = 0
        Do While (i < (str.Length - 1))
            list.Add(Byte.Parse(str.Substring(i, 2), NumberStyles.HexNumber))
            i = (i + 2)
        Loop
        Return list.ToArray
    End Function

    Public Shared Function smethod_3(ByVal object_0 As Object) As String
        If (object_0 Is Nothing) Then
            Return String.Empty
        End If
        Return object_0.ToString
    End Function

    Public Shared Function smethod_4(ByVal object_0 As Object) As Integer
        If (object_0 Is Nothing) Then
            Return 0
        End If
        Dim num As Integer = 0
        Try 
            num = Convert.ToInt32(object_0)
        Catch exception1 As Exception
        End Try
        Return num
    End Function

    Public Shared Function smethod_5() As String
        Return GClass23.string_0((14 - 1))
    End Function

    Public Shared Function smethod_6() As String
        Dim s As String = String.Empty
        Try 
            s = GClass23.smethod_11("C")
        Catch exception1 As Exception
        End Try
        If (s.Length < 3) Then
            Try 
                s = GClass23.smethod_11("D")
            Catch exception2 As Exception
            End Try
        End If
        If (s.Length < 3) Then
            Try 
                s = GClass23.smethod_10.Trim
            Catch exception3 As Exception
            End Try
        End If
        If (s.Length < 3) Then
            Try 
                s = GClass17.smethod_0.Substring(10)
            Catch exception4 As Exception
            End Try
        End If
        If (s.Length > 12) Then
            s = s.Substring(0, 12)
        End If
        Return GClass23.smethod_1(Encoding.ASCII.GetBytes(s))
    End Function

    Public Shared Function smethod_7() As String()
        Return GClass23.string_0
    End Function

    Public Shared Function smethod_8(ByVal string_1 As String) As Byte()()
        Dim list As New List(Of Byte())
        Dim str As String = string_1.Replace(" ", String.Empty)
        Dim startIndex As Integer = 0
        Dim list2 As New List(Of Byte)
        Do While (startIndex < (str.Length - 1))
            If (str.Chars(startIndex) = ","c) Then
                list.Add(list2.ToArray)
                list2 = New List(Of Byte)
                startIndex += 1
            End If
            list2.Add(Byte.Parse(str.Substring(startIndex, 2), NumberStyles.HexNumber))
            startIndex = (startIndex + 2)
        Loop
        list.Add(list2.ToArray)
        Return list.ToArray
    End Function

    Public Shared Function smethod_9(ByVal string_1 As String) As String()
        Dim list As New List(Of String)
        Dim builder As New StringBuilder
        Dim i As Integer
        For i = 0 To string_1.Length - 1
            If (string_1.Chars(i) = "|"c) Then
                list.Add((builder.ToString.Substring(0, 4) & GClass16.smethod_2(builder.ToString.Substring(4))))
                builder = New StringBuilder
            Else
                builder.Append(string_1.Chars(i))
            End If
        Next i
        If (builder.Length > 4) Then
            list.Add((builder.ToString.Substring(0, 4) & GClass16.smethod_2(builder.ToString.Substring(4))))
        End If
        Return list.ToArray
    End Function


    ' Fields
    Private Shared string_0 As String() = New String() { "data03", "lang01", "data01", "data02", "data04", "data05", "data06", "data08", "data09", "data11", "data12", "lang02", "data07", "data10", "lang03", "data13" }
End Class