标题: [已解决]网页表单密码破解的脚本编写问题 [打印本页]

---

作者: churui007     时间: 2010-8-6 18:07    标题: [已解决]网页表单密码破解的脚本编写问题

因为批处理解决不了，所以就用脚本了，但是由于刚接触，很多问题无法解决，希望高手能指点下。
下面是以路由器为范例的登陆脚本。
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://192.168.1.1/"
ie.Visible = True
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.loginData.UserName.value = "admin"
ie.Document.loginData.Password.value = "admin"
ie.Document.loginData.Submit
While ie.Busy or ie.ReadyState <> 4:Wend
ie.Document.loginData.UserName.value = "admin"
ie.Document.loginData.Password.value = "admin1"
ie.Document.loginData.Submit
WSH.Sleep 1000

解决不了的问题：
1.脚本如何判定登陆成功？
2.登陆成功后如何实现跳转，就是goto那种，但是好像脚本不支持？

我的思路是：上面的脚本如果前一个密码尝试正确，那么下一个密码就会出现脚本错误。能否利用这个错误判断进行跳转，一出现错误，然后把上一个尝试的密码写到密码保存文本内呢？

虽然没写出来破解脚本，我还是想了想优化方面的问题，省的最后还得问：
1.脚本能不能写成命令行下运行的格式：
比如：脚本.vbs 网址
2.账号密码能不能采用字典的方式？

诚心找高手指教，谢谢！

谢谢二楼来说句话，只是我对vbs怎么实现goto很疑惑，这应该跟网络没什么关系吧。应该懂vbs就能指点了吧？谢谢谢谢了！

谢谢slore，额，但是vbs知识实在少，还是vbs+bat解决了，虽然麻烦和乱了点，功能是不缺的。

关于判断登陆成功，我还是靠我的思路解决了，毕竟靠获取ie对象对我有点难度。
用下面这两句完美解决
on error resume next
if err.number <> 0 then

[ Last edited by churui007 on 2010-8-8 at 10:02 ]

---

作者: 523066680     时间: 2010-8-6 18:11
哇~  是可以用来破解 局域网管理页面的密码吗?
网络不懂。

---

作者: churui007     时间: 2010-8-6 18:15
只是一个范例而已，不止局域网密码，只要你找好表单名字。

---

作者: slore     时间: 2010-8-7 11:57
解决不了的问题：
1.脚本如何判定登陆成功？
2.登陆成功后如何实现跳转，就是goto那种，但是好像脚本不支持？

这2个问题你的从IE对象考虑，至少第一个问题不是问题。



虽然没写出来破解脚本，我还是想了想优化方面的问题，省的最后还得问：
1.脚本能不能写成命令行下运行的格式：
比如：脚本.vbs 网址
2.账号密码能不能采用字典的方式？

1. 能  Arguments对象
2. 能  具体看你喜欢文本就FSO，你喜欢内存中的数据就用真的“字典”（"Directory"对象）或者数组处理。

---

作者: churui007     时间: 2010-8-7 12:26    标题: 继续谢谢slore！

我查资料去了，把脚本搞出来、