[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
ubcc

Rank: 1

帖子
35 
积分
44 
技术
0  
捐助
0  
注册时间
2010-9-21 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-2-2 09:29 | 只看该作者

[文本处理] 批处理如何加密hta文件？

源码如下，如何加密，打开后放入记事本，保存为hta后缀
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

  2. <html>

  3. <head>

  4. <script laguage="javascript">

  5. window.resizeTo(768,452);

  6. window.moveTo(257,-500);

  7. var y=-500;

  8. show=setInterval("move()",1);

  9. function move(){

  10. if(0>y){

  11. y+=20;

  12. window.moveTo(257,y);

  13. } else {

  14. clearInterval(show);

  15. }

  16. }

  17. function move2(){

  18. if(y>-500){

  19. y-=20;

  20. window.moveTo(257,y);

  21. } else {

  22. window.close();

  23. }

  24. }

  25. </script>

  26. <hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe">

  27. <meta http-equiv="Content-Type" c>

  28. <title>Taurus's Rainbow Text</title>

  29. <style type="text/css">

  30. p{

  31.     overflow: scroll;

  32.     width: 688px;

  33.     height: 150px;

  34.     padding: 1em;

  35.     border: 4px solid #FF0000;

  36.     line-height: 1.5;

  37.     color: #FF0000;

  38.     background: #000000;

  39.     margin-left: auto; margin-right: auto; margin-top: 0px;

  40. }

  41. h1{

  42.     width: 351px;

  43.     background: #FF0000;

  44.     font-size: 16px;

  45.     font-weight:bold;

  46.     margin-left: auto; margin-right: auto; margin-bottom: 3px;

  47. }

  48. form{

  49.     width: 728px;

  50.     margin-left: auto; margin-right: auto;  margin-top: 0px;

  51. }

  52. textarea{

  53.     width: 339px;

  54.     height: 100px;

  55.     background: #FFFFFF;

  56.     border: 5px solid #FF0000;

  57.     margin-left: auto; margin-right: auto; margin-top: 0px;

  58. }

  59. body{

  60.     background: #000000;

  61. }

  62. table{

  63.    border: 8px solid #FF0000;

  64.    margin-left: auto; margin-right: auto; margin-top: 0px;

  65. }

  66. </style>

  67. </head>

  68. <body>

  69. <H1 style="width: 728px;">≮彩虹字转换器≯--www.zhuxiangtao1992.51.com--Email：179u@163.com--QQ：878038671</H1>

  70. <p>

  71. <marquee direction=down scrollamount=6>

  72. </marquee>

  73. </p>

  74. <table>

  75. <tr>

  76. <td>

  77. <H1>≮HTML脚本≯</H1>

  78. <center>

  79. <textarea name=txt2>

  80. </textarea>

  81. </center>

  82. </td>

  83. <td>

  84. <H1>≮博客代码≯</H1>

  85. <center>

  86. <textarea name=txt1>

  87. </textarea>

  88. </center>

  89. </td>

  90. </tr>

  91. </table>

  92. <table style="width:734px;border:0px">

  93. <td>

  94. <INPUT onclick=javascript:document.all['txt2'].focus();document.all['txt2'].select();word=document.all['txt2'].createTextRange();word.execCommand("Copy");alert("....复制成功!可以粘贴到支持Html格式的网页中去了....") type=button value="复制HTML脚本">

  95. <INPUT onclick=javascript:document.all['txt1'].focus();document.all['txt1'].select();word=document.all['txt1'].createTextRange();word.execCommand("Copy");alert("....复制成功！此代码可以粘贴例如51等博客网站中....") type=button value="复制代码页">

  96. <INPUT onclick=javascript:document.all['txt1'].focus();document.all['txt1'].select();word=document.all['txt1'].createTextRange();word.execCommand("Copy");alert("----主页：www.zhuxiangtao1992.51.com--Email：179u@163.com----QQ：878038671/810458918----") type=button value="联系_方式">

  97. </td>

  98. <td style="text-align:right">

  99. <u>

  100. <font size="2" color="#FF0000">www.zhuxiangtao1992.51.com  (TM)2010-2011</font>

  101. </u>

  102. <input type=button value="  退出  " onclick=setInterval("move2()",1);>

  103. </td>

  104. </table>

  105. </body>

  106. </html>
复制代码
收藏 分享

wangxiulin

Rank: 3Rank: 3

帖子
112 
积分
298 
技术
8  
捐助
0  
注册时间
2010-11-26 
2楼
发表于 2011-2-6 19:05 | 只看该作者
我已将帮你做好了加密 你打开之前必须输入you is sb密码 一切后果 作者均不负任何责任 如果您对答案满意的话 请点击评分...http://2770561.ys168.com/点击 彩虹字体转换.就可以了

TOP

ubcc

Rank: 1

帖子
35 
积分
44 
技术
0  
捐助
0  
注册时间
2010-9-21 
3楼
发表于 2011-2-19 00:28 | 只看该作者

Hta文件如何用批处理或Vbs工具加密？

hta和Html文件差不多，但是至今在网络上却没有一个可以加密hta格式文件的工具，请问批处理之家可否帮我编写下，在Dos。。。批处理论坛也没找到，不知道他们是因为太简单了没写还是没批处理之家的会员们资历高~
hta就是一个HTML应用程序(HTML  Application)，
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

  2. <html>

  3. <head>

  4. <title>package file v0.1</title>

  5. <meta http-equiv="Content-Type" c>

  6. <HTA:APPLICATION

  7. ID="package file v0.1"

  8. APPLICATI

  9. VERSION="0.1"

  10. SCROLL="no"

  11. INNERBORDER="no"

  12. C

  13. CAPTION="yes"

  14. ICON="no"

  15. SHOWINTASKBAR="yes"

  16. SINGLEINSTANCE="yes"

  17. SYSMENU="yes"

  18. MAXIMIZEBUTTON ="no"

  19. WINDOWSTATE="normal"

  20. NAVIGABLE="yes"

  21. />

  22. <SCRIPT LANGUAGE="VBScript">

  23. function transfert()

  24. dim filename

  25. filename = document.getElementById("srcFile").value

  26. if len(filename)>0 then

  27. dim oReq

  28. 'on error resume next

  29. '//创建XMLHTTP对象

  30. set oReq = CreateObject("MSXML2.XMLHTTP")

  31. oReq.open "get","file:\\" & filename,false

  32. oReq.send

  33. ff = oReq.responseBody

  34. dim u,s,kk

  35. u = lenb(ff)

  36. redim kk(u-1)

  37. for i=0 to u-1

  38. s = hex(ascb(midb(ff,i+1,1)))

  39. if len(s)<2 then

  40. s = "0" & s

  41. end if

  42. 'kk = kk & s

  43. kk(i) = s

  44. next

  45. make filename,join(kk,"")

  46. else

  47. document.getElementById("srcFile").focus

  48. msgbox "请选择要压缩的文件",16,"提示"

  49. end if

  50. end function

  51. function make(filename,data)

  52. dim htm,file

  53. file = mid(filename,instrrev(filename,"\")+1)

  54. htm = htm & data

  55. dim fso,f

  56. dim this_file

  57. this_file = file & "-pf.htm"

  58. Set fso = CreateObject("Scripting.FileSystemObject")

  59. Set f = fso.OpenTextFile(this_file, 2, True)

  60. f.Write htm

  61. msgbox "生成文件" & this_file & "成功！",64,"生成"

  62. end function

  63. </SCRIPT>

  64. </head>

  65. <body marginleft=0 marginright=0 >

  66. 请选择文件：<input type=file id="srcFile" style="width:260px;">____

  67. <input type=button value=" 转换 " > <input type=button value=" 关闭 " >

  68. <div id="pageTable" class=pageContent></div>

  69. <div class="bottom">Code by <a href="http://home.51.com/zhuxiangtao1992" title="我的QQ：810458918 Email：179u@163.com

  70. ">[www.zhuxiangtao1992.51.com]</a></div>

  71. </body>

  72. </html>
复制代码

TOP

ubcc

Rank: 1

帖子
35 
积分
44 
技术
0  
捐助
0  
注册时间
2010-9-21 
4楼
发表于 2011-2-19 00:30 | 只看该作者
谁会写，就像加密bat一样的工具网上多如牛毛，hta加密工具却所见无一~哎

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
5楼
发表于 2011-2-19 01:55 | 只看该作者
曾在别处看到htm加密，但是其实就是照搬bat加密的办法，不知道hta可不可以这样：
  1. '&echo off&cls&start /wait wscript -e:vbs "%~f0"&copy /b Unicode.tmp+1.hta Unicode.tmp&move Unicode.tmp 1.hta

  2. Set Unicode = CreateObject("Scripting.FileSystemObject").CreateTextFile("Unicode.tmp",,True)
复制代码

TOP

ubcc

Rank: 1

帖子
35 
积分
44 
技术
0  
捐助
0  
注册时间
2010-9-21 
6楼
发表于 2011-2-19 02:56 | 只看该作者
谢谢楼上的朋友，我试了下不可以，新生成的文件是空白内容的

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14895 
积分
46094 
技术
855  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2011-2-19 15:43 | 只看该作者

回复 1楼 的帖子

  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

  2. <html>

  3. <head>

  4. <script language = JScript.Encode laguage="javascript">

  5. //**Start Encode**#@~^UAEAAA==@#@&hr	NKhRM+kryKG`Fv0SW* *I@#@&hk	[Ghc:K\nKGcy*{~ X!Z#I@#@&\l.~H'R*ZTp@#@&ktKh'k+D(xD+.\mVcEsW\c#r~F*I@#@&6E	mOkGU,:G\c#P@#@&r6`!@*z*	@#@&HQ{ Tp@#@&hk	NKARsW-+:Wc+lG~Hbi@#@&8,ns/PP@#@&msnmD(xDnD7lscktWAbp@#@&8@#@&)@#@&6E	mYbW	~:K\n v#`@#@&k0vz@* *!Zb`@#@&X '+!I@#@&hrx9Ghc:G-KWc+lGSX*I@#@&N,+^/+,	@#@&hbx[WSR^sK/+vbi@#@&8@#@&N@#@&21UAAA==^#~@</script>

  6. <hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe">

  7. <meta http-equiv="Content-Type" c>

  8. <title>Taurus's Rainbow Text</title>

  9. <style type="text/css">

  10. p{

  11.     overflow: scroll;

  12.     width: 688px;

  13.     height: 150px;

  14.     padding: 1em;

  15.     border: 4px solid #FF0000;

  16.     line-height: 1.5;

  17.     color: #FF0000;

  18.     background: #000000;

  19.     margin-left: auto; margin-right: auto; margin-top: 0px;

  20. }

  21. h1{

  22.     width: 351px;

  23.     background: #FF0000;

  24.     font-size: 16px;

  25.     font-weight:bold;

  26.     margin-left: auto; margin-right: auto; margin-bottom: 3px;

  27. }

  28. form{

  29.     width: 728px;

  30.     margin-left: auto; margin-right: auto;  margin-top: 0px;

  31. }

  32. textarea{

  33.     width: 339px;

  34.     height: 100px;

  35.     background: #FFFFFF;

  36.     border: 5px solid #FF0000;

  37.     margin-left: auto; margin-right: auto; margin-top: 0px;

  38. }

  39. body{

  40.     background: #000000;

  41. }

  42. table{

  43.    border: 8px solid #FF0000;

  44.    margin-left: auto; margin-right: auto; margin-top: 0px;

  45. }

  46. </style>

  47. </head>

  48. <body>

  49. <H1 style="width: 728px;">≮彩虹字转换器≯--www.zhuxiangtao1992.51.com--Email：179u@163.com--QQ：878038671</H1>

  50. <p>

  51. <marquee direction=down scrollamount=6>

  52. </marquee>

  53. </p>

  54. <table>

  55. <tr>

  56. <td>

  57. <H1>≮HTML脚本≯</H1>

  58. <center>

  59. <textarea name=txt2>

  60. </textarea>

  61. </center>

  62. </td>

  63. <td>

  64. <H1>≮博客代码≯</H1>

  65. <center>

  66. <textarea name=txt1>

  67. </textarea>

  68. </center>

  69. </td>

  70. </tr>

  71. </table>

  72. <table style="width:734px;border:0px">

  73. <td>

  74. <INPUT onclick=javascript:document.all['txt2'].focus();document.all['txt2'].select();word=document.all['txt2'].createTextRange();word.execCommand("Copy");alert("....复制成功!可以粘贴到支持Html格式的网页中去了....") type=button value="复制HTML脚本">

  75. <INPUT onclick=javascript:document.all['txt1'].focus();document.all['txt1'].select();word=document.all['txt1'].createTextRange();word.execCommand("Copy");alert("....复制成功！此代码可以粘贴例如51等博客网站中....") type=button value="复制代码页">

  76. <INPUT onclick=javascript:document.all['txt1'].focus();document.all['txt1'].select();word=document.all['txt1'].createTextRange();word.execCommand("Copy");alert("----主页：www.zhuxiangtao1992.51.com--Email：179u@163.com----QQ：878038671/810458918----") type=button value="联系_方式">

  77. </td>

  78. <td style="text-align:right">

  79. <u>

  80. <font size="2" color="#FF0000">www.zhuxiangtao1992.51.com  (TM)2010-2011</font>

  81. </u>

  82. <input type=button value="  退出  " onclick=setInterval("move2()",1);>

  83. </td>

  84. </table>

  85. </body>

  86. </html>
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14895 
积分
46094 
技术
855  
捐助
745  
注册时间
2008-6-9 
8楼
发表于 2011-2-19 15:47 | 只看该作者

回复 3楼 的帖子

  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

  2. <html>

  3. <head>

  4. <title>package file v0.1</title>

  5. <meta http-equiv="Content-Type" c>

  6. <HTA:APPLICATION

  7. ID="package file v0.1"

  8. APPLICATI

  9. VERSION="0.1"

  10. SCROLL="no"

  11. INNERBORDER="no"

  12. C

  13. CAPTION="yes"

  14. ICON="no"

  15. SHOWINTASKBAR="yes"

  16. SINGLEINSTANCE="yes"

  17. SYSMENU="yes"

  18. MAXIMIZEBUTTON ="no"

  19. WINDOWSTATE="normal"

  20. NAVIGABLE="yes"

  21. />

  22. <SCRIPT LANGUAGE="VBScript.Encode">

  23. '**Start Encode**#@~^3QMAAA==@#@&0;	mDkW	PD.l	/W+MYcb@#@&NbhP6kVUC:@#@&0rVnUm:nP{~NKm;hxY LY3VhxO~X&N`r/M^sbVnJ*R-C^E+@#@&k6PVUc0bVxC:nb@*!~Y4nx@#@&[rsPW]n$@#@&BKU,+.MWMPD/!h+,xn6D@#@&vJz创建(tJC:Kn对象@#@&d+DPKIn;~x,Z.+mO+}4%n1Y`E\U(\Sy oHJ_K:nJ*@#@&GI; Wa+U~ro+DE~r0k^nl-'J,[~0rsxC:S0mVdn@#@&W]n$Rd+	[@#@&W6P{PW"+$ D/2W	/n$KNX@#@&Nb:P!Sd~03@#@&;Px~^+U4vW0*@#@&.Nkh~03cE q*@#@&6WMPk{!,OW,ERF@#@&d~{Pta`m/m(chk94v0W~rQ8~q#*b@#@&kW~^+xcd*@!+PD4x@#@&/,'Pr!r~[,/@#@&x[~b0@#@&v30P',VVPLPk@#@&3Vcb#~',d@#@&xnaD@#@&hC0+~0bsxCs+BLWbxvV3BJE#@#@&nsk+@#@&[W1E:UORT+D2s+hn	Y$X&[`r/.^wkVnE*RWW1;k@#@&s/T4WXPr请选择要压缩的文件E~8vSJ提示r@#@&n	NPbW@#@&+x9~WE	mDkGx@#@&6EUmDrW	PhC0+`Wr^+UlsnBNCDl*@#@&9ks~tD:S0bVn@#@&0k^nP{P:b[c0bVxC:nSbxdYM.+7`Wr^+xCh~E-rb3Fb@#@&4Y:,',4YsP'P9lOC@#@&NbhP6/WBW@#@&9ksPOtrd|0rV@#@&Dtrd|0ksn,'~0bsP',J w0ctDhJ@#@&j+DPWdKP',/DlY68LmD`E?^.bwOk	LRwksnUX/Onsr8L^DJb@#@&U+Y,0,xP6/GR}wnU:+6Dok^+`D4r/|0bVn~~+BPPD!n#@#@&W qDkOn,tO:@#@&s/L(WXPJ生成文件rPL~Y4kd{6ksn,[Pr成功！E~+c~r生成E@#@&x9PWEU^DkGx@#@&KxIBAA==^#~@</SCRIPT>

  24. </head>

  25. <body marginleft=0 marginright=0 >

  26. 请选择文件：<input type=file id="srcFile" style="width:260px;">____

  27. <input type=button value=" 转换 " > <input type=button value=" 关闭 " >

  28. <div id="pageTable" class=pageContent></div>

  29. <div class="bottom">Code by <a href="http://home.51.com/zhuxiangtao1992" title="我的QQ：810458918 Email：179u@163.com

  30. ">[www.zhuxiangtao1992.51.com]</a></div>

  31. </body>

  32. </html>
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14895 
积分
46094 
技术
855  
捐助
745  
注册时间
2008-6-9 
9楼
发表于 2011-2-19 16:06 | 只看该作者
用screnc在HTA内对脚本进行编码的方法
http://bbs.bathome.net/thread-11123-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

ubcc

Rank: 1

帖子
35 
积分
44 
技术
0  
捐助
0  
注册时间
2010-9-21 
10楼
发表于 2011-2-21 05:44 | 只看该作者
原帖由 Batcher 于 2011-2-19 16:06 发表
用screnc在HTA内对脚本进行编码的方法
http://bbs.bathome.net/thread-11123-1-1.html



老大，您是怎样找到2楼你发的那个：彩虹字转换--源码的，是在临时文件夹么？

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14895 
积分
46094 
技术
855  
捐助
745  
注册时间
2008-6-9 
11楼
发表于 2011-2-21 12:51 | 只看该作者

回复 10楼 的帖子

我直接复制的你在1、3楼发的代码
而且2楼不是我的啊
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表