A relatively powerful encryptor, including pre- and post-encryption testing and regular character statistics. The encryption methods include js and vbs, which you can choose to use.
The following is the source code, copy and save it in .htm format for use
<HTML>
<HEAD>
<META http-equiv=Content-Type content=text/html; Charset=gb2312>
<META name=GENERATOR content=Network Programmer's Companion-Lshdic 2002>
<TITLE>Network Programmer's Companion Lshdic--Script Encryptor and Decryptor</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=Test before encryption onclick=runpath(txt1.value)><input
type=button value=regular character statistics onclick=alert(txt1.value.length) id=len1>
<Textarea style=width:100%;height:150 id=txt1></textarea>
<input type=button id=js1 value=JS encryption↓ onclick=chicks(this);vbs1.disabled=!
vbs1.disabled;><input type=button id=vbs1 value=vbsencryption↓ 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=Test after encryption disabled onclick=runpath(txt2.value)><input
type=button value=encrypted character statistics onclick=alert(txt2.value.length) id=len2 disabled>
</td></tr></table>
<script language=vbs>
dim vbsstr,vbstr
subforstr
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('Encryption↓','Decryption↑')
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('decryption↑','encryption↓')
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>