網絡程序員伴侶Lshdic--腳本加解密器
2024-05-04 11:09:17
供稿：網友
功能比較強大的一款加密器,包括加密前后的測試與常規字符統計,加密方式包括js和vbs,可以選擇使用
以下為源碼,復制保存為.htm格式即可使用
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; Charset=gb2312">
<META name="GENERATOR" content="網絡程序員伴侶-Lshdic 2002">
<TITLE>網絡程序員伴侶Lshdic--腳本加解密器</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>
