作用较为强劲的一款加密器,包括加密前后左右的检测与基本字符统计,加密方法包括js和vbs,能够挑选应用

下列为源代码,拷贝储存为.htm格式就可以应用

互联网程序猿爱人Lshdic--脚本制作加解密器
dim vbsstr,vbstr sub forstr if js1.disabled=false then vbstr=txt1.value vbsstr=strreverse(vbstr) end if end sub 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='document.write(unescape(\'' escape(txt1.value) '\'))' jsstr '/script>' txt1.value=""} else{ txt2.value='' vbsstr '' 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('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() }
[Ctrl A 选中 注:引进外界Js需再更新一下网页页面才可以实行]