编写木马程序_asp木马程序

ASP网站有木马，高分悬赏安全高手解答

建站一段时间后总能听得到什么什么网站被挂马，什么网站被黑。好像入侵挂马似乎是件很简单的事情。其实，入侵不简单，简单的是你的网站的必要安全措施并未做好。

有条件建议找专业做网站安全的sine安全来做安全维护。

一：挂马预防措施：

1、建议用户通过ftp来上传、维护网页，尽量不安装asp的上传程序。

2、定期对网站进行安全的检测，具体可以利用网上一些工具，如sinesafe网站挂马检测工具！

序，只要可以上传文件的asp都要进行身份认证!

3、asp程序管理员的用户名和密码要有一定复杂性，不能过于简单，还要注意定期更换。

4、到正规网站下载asp程序，下载后要对其数据库名称和存放路径进行修改，数据库文件名称也要有一定复杂性。

5、要尽量保持程序是最新版本。

6、不要在网页上加注后台管理程序登陆页面的链接。

7、为防止程序有未知漏洞，可以在维护后删除后台管理程序的登陆页面，下次维护时再通过ftp上传即可。

8、要时常备份数据库等重要文件。

9、日常要多维护，并注意空间中是否有来历不明的asp文件。记住：一分汗水，换一分安全!

10、一旦发现被入侵，除非自己能识别出所有木马文件，否则要删除所有文件。

11、对asp上传程序的调用一定要进行身份认证，并只允许信任的人使用上传程序。这其中包括各种新闻发布、商城及论坛程

二：挂马恢复措施：

1.修改帐号密码

不管是商业或不是，初始密码多半都是admin。因此你接到网站程序第一件事情就是“修改帐号密码”。帐号

密码就不要在使用以前你习惯的，换点特别的。尽量将字母数字及符号一起。此外密码最好超过15位。尚若你使用

SQL的话应该使用特别点的帐号密码，不要在使用什么什么admin之类，否则很容易被入侵。

2.创建一个robots.txt

Robots能够有效的防范利用搜索引擎窃取信息的骇客。

3.修改后台文件

第一步：修改后台里的验证文件的名称。

第二步：修改conn.asp，防止非法下载，也可对数据库加密后在修改conn.asp。

第三步：修改ACESS数据库名称，越复杂越好，可以的话将数据所在目录的换一下。

4.限制登陆后台IP

此方法是最有效的，每位虚拟主机用户应该都有个功能。你的IP不固定的话就麻烦点每次改一下咯，安全第一嘛。

5.自定义404页面及自定义传送ASP错误信息

404能够让骇客批量查找你的后台一些重要文件及检查网页是否存在注入漏洞。

ASP错误嘛，可能会向不明来意者传送对方想要的信息。

6.慎重选择网站程序

注意一下网站程序是否本身存在漏洞，好坏你我心里该有把秤。

7.谨慎上传漏洞

据悉，上传漏洞往往是最简单也是最严重的，能够让黑客或骇客们轻松控制你的网站。

可以禁止上传或着限制上传的文件类型。不懂的话可以找专业做网站安全的sinesafe公司。

8. cookie 保护

登陆时尽量不要去访问其他站点，以防止 cookie 泄密。切记退出时要点退出在关闭所有浏览器。

9.目录权限

请管理员设置好一些重要的目录权限，防止非正常的访问。如不要给上传目录执行脚本权限及不要给非上传目录给于写入权。

10.自我测试

如今在网上黑客工具一箩筐，不防找一些来测试下你的网站是否OK。

11.例行维护

a.定期备份数据。最好每日备份一次，下载了备份文件后应该及时删除主机上的备份文件。

b.定期更改数据库的名字及管理员帐密。

c.借WEB或FTP管理，查看所有目录体积，最后修改时间以及文件数，检查是文件是否有异常，以及查看是否有异常的账号。

网站被挂马一般都是网站程序存在漏洞或者服务器安全性能不达标被不法黑客入侵攻击而挂马的。

网站被挂马是普遍存在现象然而也是每一个网站运营者的心腹之患。

您是否因为网站和服务器天天被入侵挂马等问题也曾有过想放弃的想法呢，您否也因为不太了解网站技术的问题而耽误了网站的运营，您是否也因为精心运营的网站反反复复被一些无聊的黑客入侵挂马感到徬彷且很无耐。有条件建议找专业做网站安全的sine安全来做安全维护。

如何在asp中防止图片木马上传

对于ASP程序的网站，木马注入最常见的方法之一就是上传图片木马。那么，如何防止图片木马上传呢？利用下面的代码，也许可以帮你实现。

const adTypeBinary=1

dim jpg(1):jpg(0)=CByte(HFF;):jpg(1)=CByte(HD8;)

dim bmp(1):bmp(0)=CByte(H42;):bmp(1)=CByte(H4D;)

dim png(3):png(0)=CByte(H89;):png(1)=CByte(H50;):png(2)=CByte(H4E;):png(3)=CByte(H47;)

dim

gif(5):gif(0)=CByte(H47;):gif(1)=CByte(H49;):gif(2)=CByte(H46;):gif(3)=CByte(H39;):gif(4)=CByte(H38;):gif(5)=CByte(H61;)

