如何从下面的程序得到注册码？

chuhaiou

如何从下面的程序计算注册码？
应cflood兄要求贴上来原程序：
Sub jqm()
    Dim jqm, drive
drive="d:"
    jqm = Int(Format(CreateObject("Scripting.FileSystemObject").GetDrive(drive).SerialNumber) / 1520)
    MsgBox ("您的机器码为:" + CStr(jqm) + "请把该机器码发给作者，您将会得到注册码")
   SaveSetting "我的软件", "wjhxzs", "jqm", jqm
End Sub
Sub zc()
      If GetSetting(appname:="我的软件", section:="wjhxzs", _
                       key:="yzc") = "1" Then
       MsgBox "已注册了！"
   Else
   Call jqm
    Dim a As String
    a = InputBox("请输入注册码：", "注册", 0)
      If jiemi(a) = "152010" Then
       MsgBox "注册成功，感谢您的使用！"
       Else
       MsgBox "注册码错误或操作有误！"
      End If
   End If
End Sub

[ 本帖最后由 chuhaiou 于 2010-8-24 15:58 编辑 ]

cflood

代码不全。

cflood

好像执行一下
SaveSetting "我的软件", "wjhxzs", "yzc", 1
就会注册
不知道其他代码里是否还会校验注册码

cflood

Public Sub aa()  
drive = "d:"
j = Int(Format(CreateObject("Scripting.FileSystemObject").GetDrive(drive).SerialNumber) / 1520)
MsgBox "注册码是:00" & j + 152010
End Sub

chuhaiou

谢谢！我试试！

[ 本帖最后由 chuhaiou 于 2010-8-16 22:28 编辑 ]

nt_chjb

也太不厚道了，也不让我们再学习。

cflood

的确不厚道，如果要保护知识产权就不应该问这个问题，而且也不反馈一下结果是否正确。