注册机的源码

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)

至于生成的注册码如何组合及分段就是个人喜好了