源码能看到啊,把这些源码复制到vs的一个简单例子,测试它,看看吧
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim str As String = ""
Dim str2 As String = ""
Dim str3 As String = ""
Dim ytrewq As New ytrewq
If ((((Me.textBox1.Text.Length >= 5) AndAlso (Me.textBox1.Text.Length <= &H1B)) AndAlso ((Me.textBox2.Text.Length = &H1A) AndAlso (Me.textBox2.Text.Chars(8) = "-"c))) AndAlso (Me.textBox2.Text.Chars(&H11) = "-"c)) Then
Dim i As Integer
For i = 0 To 8 - 1
str = (str & Me.textBox2.Text.Chars(i))
Next i
Dim num As UInt32 = Convert.ToUInt32(str, &H10)
Dim j As Integer
For j = 9 To &H11 - 1
str2 = (str2 & Me.textBox2.Text.Chars(j))
Next j
Dim num2 As UInt32 = Convert.ToUInt32(str2, &H10)
Dim k As Integer
For k = &H12 To &H1A - 1
str3 = (str3 & Me.textBox2.Text.Chars(k))
Next k
Dim fsfsdf As UInt32 = Convert.ToUInt32(str3, &H10)
Dim num5 As UInt32 = ytrewq.qwerty(Form1.dfgsf(Me.textBox1.Text))
Dim hashCode As UInt32 = DirectCast(Me.textBox1.Text.GetHashCode, UInt32)
fsfsdf = (fsfsdf Xor hashCode)
Me.yreee(0) = num
Me.yreee(1) = num2
Me.yreee(2) = num
Me.yreee(3) = num2
If ((Me.vxzzz(Me.yreee, Me.ewrrr, &H8FFE2225, fsfsdf) AndAlso (Me.yreee(2) = hashCode)) AndAlso (Me.yreee(3) = num5)) Then
MessageBox.Show("Congratulations, mate!", "Fine!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If
End If
End Sub