网络程序员伴侣Lshdic--脚本加解密器
时间：2020-02-02来源：系统城作者：电脑系统城
<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>
<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>
分享到：
相关信息
-
-
-
2020-02-02
HTANoid 用hta编写的一个经典的游戏 -
2020-02-02
A notepad made in HTA(hta实现的记事本) -
2020-02-02
hta实现的定时关机小程序
-
-
hta编写的常用工具箱(常用工具快捷方式等)首先值得说明的是：这个小程序的名称还待定，欢迎各位朋友给出建议。另外，欢迎对程序存在的bug和功能给出建议和意见，本人在此表示感谢！！...
2020-02-02
热门系统总排行
- 4754次 1 雨林木风Win10专业版64位纯净版系统官方下载
- 3784次 2 电脑公司ghost win7 64位纯净专业版v2019.08
- 2502次 3 Win11官方最新版系统下载_Ghost Win11 22000.434(KB5009566)专业免激活版下载
- 2324次 4 深度技术 GHOST WIN10 X64 纯净版 V2019.09（64位）
- 1882次 5 电脑系统城ghost win7 sp132位 经典标准版 V2019.11
- 1794次 6 电脑公司 GHOST XP SP3 安全稳定纯净版 V2019.08
- 1733次 7 电脑公司ghost win7 32位精简旗舰版v2019.08
- 1700次 8 电脑公司 GHOST WIN10 X64 正式专业版 V2019.09（64位）
系统教程栏目
栏目热门教程
人气教程排行
- 56679次 1 联想笔记本进入bios的三种方法 联想笔记本怎么进入bios
- 51284次 2 打印机为什么打印出来是黑的_打印出来纸张表面黑的解决方法
- 39166次 3 笔记本电脑序列号在哪|笔记本电脑序列号怎么看
- 32783次 4 对于目标文件系统文件过大无法复制到u盘怎么解决方法
- 31658次 5 键盘全部按键没反应的解决方法 键盘被锁住按什么键恢复
- 30927次 6 键盘win键无效的解决办法 电脑win键失效怎么办?
- 30837次 7 mac连上wifi却上不了网如何解决 网络没问题但mac无法上网怎么办
- 27299次 8 小马激活工具 Win10正版激活 一键完美激活Win10_小编亲测
- 26437次 9 win7旗舰版激活密钥大全
- 25426次 10 电脑免费的加速器有哪些 永久免费的四款加速器推荐
站长推荐
- 12747次 1 Win11怎么激活？Win11系统永久激活方法汇总(附激活码)
- 6277次 2 联想拯救者win10一键恢复如何使用_联想win10一键还原孔使用方法
- 5819次 3 如何用u盘装系统？用系统城U盘启动制作盘安装Win10系统教程
- 5116次 4 怎么在u盘pe下给电脑系统安装ahci驱动
- 4682次 5 联想电脑开机出现PXE-MOF:Exiting Intel PXE ROM怎么解决
- 3947次 6 华硕笔记本bios utility ez mode设置图解以及切换成传统bios界面方法华硕笔记本bios utility ez mode设置图解以及切换成传统bios界面方法
- 3173次 7 win10怎么改为uefi启动_win10系统设置uefi启动模式的方法
- 1926次 8 CentOS 8 系统图形化安装教程（超详细）
- 1876次 9 win10系统下检测不到独立显卡如何解决
- 1850次 10 VMware中安装Linux系统（Redhat8）及虚拟机的网络配置方法
热门系统下载
- 4754次 1 雨林木风Win10专业版64位纯净版系统官方下载
- 4626次 2 Windows Server 2019 官方原版系统64位系统下载
- 4322次 3 网吧游戏专用Win7 Sp1 64位免激活旗舰版 V2021.05
- 4248次 4 Windows Server 2008 简体中文官方原版32位系统下载
- 3944次 5 Windows Server 2008 R2 简体中文官方原版64位系统下载
- 3784次 6 电脑公司ghost win7 64位纯净专业版v2019.08
- 3617次 7 电脑公司ghost win10 64位游戏专用精简网吧版v2020.05
- 3569次 8 Windows Server 2012 R2 官方原版系统64位系统下载
