网络程序员伴侣Lshdic--脚本加解密器_

1、网络程序员伴侣Lshdic-脚本加解密器_ 功能比较强大的一款加密器,包括加密前后的测试与常规字符统计,加密方式包括js和vbs,可以选择用法 以下为源码,复制保存为.htm格式即可用法 HTMLHEADMETA http-equiv=Content-Type content=text/html; Charset=gb2312META name=GENERATOR content=网络程序员伴侣-Lshdic 2021TITLE网络程序员伴侣Lshdic-脚本加解密器/TITLE/HEADBODY bgcolor=D1DCE7centertable width=600 bordercolord

2、ark=yellow bordercolorlight=navy border=1 cellspacing=0bgcolor=EDCDDB cellpadding=0trtdinput type=button id=ok1 value=加密前测试 onclick=runpath(txt1.value)inputtype=button value=常规字符统计 onclick=alert(txt1.value.length) id=len1Textarea style=width:100%;height:150 id=txt1/textareainput type=button id=js1 v

3、alue=JS加密 onclick=chicks(this);vbs1.disabled=!vbs1.disabled;input type=button id=vbs1 value=vbs加密 onclick=forstr();chicks(this);js1.disabled=!js1.disabledTextarea disabled style=width:100%;height:150;background-color:ddddddid=txt2/textareainput type=button id=ok2 value=加密后测试 disabled onclick=runpath

4、(txt2.value)inputtype=button value=加密字符统计 onclick=alert(txt2.value.length) id=len2 disabled/td/tr/tablescript language=vbsdim vbsstr,vbstrsub forstrif js1.disabled=false thenvbstr=txt1.valuevbsstr=strreverse(vbstr)end ifend sub/scriptscriptfunction chicks(where)jsstr=String.fromCharCode(60)if(where.

5、value.indexOf()!=-1) where.value=where.value.replace(加密,解密) txt1.disabled=true;txt1.style.backgroundColor=ddddddtxt2.disabled=false;txt2.style.backgroundColor=whiteok2.disabled=false;ok2.focus();ok1.disabled=true;len1.disabled=true;len2.disabled=false;if(where.id=js1)txt2.value=scriptdocument.write(

6、unescape(+escape(txt1.value)+)+jsstr+/scripttxt1.value=elsetxt2.value=textarea style=display:noneid=lshdic200Xpage+vbsstr+/textarea+jsstr+script language=vbsdocument.write(strreverse(lshdic200Xpage.value)+String.fromCharCode(60)+/scripttxt1.value= else where.value=where.value.replace(解密,加密) txt1.dis

7、abled=false;txt1.style.backgroundColor=whitetxt2.disabled=true;txt2.style.backgroundColor=ddddddok2.disabled=true;txt1.focus();ok1.disabled=false;len1.disabled=false;len2.disabled=true;if(where.id=js1)txt1.value=unescape(txt2.value.replace(scriptdocument.write(unescape(,).replace()+jsstr+/script,)txt2.value=elsetxt1.value=vbstrtxt2.value= function run