注册机的源码

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中新建一标准程序 增加3个标签，分别为：注册机、机器编码、注册编码 2个文本框，分别为：机器编码项（TEXT1）、注册编码项（TEXT2） 2个按钮，分别为 确认（以上代码修饰）、退出（unload me) 至于生成的注册码如何组合及分段就是个人喜好了