大家好,我是小碰碰熊,今天给大家分享一个VBS猜WINDOWS密码的代码,在日常中虽然我们的用户不容易忘记,就算忘记也有其他办法解决,今天这个例子就是通过API多次登录判断密码正确性.在开始之前我们需要创建一个用户
图1
用户名:xiaoduduxiong,密码123456,是一个纯6位数字密码,
在桌面新建一个txt文档,写代码:
vbScript:
Dim vbs
Dim b
Dim Pwss
Dim P1
Set vbs = CreateObject("Notepad.Fun")
P1 = "123"
For Pwss = 100 to 999
b = vbs.CheckUserPassWord("xiaoduduxiong",P1 & Pwss)
if b = true then
vbs.printf("登录成功,密码是:" & P1 & PWSS)
Exit For
else
vbs.printf("登录失败")
end if
Next
图2
'假设己知密码开头是123,还知道密码是6位纯数字,大家可以看到,代码中用了一个for循环生成后3位数字后,与前123相连并进行登录,在把登录的结果打印输出了
图3
当运行代码,可以看立即窗口中输出很多登录失败,最后一个显示登录成功,并显示了密码.
(其中Notepad.Fun是自己写的一个组件,调用了LogonUser函数,相关资料大家可以去阅读MSDN
| 留言与评论（共有 0 条评论） |
