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

[文本处理] 批处理如何加密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>
复制代码

回复 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

原帖由 Batcher 于 2011-2-19 16:06 发表
用screnc在HTA内对脚本进行编码的方法
http://bbs.bathome.net/thread-11123-1-1.html



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

TOP

用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

回复 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

回复 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

谢谢楼上的朋友,我试了下不可以,新生成的文件是空白内容的

TOP

曾在别处看到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

谁会写,就像加密bat一样的工具网上多如牛毛,hta加密工具却所见无一~哎

TOP

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

我已将帮你做好了加密 你打开之前必须输入you is sb密码 一切后果 作者均不负任何责任 如果您对答案满意的话 请点击评分...http://2770561.ys168.com/点击 彩虹字体转换.就可以了

TOP

返回列表