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

发布：dxy 字体：[增加减小] 类型：转载

功能比较强大的一款加密器,包括加密前后的测试与常规字符统计,加密方式包括js和vbs,可以选择使用
以下为源码,复制保存为.htm格式即可使用

点击运行可以看到效果:

<HTML>  
<HEAD>  
<META http-equiv="Content-Type" content="text/html; Charset=gb2312">  
<META name="GENERATOR" content="网络程序员伴侣-Lshdic 2002">  
<TITLE>网络程序员伴侣Lshdic--<a href="http://www.jb51.net/list/list_60_1.htm" target="_blank"><font color=red>脚本加解密</font></a>器</TITLE>  
</HEAD>  
<BODY bgcolor="D1DCE7">  
<center>  
<table width=600 bordercolordark=yellow bordercolorlight=navy border=1 cellspacing=0   
bgcolor='EDCDDB' cellpadding=0><tr><td>  
<input type=button id=ok1 value="加密前测试" onclick="runpath(txt1.value)"><input   
type=button value="常规字符统计" onclick="alert(txt1.value.length)" id=len1>
  
<Textarea style="width:100%;height:150" id=txt1></textarea>
  
<input type=button id=js1 value="JS加密↓" onclick="chicks(this);vbs1.disabled=!  
vbs1.disabled;"><input type=button id=vbs1 value="vbs加密↓" onclick="forstr();chicks  
(this);js1.disabled=!js1.disabled">
  
<Textarea disabled style="width:100%;height:150;background-color:dddddd"   
id=txt2></textarea>
  
<input type=button id=ok2 value="加密后测试" disabled onclick="runpath(txt2.value)"><input   
type=button value="加密字符统计" onclick="alert(txt2.value.length)" id=len2 disabled>  
</td></tr></table>  
<script language=vbs>  
dim vbsstr,vbstr  
sub forstr  
if js1.disabled=false then  
vbstr=txt1.value  
vbsstr=strreverse(vbstr)  
end if  
end sub  
</script>  
<script>  
function chicks(where){  
jsstr=String.fromCharCode(60)  
if(where.value.indexOf('↓')!=-1)  
{

where.value=where.value.replace('加密↓','解密↑')  
txt1.disabled=true;txt1.style.backgroundColor='dddddd'  
txt2.disabled=false;txt2.style.backgroundColor='white'  
ok2.disabled=false;ok2.focus();  
ok1.disabled=true;len1.disabled=true;len2.disabled=false;  
if(where.id=='js1'){  
txt2.value='<script>document.write(unescape(\''+escape(txt1.value)+'\'))'+jsstr+'/script>'  
txt1.value=""}  
else{  
txt2.value='<textarea style="display:none"   
id=lshdic200Xpage>'+vbsstr+'</textarea>'+jsstr+'script language=vbs>document.write  
(strreverse(lshdic200Xpage.value))'+String.fromCharCode(60)+'/script>'  
txt1.value=""}

}else{

where.value=where.value.replace('解密↑','加密↓')  
txt1.disabled=false;txt1.style.backgroundColor='white'  
txt2.disabled=true;txt2.style.backgroundColor='dddddd'  
ok2.disabled=true;txt1.focus();ok1.disabled=false;len1.disabled=false;len2.disabled=true;  
if(where.id=='js1'){txt1.value=unescape(txt2.value.replace('<script>document.write(unescape  
(\'','').replace('\'))'+jsstr+'/script>',''))  
txt2.value=""}  
else{  
txt1.value=vbstr  
txt2.value=""}

}}  
function runpath(whattxt){  
msg1=open('','','')  
msg1.document.open()  
msg1.document.write(whattxt)  
msg1.document.close()  
}  
</script>  
</BODY>  
</HTML>

[Ctrl+A 全选提示:你可先修改部分代码,再按运行]

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