Response.Write CheckFileType(Server.MapPath("2.gif"))

function CheckFileType(filename)

on error resume next

CheckFileType=false

dim fstream,fileExt,stamp,i

fileExt=mid(filename,InStrRev(filename,".")+1)

set fstream=Server.createobject("ADODB.Stream")

fstream.Open

fstream.Type=adTypeBinary

fstream.LoadFromFile filename

fstream.position=0

select case fileExt

case "jpg","jpeg"

stamp=fstream.read(2)

for i=0 to 1

if ascB(MidB(stamp,i+1,1))=jpg(i) then CheckFileType=true else CheckFileType=false

next

case "gif"

stamp=fstream.read(6)

for i=0 to 5

if ascB(MidB(stamp,i+1,1))=gif(i) then CheckFileType=true else CheckFileType=false

next

case "png"

stamp=fstream.read(4)

for i=0 to 3

if ascB(MidB(stamp,i+1,1))=png(i) then CheckFileType=true else CheckFileType=false

next

case "bmp"

stamp=fstream.read(2)

for i=0 to 1

if ascB(MidB(stamp,i+1,1))=bmp(i) then CheckFileType=true else CheckFileType=false

next

end select

fstream.Close

set fseteam=nothing

if err.number0 then CheckFileType=false

end function

%

asp木马无法删除，怎么办？

前面的回答我好无语-

-

我比较常用的一个办法就是把所有内容做一个备份，然后用你的服务器提供的清空目录功能将所有文件清空，然后再把文件上传回去

另外你也可以自己找一个ASP木马（上网搜索一下“十三少ASP木马生成器”，这个木马我比较常用），然后把木马上传到自己服务器上，用浏览器访问，使用这个木马把服务器中具有木马特征的文件扫描出来，然后用木马自带的删除工具将木马删除，记得在使用后把该木马删除，免得成为后门！

清除asp木马脚本

%

function htmlencode(str)'滤出一些非法和无效的代码，安全性和UBB就在这里完成

dim result

dim l

if isNULL(str) then

htmlencode=""

exit function

end if

l=len(str)

result=""

dim i

for i = 1 to l

select case mid(str,i,1)'依次取出1个字符来进行检查。

case ""

result=result+""

case ""

result=result+""

case chr(13)

result=result+"br"

case chr(34)

result=result+"""

case ""

result=result+""

case chr(32)

'result=result+" "

if i+1=l and i-10 then

if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then

result=result+" "

else

result=result+" "

end if

else

result=result+" "

end if

case chr(9)

result=result+" "

case else

result=result+mid(str,i,1)

end select

next

htmlencode=result

end function

function sustainhtml(str)

dim result

dim l

if isNULL(str) then

sustainhtml=""

exit function

end if

l=len(str)

result=""

dim i

for i = 1 to l

select case mid(str,i,1)

case chr(13)

result=result+"br"

case chr(34)

result=result+"""

case chr(32)

'result=result+" "

if i+1=l and i-10 then

if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then

result=result+" "

else

result=result+" "

end if

else

result=result+" "

end if

case ""

result=result+""

case chr(9)

result=result+" "

case else

result=result+mid(str,i,1)

end select

next

sustainhtml=result

end function

' 检查sql字符串中是否有单引号，有则进行转化

function CheckStr(str)

dim tstr,l,i,ch

l=len(str)

for i=1 to l

ch=mid(str,i,1)

if ch="'" then

tstr=tstr+"'"

end if

tstr=tstr+ch

next

CheckStr=tstr

end function

function IsValidEmail(email)

dim names, name, i, c

'Check for valid syntax in an email address.

'检查邮箱的字符串是否合法

IsValidEmail = true

names = Split(email, "@")

if UBound(names) 1 then

IsValidEmail = false

exit function

end if

for each name in names

if Len(name) = 0 then

IsValidEmail = false

exit function

end if

for i = 1 to Len(name)

c = Lcase(Mid(name, i, 1))

if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) = 0 and not IsNumeric(c) then

IsValidEmail = false

exit function

end if

next

if Left(name, 1) = "." or Right(name, 1) = "." then

IsValidEmail = false

exit function

end if

next

if InStr(names(1), ".") = 0 then

IsValidEmail = false

exit function

end if

i = Len(names(1)) - InStrRev(names(1), ".")

if i 2 and i 3 then

IsValidEmail = false

exit function

end if

if InStr(email, "..") 0 then

IsValidEmail = false

end if

end function

%

'你也不用上网找解决漏洞的代码了，以上面的保存成char.inc 再include调用就行了 ，把楼上的也写进来就更完美了`

asp木马修改

你对asp的热爱与追求让人钦佩！

如果本着学习的心态研究木马程序，这对你技术水平的提升是有很大帮助的。但如果用在其它方面，奉劝你一句：”切莫尝试，适可而止！“。木马的危害人人兼知，你不希望别人用木马侵害你的网站，别人也不希望受到侵害。做站长的小伙伴们都不容易，希望大家能够互相体谅。

以下信息仅供学习参考：

木马程序都是代码，不管加了什么壳，用文本编辑器打开，找到代码行，分析密码所在位置，直接修改就可以了。