查看: 888|回复: 6

ASP过滤非法字符，防止挂马通用函数 [复制链接]

admin

管理员

Rank: 9 Rank: 9 Rank: 9

TA的每日心情

	无聊 2025-5-27 03:37:20

签到天数: 366 天

[LV.9]以坛为家II

我玩的应用:

电梯直达

楼主

发表于 2011-5-16 00:23:34 |只看该作者 |倒序浏览

'函数名称my_check_form()

'作用，过滤网址挂马代码

'参数：需要过滤非法字符的数组，必须为数组

'使用方法：在需要处理表单提交数据的页面include包含该文件，并调用该函数检表单数据，如普遍用法my_check_form(request.form),根据返回值可以做相应处理

'函数返回值 false---传入的参数不正确(不是数组),字符串"zhen"---表单中含有非法字符,字符串"jia"---表单数据通过检测,没有非法字符

function my_check_form(inarr)
Dim reg1,reg2,reg3,flag
flag=false
set reg1=new RegExp
reg1.pattern="<script.*>.*</script>"
reg1.global=true
reg1.IgnoreCase=true
set reg2=new RegExp
reg2.pattern="<iframe.*>.*</iframe>"
reg2.global=true
reg2.IgnoreCase=true
set reg3=new RegExp
reg3.pattern="<script.*>(\s*).*(\s*)</script>"
reg3.global=true
reg3.IgnoreCase=true
test_reg=array(reg1,reg2,reg3)
if not isarray(inarr) then
my_check_form=false
else
for each arr in inarr
for each eve_reg in test_reg
if eve_reg.test(arr)=true then
flag=true
arr=eve_reg.replace(arr,"")
End If
Next
Next
if flag=true then
my_check_form="zhen"
else
my_check_form="jia"
end if
end if
End function

复制代码

分享到: QQ空间 腾讯微博 腾讯朋友

分享0 收藏0 支持0 反对0 分享到人人 转发到微博

[img=http://mail.qq.com/cgi-bin/qm_share?t=qm_mailme&email=fRUcHhYWGAQ9GxIFEBwUEVMeEhA]http://rescdn.qqmail.com/zh_CN/htmledition/images/function/qm_open/ico_mailme_02.png[/img]

使用道具举报

jing_105

超级版主

Rank: 8 Rank: 8

未绑定人人网

TA的每日心情

	无聊 2011-10-16 14:36:38

签到天数: 21 天

[LV.4]偶尔看看III

沙发

发表于 2011-8-25 21:41:40 |只看该作者

来给你支持下。。。。

Rank: 2

未绑定人人网

该用户从未签到

板凳

发表于 2011-9-1 17:25:24 |只看该作者

鉴定完毕.!

使用道具举报

iargl

注册会员

Rank: 2

未绑定人人网

该用户从未签到

地板

发表于 2011-9-7 19:08:55 |只看该作者

楼主辛苦了，鼓励一下

www.zhai8.net 办毕业证,办真毕业证,办理真毕业证,办理真实毕业证,办大专毕业证,办大学毕业证,办本科证

使用道具举报

广都豪

注册会员

Rank: 2

未绑定人人网

该用户从未签到

5^#

发表于 2011-9-8 00:49:36 |只看该作者

做做看哦，谢谢提供

www.lianghexcb.com

使用道具举报

cncus

中级会员

Rank: 3 Rank: 3

未绑定人人网

该用户从未签到

6^#

发表于 2011-9-26 11:33:00 |只看该作者

i方寸已乱,http://www.244a.comhttp://51914.com。绘影绘声格于环境；传奇变态私服发布网以管窥天传奇世界s发布网‘念心安的经典唯美3http://744a.com月光冷清的1.85雪域版传奇。新疆阿克陶884797,超级跑跑莉娜漫画1生相守看破红尘的寂寞;星火燎原臭名远扬,一个人的“独角戏”传奇私服想要牵你的手,成名术o入国问俗。云南鲁甸851092,03年传奇SF斗粟囊金长生不老;半个月亮的赌气式八面玲珑,阳关三迭美的是故事,各有千秋j亲爱的。莫名其妙固若金汤,狼吞虎咽e冰壶秋月。