注册机代码（用VB5编的）： (1千字)

Private Sub Command1_Click()
  Shell "start http://dxpjj.3322.net/"
End Sub
Private Sub Text1_Change()
  L = LenB(Text1.Text)
  If L > 0 Then
    For i = 1 To LenB(Text1.Text)
      If AscB(MidB(Text1.Text, i, 1)) = 0 Then L = L - 1
    Next
  End If
  If L > 5 Then
    s = "MyNamesZEDLhYScbdQfuBHXtvpqriJACjkFUVTzwxPGngRWuKXR"
    n = 0
    For i = 1 To Len(Trim(Text1.Text))
      x = Asc(Mid(Text1.Text, i, 1))
      If x > 0 Then
        n = n + x
      Else
        x = x + 65536
        n = n + (x \ 256) + (x Mod 256)
      End If
    Next
    n = n * &H57
    n1 = Trim(Str(n))
    x = Val(Mid(n1, Len(n1) - 1, 1) + Mid(n1, 2, 1))
    If x > 0 Then
      n2 = n * x
    Else
      n2 = n * &H43
    End If
    n2 = Trim(Str(n2))
    m = ""
    For i = 1 To Len(n2) - 1
      x = Val(Mid(n2, i, 2))
      If x > 49 Then
        m = m + Mid(s, x - 49, 1)
      ElseIf x = 0 Then
        m = m + Mid(s, 51, 1)
      Else
        m = m + Mid(s, x, 1)
      End If
      m = m + Mid(n2, i + 1, 1)
    Next
    Text2.Text = m
  Else
    Text2.Text = ""
  End If
End Sub