[求助-软件问题]加密免杀你asp马 [复制链接]

大家在入侵中应该是捡到过别人的Webshell吧?也许有的大马功能很好，于是你就用了，但是你没想过该马可能有后门?现在很多的大马都加密了，打开时候一片乱码，是不是也想加密自己的大马了，加密后的Webshell不仅可以防止别人捡我们的Shell用，还能免杀webshell。ASP木马加密不难，让我们一起踏上大马加密之旅。
　　一:人工加密
　　1.主加密函数的编写
　　1)主解密与解密函数
　　对大马的加密关键是编写我们的加密函数，然后写出相应的解密函数。我这里先得对几个ASP自带函数有个了解
　　CHR：将ASCII 字码转换成字符
　　REPLACE:将一个字符串取代 部份字。
　　ASC：将字符串的第一字母转换成 ANSI (美国国家标准符号)字码。
　　Len：取得字符串的长度。
　　然后对IF语句和一些VBS函数相关知识有个了解。大家有不懂可以查看Windows脚本技术，里面比较详细。
　　我们先看下一个最常用的解密函数吧。
dim ShiSan,ShiSanNewstr,ShiSanI
Function ShiSanFun(ShiSanObjstr)
ShiSanObjstr = Replace(ShiSanObjstr, "╁", """")
For ShiSanI = 1 To Len(ShiSanObjstr)
If Mid(ShiSanObjstr, ShiSanI, 1) <> "╋" Then
ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) & ShiSanNewStr
Else
ShiSanNewStr = vbCrLf & ShiSanNewStr
End If
Next
ShiSanFun = ShiSanNewStr
End Function

　　这个解密函数就是将加密后的代码解密。他先将解密代码(Str)中的╁换为引号(")，得到Str1,然后通过FOR循环，将加密部分(Str1)逐个取出，将取出的字符倒叙连接成一个新字符，并将╋换为vbcrlf(换行符)。这个加密函数应用的相当广泛，就连华夏免杀Webshell也用了这个函数
　　好了。知道加密的原理后我们就可以编写自己的加密函数了。ASP的加密函数只需要将上面的部分稍微改下，但是需要可以执行的环境(本地IIS或上传到服务器)。这里我给出了JS+HTML写的加密网页
　　---------->JS+HTML加密：












保存为html格式然后用IE打开，将需要加密的部分填写上，然后点击按钮"加密到下面文本框" ，就可以得到加密后的字符串了。
　　上面的加密函数是enCode,他的作用是将ASP代码(Code)中的换行换为鹏，得到Code1，然后将Code1倒序(13和10分别是回车和换行的编码)。比如：
　　Sub RRS(str)
　　response.write(str)
　　End Sub
　　加密后就为
　　buS dnE鹏)rts(etirw.esnopser 鹏)rts(SRR buS
　　写了加密函数后就要写出对于的解密函数，必须用ASP编写
dim psEncode,psStr,psI
Function unCode(psEncode)
For psI=1 To Len(psEncode)
If Mid(psEncode,psI,1)<>"鹏" Then
psNewStr=Mid(psEncode,psI,1)&psNewStr
Else
psNewStr=vbCrlf&psNewStr
End If
Next
unCode=psNewStr
End Function
　　这样我们就可以将ASP中的RRS函数用
　　execute(unCode("buS dnE鹏)rts(etirw.esnopser 鹏)rts(SRR buS"))
　　代替掉
　　Sub RRS(str)
　　response.write(str)
　　End Sub
　　我们可以利用这个加密函数加密多处，这样多加密一般可以免杀大马
　　(2)加密解密函数
　　直接调用解密函数，很容易使自己的解密函数泄露，我们可以利用一个函数来加密我们的加密函数，这样就难找一点了，这主要是为了保护我们的马，对于上面我们的解密函数，我们可以再写一个加密函数，然后调用execute来，这样就可以隐藏我们的解密函数了。这样我们解密函数的源代码就不会明文出现在webshell里了
　　(3)嵌套加密
　　我们可以在主加密函数里面嵌套次加密函数，不过这样我们需要对应的写出多个解密函数，这样加密比较侧地，小破孩就马就是采用这种加密方法。由于方法相同，我就不多啰嗦了，大家有兴趣可以自己去研究下幽月或小破孩的，我这里有源码，想要的可以到我博客(hi.baidu.com/novaa)
　　2.密码的加密
　　大家是否遇见过webshell的密码是很长的数字，20多位或30多位。这就是对密码加密了的，通过对密码加密，可以防止别人通过查看我们的源代码得到我们的密码，除非他完全解密了我们的webshell，否则我们大马就是安全的。这里看一个对密码加密的函数。
Function enPass(psStr,Pos)
Dim i,psNewStr
For i = 1 To Len(psStr)
psNewStr= psNewStr& Asc(Mid(psStr, i, 1))+Pos & (20080808-Pos)
Next
enPass =psNewStr
End Function
　　
　　上面的这个加密函数是对每一位密码的数字取ascii码，然后加上Pos & (20080808-Pos)&i，这里注意&是连接字符，比如n&ov&aa结果是novaa
　　然后我们把解密后的部分定义为UserPass
　　然后在验证的地方通过
　　enPass(request.form("pass"),pn)=UserPass 来进行身份验证，当然，通过修改密码的验证方式可以轻松的修改密码，但是前提是你已经完全解密了这个webshell了。
　　3.后门的隐藏技术
　　怎么隐藏后门?其实主要就利用ASP的自带函数和一些其他技巧，这里我以破小孩后门来解释
RRS"

网页挂马的得看看