站长的安全利剑

admin · 发表于 2008-8-19 16:01:17

软件简介：
(注意:本教程配有语音,请打开您的音响,并且使用1024*768或以上的屏幕分辨率来观看!)
本次动画教程主题: 站长的安全利剑
制作时间：2007年10月21日制作人：甲面将军 QQ：121813720
需要用到的软件：safe3-安全伞
演示环境：windows xp sp2操作系统

虽然现在已有防火墙、杀毒、入侵检测等安全防范手段，但防火墙对Web入侵基本没有作用，杀毒软件更是对变形webshell显得无力，SQL注入稍微变形就可绕过传统IDS，由此导致的网页被篡改或挂马屡见不鲜。目前专门针对Web安全的工具还很少，而像中国中央政府门户网站所使用的iGuard网页防篡改系统又贵的惊人，由此诞生了一款任何人都用得起的轻量级实用的反黑工具-安全伞。
一但发现黑客入侵就可立刻采取措施。同时集成了多种实用功能，让网站管理变得更加轻松。
运行环境：
运行此软件需安装Microsoft .NET Framework 2.0
对用户来说，就是一个组件，如果你碰上用.net语言开发的软件，那就必须先装上这个东东，才能使用软件。目前越来越多的软件运行要依赖于它了。对开发者来说，它是一个庞大的类库。
下载地址：http://dl.pconline.com.cn/html_2/1/82/id=10637%
'Copyright by Bluer 2006
Response.Buffer = True
On Error Resume Next
%@ LANGUAGE=VBScript CodePage=936%
%
Option Explicit
Dim Startime,Endtime
Dim Dvbbs, MyCache
Dim SqlNowString,Conn
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase=0
'论坛缓存名称，如果一个站点有多个论坛请更改成不同名称
Const Forum_CacheName=aspsky
Const Forum_EnableCacheDatabase=1
Startime=Timer()
Dim plus_name,Plus_Setting
plus_name=
Set Dvbbs=New Cls_Forum
Set MyCache=New Cache
Sub ConnectionDatabase
Dim ConnStr
If IsSqlDataBase=1 Then
SqlNowString=GetDate()
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName=
SqlPassword=
SqlUsername=sa
SqlLocalName=(local)
ConnStr = Provider=Sqloledb; User ID= ; Password= ; Initial Catalog =  ; Data Source= ;
Else
SqlNowString=Now()
Dim Db
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp
Db=data/dvbbs6.mdb
ConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= ADODB.Connection)
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write 数据库连接出错，请检查连接字串。
Response.End
End If
End Sub
Sub CloseDatabase
End Sub
%
If Err.Number  0 Then
Response.Clear
Select Case Err.Number
Case 0
Case Else

If IsObject(conn) Then
If conn.Errors.Count  0 Then
Dblog=Database Error:
For intLoop = 0 To objConnection.Errors.Count - 1

Dblog=Dblog + Error No: + conn.Errors(intLoop).Number + |
Dblog=Dblog + Description: + conn.Errors(intLoop).Description + |
Dblog=Dblog + Source: + conn.Errors(intLoop).Source + |
Dblog=Dblog + SQLState: + conn.Errors(intLoop).SQLState + |
Dblog=Dblog + NativeError: + conn.Errors(intLoop).NativeError + |
Next
slog(Dblog)
End If
End If
If Err.Number  0 Then

Plog=age Error:
Plog=Plog+Error Number + Err.Number + |
Plog=Plog+Error Description + Err.Description + |
Plog=Plog+Source  + Err.Source + |
Plog=Plog+LineNumber  + Err.Line + |
slog(Pblog)
End If
Response.Redirect /XXX.htm
End Select
Err.Clear
End If
if request.querystring then stopinjection(request.querystring)
if request.cookies then stopinjection(request.cookies)
function stopinjection(values)
for each n_get in values
dim l_get, l_get2
for each l_get in values
l_get2 = values(l_get)
set regex = new regexp
regex.ignorecase = true
regex.global = true
regex.pattern = (\sunion\s|\sor\s|\sand\s|/\*|'|;|--|\sdeclare\s|\bselect\b|\bupdate\b|\binsert\b|\.\./|\.\.\\)
if regex.test(l_get2) then

sURL=server.htmlencode(lcase(http://+Request.ServerVariables(HTTP_HOST)+Request.ServerVariables(SCRIPT_NAME)+?+Request.ServerVariables(QUERY_STRING)))
IP=server.htmlencode(Request.ServerVariables(HTTP_X_FORWARDED_FOR))
If IP =  Then
IP=server.htmlencode(Request.ServerVariables(REMOTE_ADDR))
end if

slog(brIllegal operation IP： Illegal operation code： Illegal operation time： HTTP_X_FORWARDED_FOR))
If IP =  Then
IP=server.htmlencode(Request.ServerVariables(REMOTE_ADDR))
end if
Response.Write System automatically holds up illegal operation code!QUERY_STRING))Your true IP isscriptalert(' System automatically holds up illegal operation code,records your illegal operation!');location.href='http://+Request.ServerVariables(HTTP_HOST)+/XXX.htm))';/script
Response.end
end sub
sub slog(logs)
toppath = Server.Mappath(log.htm)
Set fs = CreateObject(scripting.filesystemobject)
If Not Fs.FILEEXISTS(toppath) Then
Set Ts = fs.createtextfile(toppath, True)
Ts.close
end if
Set Ts= Fs.OpenTextFile(toppath,1)
Do While Not Ts.AtEndOfStream
Errorlog = Errorlog
下面是检测到攻击跳转的页面XXX.htm
head
meta http-equiv=Content-Type c /
title/title
style type=text/css
!--
body,td,th {font-size: 9pt;line-height:14px;}
.zi_1{color:#f10c01;}
--
/style
/head
body
table width=100% height=100% border=0 cellpadding=0 cellspacing=0
tr
td valign=middletable width=347 border=0 align=center cellpadding=0 cellspacing=0

tr
td您访问的地址不存在或已更改。br
系统将在 span class=zi_11/span 秒钟内返回首页，如无响应，请单击下面按钮span class=zi_1返回
a href=http://www.3800hk.com//a/span/td
/tr

/table/td
/tr
/table
script language=JavaScript
setTimeout(top.window.location='http://www.3800hk.com/';,3000);
/script
/body
/html
使用方法
找到网站下面包含Server.CreateObject(ADODB.Connection)的asp文件，一般为conn.asp
将上面原数据库连接代码放在这里（比如conn.asp的代码）的地方用conn.asp里面的代码替换，保存为新的conn.asp，运行发现攻击后会在当前目录下生成一个log.htm的文件，该文件记录了黑客的非法操作和ip地址，请将XXX.htm这个文件放于网站根目录下，发现攻击后会跳转到该页，其中的网址大家改成自己的！
下载地址：

2008-8-19 16:01 上传

站长的安全利剑.rar

下载权限:: 版本vip会员

本地下载检测资源提取码: 需要终身vip或更高权限

有些游戏资源需要vip下载开通请点击开通vip

[黑客动画] 站长的安全利剑

发表回复

浏览过的版块

楼主

热门推荐