|
Dim UserName As String Dim Serial As String Dim TmpStr As String Dim TmpStr1 As Integer Dim TmpStr2 As Integer Dim TmpStr3 As Integer Dim i As Integer Dim Length As Integer Dim TmpNum1 As Integer Dim TmpNum2 As Integer Dim TmpNum3 As Integer Dim Num1 As Integer Dim Num2 As Integer Dim Num3 As Integer Dim Num4 As Integer On Error Resume Next TmpStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" If Text1.Text = "" Then Text2.Text = "請(qǐng)輸入機(jī)器編碼！" Else UserName = Trim(Text1.Text) Length = Len(UserName) For i = 1 To Length - 2 Step 3 TmpStr1 = Asc(Mid$(UserName, i, 1)) TmpStr2 = Asc(Mid$(UserName, i + 1, 1)) TmpStr3 = Asc(Mid$(UserName, i + 2, 1)) For Num2 = 0 To 63 For Num1 = 0 To 63 For Num3 = 0 To 63 TmpNum1 = (Num1 * 4 + Int(Num2 / 16)) And &HFF TmpNum2 = (Num2 * 16 + Int(Num3 / 4)) And &HFF For Num4 = 0 To 63 TmpNum3 = (Num3 * 64 + Num4) And &HFF If (TmpNum1 = TmpStr1) And (TmpNum2 = TmpStr2) And (TmpNum3 = TmpStr3) Then Serial = Serial & Mid(TmpStr, Num1 + 1, 1) & Mid(TmpStr, Num2 + 1, 1) & Mid(TmpStr, Num3 + 1, 1) & Mid(TmpStr, Num4 + 1, 1) End If Next Num4 Next Num3 Next Num1 Next Num2 Next i Text2.Text =Serial End If 注冊(cè)機(jī)源碼
|
|
|
