,,求解开jscript.encode代码的asp函数
Java语言（一种计算机语言，尤用于创建网站）描述语言函数已经有了，有没有山杨的函数？或者有没有高手可以把下面的写成白杨的，万分感谢~!
复制代码代码如下：SCRIPTLANGUAGE='JavaScript '！- functiontoEncode(s，l){ enc=new ActiveX object(' Scripting .编码器');returnenc .EncodeScriptFile(" . "l，s，0，l ' cript ')；}
varSTATE _ COPY _ INPUT=100 varSTATE _ READLEN=101 varSTATE _ DECODE=102 varSTATE _ une scape=103
varpick_encoding=newArray( 1，2，0，1，2，0，2，0，0，2，0，1，0，0，0，0，0，0，2，1，0，0，0，0，0，0，0，0，1，0，0，0，0，0，0，0，0，0，0，0，0，0，0，0，1，0，0，0，0，0，0，0，0，0，0，1，1，1，1，1，2，0，0，0，0
varrawData=newArray(0x64，0x37，0x69，0x50，0x7E，0x2C，0x22，0x5A，0x65，0x4A，0x45，0x72，0x61，0x3A，0x5B，0x5E，0x79，0x66，0x5D，0x59，0x75，0x5B，0x27，0x4C，0x42，0x76，0x45，0x60，0x63，0x76，0x23，0x62，
var transformed=new array()for(vari=0；i3；我)对于(vari=31，转换[I]=new array()；I=126 I)for(varj=0；JBOY3乐队；j)transformed[j][rawData[(I-31)* 3j]]=(I==31)？9:我
var digits=new array()for(vari=0；i26i ) {数字A .charCodeAt(0) i]=i位数a .charCodeAt(0)I]=I 26 } for(vari=0；i10I)数字['0 '。charCodeAt(0) i]=i 52位[0x2b]=62位[0x2f]=63
函数unescape(char){ var escapes=' #！*$' varescaped='\r\n@ '
如果(char。charcodeat(0)126)如果(转义，则返回char。(char)的索引！=-1)回车转义。substr(转义。(char)的索引，1)返回“？”}
function decode base 64(string){ var val=0 val=(digits[string。substr(0，1)).charCodeAt(0)]2)val=(digits[string。substr(1，1).charCodeAt(0)]4)val=(digits[string。substr(1，1).charCodeAt(0)]0xf)12 val=((digits[string。substr(2，1)).charCodeAt(0)]2)8)val=((digits[string。substr(2，1)).charCodeAt(0)]0x 3)22)val=(digits[string。substr(3，1).charCodeAt(0)]16) returnval }
函数tranencode(编码字符串){
varmarker='#@~^' varstringindex=0 varscript index=-1 varuncodingindex=0 varchar=null varencodinglength=uncodinglength=0 varstate=state _ copy _ input varuncodingstring=' ' varre，arr
while(STATE){ switch(STATE){ case(STATE _ COPY _ INPUT):脚本索引=编码字符串。if(scriptIndex！=-1){ uncodingstring=编码字符串。substring(字符串索引，脚本索引)脚本索引=标记。length STATE=STATE _ READLEN } else { string index=string index==0？0:字符串索引un编码字符串=编码字符串。substr(字符串索引，编码字符串。长度)状态=0 }中断
case(STATE _ READLEN):编码长度=编码字符串。substr(脚本索引，6)uncodinglength=decode base 64(编码长度)脚本索引=(6 '==' .长度)状态=状态_解码中断
case(STATE_DECODE): if(！uncodinglength){ string index=脚本索引'dqgaaa==^#~@'.length uncoding index=0 STATE=STATE _ COPY _ INPUT break } char=编码字符串。substr(script index，1)if(char==' @ ')STATE=STATE _ UNESCAPE else { if(char。charcode at(0)0x ff){ uncoding string=string。from charcode(transformed[pick _ encoding[uncoding indexd]][char。charcode at(0)])uncoding index } else { uncoding string=char }脚本索引uncodinglength-break }
caseSTATE _ UNESCAPE:未编码字符串=UNESCAPE(编码字符串。substr(script index，1))脚本索引；uncoding length-=2 uncoding index STATE=STATE _ DECODE break } }
re=new regexp('(JScript | VBscript).encode '，' gmi ')while(arr=re。exec(未编码字符串))未编码字符串=RegExp。左上下文正则表达式.$ 1正则表达式。右上下文returnuncodingstring }/////脚本ASP不等于vbs，只是个框架而已这段代码你在脚本里加个runat='server '然后直接调用这个函数就可以了脚本语言=' JavaScript ' runat=' server '.% toEncode(xxx) %
郑重声明：本文由网友发布，不代表盛行IT的观点，版权归原作者所有，仅为传播更多信息之目的，如有侵权请联系，我们将第一时间修改或删除，多谢。