注冊機的源碼

昵稱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

注冊機源碼

VB6.0中新建一標(biāo)準(zhǔn)程序
增加3個標(biāo)簽，分別為：注冊機、機器編碼、注冊編碼
2個文本框，分別為：機器編碼項（TEXT1）、注冊編碼項（TEXT2）
2個按鈕，分別為確認(rèn)（以上代碼修飾）、退出（unload me)

至于生成的注冊碼如何組合及分段就是個人喜好了