贴它的vb注册机，感谢ssljx[BCG]的热心，是他写的！！ (1千字)

Private Sub Command1_Click(Index As Integer)
Dim lngLen As String
  Dim strSN As String
  Dim strTmp As String
  Dim strsum As String
  Dim str5 As String
  Dim mb(0 To 6) As Long
  Dim i, j, k, n As Long
  Dim byteAry() As Byte
  Dim regname, xz, ys As Long
  strSN = ""
  strTmp = Text2.Text
  byteAry = StrConv(strTmp, vbFromUnicode)
  For i = LBound(byteAry) To UBound(byteAry)
        str5 = str5 & ChrW(byteAry(i))
  Next i
  strTmp = str5
  lngLen = Len(strTmp)
  If Len(strTmp) <= 0 Then
    Form1.Hide
    MsgBox "用户名不能为空！", 0, "错误提示"
    Form1.Show
    Exit Sub
  End If
 
  ReDim code(0 To lngLen) As Long
  For j = 1 To Len("hydsoft")
    mb(j - 1) = Asc(Mid("hydsoft", j, 1))
    'mb(7) = 0
  Next j
  ys = 0
  For k = 1 To lngLen
    xz = Int(k - 1 / 7)
    regname = Val(byteAry(k - 1))
    If regname > 127 Then
        regname = (255 - regname + 1) * (-1)
    End If
    xz = mb(ys) + xz + regname + lngLen
    xz = xz Mod 9
  code(lngLen - k) = xz + 48
  ys = ys + 1
  If ys > 6 Then
    ys = 0
  End If
  Next k
  code(lngLen) = (lngLen + 77) Mod 9 + 48
  For n = 0 To lngLen
    strSN = strSN & Chr(code(n))
  Next n
 
  Text3.Text = strSN
End Sub
Private Sub Command2_Click(Index As Integer)
    Text2.Text = ""
    Text3.Text = ""
   
   
End Sub