网络程序员伴侣Lshdic--脚本加解密器
功能比较强大的一款加密器,包括加密前后的测试与常规字符统计,加密方式包括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需刷新才能执行]