Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
Xacker3.CloseHandle(DirectCast(&H12345678, IntPtr))
Catch obj1 As Object
Environment.Exit(0)
End Try
If (Not String.IsNullOrEmpty(Me.textBox1.Text) AndAlso Not String.IsNullOrEmpty(Me.textBox2.Text)) Then
If (Me.textBox2.Text.Contains("-") AndAlso (Me.textBox2.TextLength = &H13)) Then
Dim str As String = Me.textBox2.Text.Replace("-", "")
If Me.method_0(str) Then
Dim num As Integer = Convert.ToInt32(str.Substring(0, 4))
Dim num2 As Integer = Convert.ToInt32(str.Substring(8, 4))
Dim buffer As Byte() = Xacker1.smethod_2(Class0.byte_0)
Dim str2 As String = (Me.key & Xacker4.crackdung_0((buffer), num, &H3E8, num2, 380).ToString)
Dim method As MethodInfo = MyBase.GetType.GetMethod(Xacker1.crackdung_1(Me.me, str2))
If (Not method Is Nothing) Then
method.Invoke(Me, New Object(0 - 1) {})
End If
Else
MessageBox.Show(Me.invalidsn, Me.err)
End If
Else
MessageBox.Show(Me.invalidsn, Me.err)
End If
Else
MessageBox.Show(Me.username, Me.err)
End If
End Sub