Public Class Form4
Dim a As String
Public Function ReverseString(ByVal InputString As String) As String
Dim lLen As Long, lCtr As Long
Dim sChar As String
Dim sAns As String
lLen = Len(InputString)
For lCtr = lLen To 1 Step -1
sChar = Mid(InputString, lCtr, 1)
sAns = sAns & sChar
Next
ReverseString = sAns
End Function
Public Function HEX2DEC(ByRef hex_str As String) As Long
HEX2DEC = CLng("&H" & hex_str)
End Function
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.fuckoff = 0 Then
TextBox1.Text = Mid(My.Computer.Info.OSFullName, 1, 3) & Mid(My.Computer.Info.OSPlatform, 1, 3) & Mid(My.Computer.Info.OSVersion, 1, 3) & Mid(My.Computer.Info.InstalledUICulture.ToString, 1, 3) & Mid(System.Environment.UserName, 1, 3)
TextBox1.Text = StrConv(TextBox1.Text, VbStrConv.Lowercase)
TextBox1.Text = Replace(TextBox1.Text, "a", "7")
TextBox1.Text = Replace(TextBox1.Text, "b", "1")
TextBox1.Text = Replace(TextBox1.Text, "c", "3")
TextBox1.Text = Replace(TextBox1.Text, "d", "6")
TextBox1.Text = Replace(TextBox1.Text, "e", "8")
TextBox1.Text = Replace(TextBox1.Text, "f", "5")
TextBox1.Text = Replace(TextBox1.Text, "g", "9")
TextBox1.Text = Replace(TextBox1.Text, "h", "2")
TextBox1.Text = Replace(TextBox1.Text, "i", "4")
TextBox1.Text = Replace(TextBox1.Text, "j", "0")
TextBox1.Text = Replace(TextBox1.Text, "k", "A")
TextBox1.Text = Replace(TextBox1.Text, "m", "B")
TextBox1.Text = Replace(TextBox1.Text, "n", "C")
TextBox1.Text = Replace(TextBox1.Text, "o", "D")
TextBox1.Text = Replace(TextBox1.Text, "p", "E")
TextBox1.Text = Replace(TextBox1.Text, "q", "F")
TextBox1.Text = Replace(TextBox1.Text, "r", "A")
TextBox1.Text = Replace(TextBox1.Text, "s", "B")
TextBox1.Text = Replace(TextBox1.Text, "t", "C")
TextBox1.Text = Replace(TextBox1.Text, "v", "D")
TextBox1.Text = Replace(TextBox1.Text, "w", "E")
TextBox1.Text = Replace(TextBox1.Text, "x", "F")
TextBox1.Text = Replace(TextBox1.Text, "y", "1")
TextBox1.Text = Replace(TextBox1.Text, "z", "2")
TextBox1.Text = Replace(TextBox1.Text, ".", "3")
TextBox1.Text = Replace(TextBox1.Text, "-", "4")
TextBox1.Text = Replace(TextBox1.Text, ",", "5")
TextBox1.Text = Replace(TextBox1.Text, "u", "6")
'TextBox10.Text = HEX2DEC(TextBox1.Text)
'TextBox10.Text = Mid(TextBox10.Text, 1, 15)
'TextBox10.Text = ReverseString(TextBox10.Text)
Else
Form1.Enabled = True
Me.Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = HEX2DEC(TextBox1.Text)
a = Mid(a, 1, 15)
a = ReverseString(a)
If TextBox10.Text = a Then
Form1.Enabled = True
Me.Close()
My.Settings.fuckoff = 1
My.Settings.Save()
Else
MsgBox("Serial Number Wrong!", MsgBoxStyle.Critical)
End If
End Sub
End Class
