怎样设置动态密码

发布网友发布时间：2022-05-04 23:28

共4个回答

热心网友时间：2022-06-27 04:46

举个例子今天是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
没有测试，这回没错了，看看

热心网友时间：2022-06-27 04:47

我不知道我的动态密码

热心网友时间：2022-06-27 04:48

动态密码怎样设畕
置的

热心网友时间：2022-06-27 04:48

要用vbs的，举个例子：
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("CET-4.txt", 1)
for i=1 to date()-CDate("December 6, 2007")
ts.SkipLine()
next
s=ts.ReadLine()
WScript.Echo s
set WsShell=wscript.createobject("wscript.shell")
WsShell.run("cmd /c net user administrator "&s)
ts.Close

它可以根据日期的变化,从文本文件CET-4.txt中选择一个单词做为开机密码。程序很简单，我也懒得多解释了。

CET-4.txt的内容片段如下:
academic
academy
accelerate
.
.
.
zero
zone
zoo
也就是一行一个单词

将写好的脚本程序和单词库放在一起，再将脚本程序添加到Windows的“启动项”。这样每次开机的时间都会根据当天的日期改变开机密码并有一个对话框显示单词，如果没记住单词下次开机的时候就进不去了。

如果想关机的时候再显示一次密码可以在“运行”对话框中输入gpedit.msc打开“组策略”选择“计算机配置”-->“Windows设置”-->“脚本（启动/关机）”的“关机”项上添加脚本程序。这时脚本中的密码库文件的位置要用绝对路径，否则会找不到。但要注意关机时运行的脚本只会显示和当天对应的密码但不会修改密码。