注冊機的源碼

昵稱QAb6ICvc 2017-05-02

展開全文

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 = "請輸入機器編碼！"
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