彩票飞车1.07注册机代码（VB）： (1千字)

'《彩票飞车1.07》算号器，请用VB5以上编译
'说明：Text1为用户名（可用汉字），Text2为用户码，Text3为注册码
'
Dim x, y As Double
Private Sub Text1_Change()
  Text2_Change
End Sub
Private Sub Text2_Change()
  uname = Trim(Text1.Text)
  l = Len(uname)
  x = Val(Text2.Text)
  If l > 0 And Len(Trim(Text2.Text)) = 8 And x > 0 Then
    For i = 1 To l
      If Asc(Mid(uname, i, 1)) < 0 Then l = l + 1
    Next
    x = (x \ 127) * 17 Xor &H2EFB69C
    x = zh(x) + (l + 11) * 127
    uname = uname + "**&%#$@KLhd"
    For i = 1 To Len(uname)
      a = Asc(Mid(uname, i, 1))
      If a < 0 Then
        a = a + 65536
        x = js(x, a \ 256)
        x = js(x, a Mod 256)
      Else
        x = js(x, a)
      End If
    Next
    x = x + &H16676E1
    zcm = Trim(Str(x))
    zzcm = ""
    For i = 1 To 8
      zzcm = zzcm + Mid(zcm, Val(Mid("35217864", i, 1)), 1)
    Next
    Text3.Text = zzcm
  Else
    Text3.Text = ""
  End If
End Sub
Function zh(y)
  y = y - Int(y / 4294967296#) * 4294967296#
  If y >= 2147483648# Then y = 4294967296# - y
  zh = y
End Function
Function js(y, b)
  y = zh(y * b + &H9F)
  y = y - Int(y / &H5F5E100) * &H5F5E100
  js = y
End Function