返回列表 发新帖

网络程序员伴侣Lshdic--脚本加解密器

[复制链接]

14

主题

61

帖子

273

积分

初中生

Rank: 3Rank: 3

金币
106
好评
1
贡献
0
发表于 2021-12-11 05:06:56 来自手机  | 显示全部楼层 | 阅读模式
本帖最后由 1712362875 于 2021-12-11 05:09 编辑

能比较强大的一款加密器,包括加密前后的测试与常规字符统计,加密方式包括js和vbs,可以选择使用

以下为源码,复制保存为.htm格式即可使用


  1. <HTML>  
  2. <HEAD>  
  3. <META http-equiv="Content-Type" content="text/html; Charset=gb2312">  
  4. <META name="GENERATOR" content="网络程序员伴侣-Lshdic 2002">  
  5. <TITLE>网络程序员伴侣Lshdic--脚本加解密器</TITLE>  
  6. </HEAD>  
  7. <BODY bgcolor="D1DCE7">  
  8. <center>  
  9. <table width=600 bordercolordark=yellow bordercolorlight=navy border=1 cellspacing=0   
  10. bgcolor='EDCDDB' cellpadding=0><tr><td>  
  11. <input type=button id=ok1 value="加密前测试" onclick="runpath(txt1.value)"><input   
  12. type=button value="常规字符统计" onclick="alert(txt1.value.length)" id=len1>
  13.   
  14. <Textarea style="width:100%;height:150" id=txt1></textarea>
  15.   
  16. <input type=button id=js1 value="JS加密↓" onclick="chicks(this);vbs1.disabled=!  
  17. vbs1.disabled;"><input type=button id=vbs1 value="vbs加密↓" onclick="forstr();chicks  
  18. (this);js1.disabled=!js1.disabled">
  19.   
  20. <Textarea disabled style="width:100%;height:150;background-color:dddddd"   
  21. id=txt2></textarea>
  22.   
  23. <input type=button id=ok2 value="加密后测试" disabled onclick="runpath(txt2.value)"><input   
  24. type=button value="加密字符统计" onclick="alert(txt2.value.length)" id=len2 disabled>  
  25. </td></tr></table>  
  26. <script language=vbs>  
  27. dim vbsstr,vbstr  
  28. sub forstr  
  29. if js1.disabled=false then  
  30. vbstr=txt1.value  
  31. vbsstr=strreverse(vbstr)  
  32. end if  
  33. end sub  
  34. </script>  
  35. <script>  
  36. function chicks(where){  
  37. jsstr=String.fromCharCode(60)  
  38. if(where.value.indexOf('↓')!=-1)  
  39. {  

  40. where.value=where.value.replace('加密↓','解密↑')  
  41. txt1.disabled=true;txt1.style.backgroundColor='dddddd'  
  42. txt2.disabled=false;txt2.style.backgroundColor='white'  
  43. ok2.disabled=false;ok2.focus();  
  44. ok1.disabled=true;len1.disabled=true;len2.disabled=false;  
  45. if(where.id=='js1'){  
  46. txt2.value='<script>document.write(unescape(\''+escape(txt1.value)+'\'))'+jsstr+'/script>'  
  47. txt1.value=""}  
  48. else{  
  49. txt2.value='<textarea style="display:none"   
  50. id=lshdic200Xpage>'+vbsstr+'</textarea>'+jsstr+'script language=vbs>document.write  
  51. (strreverse(lshdic200Xpage.value))'+String.fromCharCode(60)+'/script>'  
  52. txt1.value=""}  

  53. }else{  

  54. where.value=where.value.replace('解密↑','加密↓')  
  55. txt1.disabled=false;txt1.style.backgroundColor='white'  
  56. txt2.disabled=true;txt2.style.backgroundColor='dddddd'  
  57. ok2.disabled=true;txt1.focus();ok1.disabled=false;len1.disabled=false;len2.disabled=true;  
  58. if(where.id=='js1'){txt1.value=unescape(txt2.value.replace('<script>document.write(unescape  
  59. (\'','').replace('\'))'+jsstr+'/script>',''))  
  60. txt2.value=""}  
  61. else{  
  62. txt1.value=vbstr  
  63. txt2.value=""}  

  64. }}  
  65. function runpath(whattxt){  
  66. msg1=open('','','')  
  67. msg1.document.open()  
  68. msg1.document.write(whattxt)  
  69. msg1.document.close()  
  70. }  
  71. </script>  
  72. </BODY>  
  73. </HTML>
复制代码
GG
回复

使用道具 举报

3

主题

466

帖子

911

积分

高中生

Rank: 4

金币
410
好评
0
贡献
0

考神

发表于 2021-12-11 07:16:11 来自手机  | 显示全部楼层
沙发沙发
回复

使用道具 举报

1

主题

187

帖子

556

积分

初中生

Rank: 3Rank: 3

金币
224
好评
0
贡献
0
QQ
发表于 2021-12-15 14:36:21 来自手机  | 显示全部楼层
感谢分享
回复

使用道具 举报

0

主题

42

帖子

123

积分

小学生

Rank: 2

金币
31
好评
0
贡献
0
发表于 2021-12-20 16:32:06 来自手机  | 显示全部楼层
8520568840400
回复

使用道具 举报

0

主题

498

帖子

1016

积分

高中生

Rank: 4

金币
0
好评
0
贡献
0

考神

发表于 5 天前 来自手机  | 显示全部楼层
感谢分享
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

快速回复 返回顶部 返回列表