我也贴一个注册机，用VB5编的 (1千字)

Dim x, y As Double
Dim a(7)
Private Sub Text1_Change()
  yhm = Trim(Text1.Text)
  l = Len(yhm)
  l1 = l
  If l > 0 Then
    j = 1
    For i = 0 To 7
      If j <= l1 Then
        b = Asc(Mid(yhm, j, 1))
        j = j + 1
        If b < 0 Then
          b = b + 65536
          a(i) = b \ 256
          i = i + 1
          If i <= 7 Then a(i) = b Mod 256: l = l + 1
        Else
          a(i) = b
        End If
      Else
        a(i) = &H78
      End If
    Next
    s = "hytzlhyt"
    For i = 0 To 7
      If i < l Or i < 5 Then
        a(i) = (a(i) Xor Asc(Mid(s, i + 1, 1))) And 127
      Else
        a(i) = (a(i - 5) Xor Asc(Mid(s, i + 1, 1))) And 127
      End If
    Next
    x = a(0) * 123
    x = x + a(1) * &H3EE27C
    x = x + a(2) * &H18151EF
    x = x + a(3) * &H84289
    x = x + a(4) * &HF16EC
    x = x + a(5) * &H4907DDEF
    x = x + a(6) * &HBD65FC
    x = x + a(7) * &H3471E300
    Do While x >= 4294967296#
      x = x - 4294967296#
    Loop
    zcm = Trim(Str(x))
    zcm = "00000000" + zcm
    l = Len(zcm)
    Mid(zcm, l - 1, 1) = Chr(Asc(Mid(zcm, l - 2, 1)) + &H1B)
    Mid(zcm, l - 3, 1) = Chr(Asc(Mid(zcm, l - 6, 1)) + &H11)
    Mid(zcm, l - 4, 1) = Chr(Asc(Mid(zcm, l - 7, 1)) + &H15)
    Text2.Text = Right(zcm, 10)
  Else
    Text2.Text = ""
  End If
End Sub