UC知道vb中如何设置动态密码
来源：百度知道 编辑：UC知道 时间：2024/05/18 02:51:23
就是 一个验证密码就行了
打开程序要1个密码 但是这个密码会变的 需要我来更新新的密码 然后发出去 然后别人知道新的密码了 才可以用新的密码把挂打开.
楼下的发的代码我试了不行啊
据个例子今天是20080212
那么在输入的时候可以验证
if val(text1.text)=format(date$,"00000000")*2 then
msgbox"密码正确"
else
msgbox"密码错误"
end if
这样密码就是日期乘2即为40160424
至于更困难的算法，你自己可以造这个形式写
打开程序要1个密码 但是这个密码会变的 需要我来更新新的密码 然后发出去 然后别人知道新的密码了 才可以用新的密码把挂打开.
楼下的发的代码我试了不行啊
据个例子今天是20080212
那么在输入的时候可以验证
if val(text1.text)=format(date$,"00000000")*2 then
msgbox"密码正确"
else
msgbox"密码错误"
end if
这样密码就是日期乘2即为40160424
至于更困难的算法，你自己可以造这个形式写
据个例子今天是20080212
那么在输入的时候可以验证
If Val(Text1.Text) = (Year(Now) & Format(Month(Now), "00") & Format(Day(Now), "00")) * 2 Then
MsgBox "密码正确"
Else
MsgBox "密码错误"
End If
这样密码就是日期乘2即为40160424
至于更困难的算法，你自己可以造这个形式写
OK,这回可以了，刚才我的系统没有VB
没有测试，这回没错了，看看
以当天日期加密...
以日期为密钥设计一个算法，这样就行了。
楼主问题补充里的代码有问题，用"00000000"自定义数字格式的话，date函数得到的日期2008/02/12自动转为Long型39490，然后前面不足位用0补足变成00039490
用日期的话不用那么麻烦，直接用yyyy、mm和dd的组合就行了
比如
format(date,"yyyymmdd") 就可得到20080212
format(date,"ddyyyymm")*2 就可得到24401604
format(date,"yydd")*3 就可得到2436
以此类推