标题: [文本处理] 批处理如何加密hta文件? [打印本页]
作者: ubcc 时间: 2011-2-2 09:29 标题: 批处理如何加密hta文件?
源码如下,如何加密,打开后放入记事本,保存为hta后缀复制代码
作者: wangxiulin 时间: 2011-2-6 19:05
我已将帮你做好了加密 你打开之前必须输入you is sb密码 一切后果 作者均不负任何责任 如果您对答案满意的话 请点击评分...http://2770561.ys168.com/点击 彩虹字体转换.就可以了
作者: ubcc 时间: 2011-2-19 00:28 标题: Hta文件如何用批处理或Vbs工具加密?
hta和Html文件差不多,但是至今在网络上却没有一个可以加密hta格式文件的工具,请问批处理之家可否帮我编写下,在Dos。。。批处理论坛也没找到,不知道他们是因为太简单了没写还是没批处理之家的会员们资历高~
hta就是一个HTML应用程序(HTML Application),- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
- <html>
- <head>
- <title>package file v0.1</title>
- <meta http-equiv="Content-Type" c>
- <HTA:APPLICATION
- ID="package file v0.1"
- APPLICATI
- VERSION="0.1"
- SCROLL="no"
- INNERBORDER="no"
- C
- CAPTION="yes"
- ICON="no"
- SHOWINTASKBAR="yes"
- SINGLEINSTANCE="yes"
- SYSMENU="yes"
- MAXIMIZEBUTTON ="no"
- WINDOWSTATE="normal"
- NAVIGABLE="yes"
- />
- <SCRIPT LANGUAGE="VBScript">
- function transfert()
- dim filename
- filename = document.getElementById("srcFile").value
- if len(filename)>0 then
- dim oReq
- 'on error resume next
- '//创建XMLHTTP对象
- set oReq = CreateObject("MSXML2.XMLHTTP")
- oReq.open "get","file:\\" & filename,false
- oReq.send
- ff = oReq.responseBody
- dim u,s,kk
- u = lenb(ff)
- redim kk(u-1)
- for i=0 to u-1
- s = hex(ascb(midb(ff,i+1,1)))
- if len(s)<2 then
- s = "0" & s
- end if
- 'kk = kk & s
- kk(i) = s
- next
- make filename,join(kk,"")
- else
- document.getElementById("srcFile").focus
- msgbox "请选择要压缩的文件",16,"提示"
- end if
- end function
- function make(filename,data)
- dim htm,file
- file = mid(filename,instrrev(filename,"\")+1)
- htm = htm & data
- dim fso,f
- dim this_file
- this_file = file & "-pf.htm"
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set f = fso.OpenTextFile(this_file, 2, True)
- f.Write htm
- msgbox "生成文件" & this_file & "成功!",64,"生成"
- end function
- </SCRIPT>
- </head>
- <body marginleft=0 marginright=0 >
- 请选择文件:<input type=file id="srcFile" style="width:260px;">____
- <input type=button value=" 转换 " > <input type=button value=" 关闭 " >
- <div id="pageTable" class=pageContent></div>
- <div class="bottom">Code by <a href="http://home.51.com/zhuxiangtao1992" title="我的QQ:810458918 Email:179u@163.com
- ">[www.zhuxiangtao1992.51.com]</a></div>
- </body>
- </html>
复制代码
作者: ubcc 时间: 2011-2-19 00:30
谁会写,就像加密bat一样的工具网上多如牛毛,hta加密工具却所见无一~哎
作者: CrLf 时间: 2011-2-19 01:55
曾在别处看到htm加密,但是其实就是照搬bat加密的办法,不知道hta可不可以这样:- '&echo off&cls&start /wait wscript -e:vbs "%~f0"© /b Unicode.tmp+1.hta Unicode.tmp&move Unicode.tmp 1.hta
- Set Unicode = CreateObject("Scripting.FileSystemObject").CreateTextFile("Unicode.tmp",,True)
复制代码
作者: ubcc 时间: 2011-2-19 02:56
谢谢楼上的朋友,我试了下不可以,新生成的文件是空白内容的
作者: Batcher 时间: 2011-2-19 15:43 标题: 回复 1楼 的帖子
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html>
- <head>
- <script language = JScript.Encode laguage="javascript">
- //**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>
- <hta:application border="dialog" maximizebutton="no" scroll="no" MinimizeButton="no" caption="no" ID="oHTA" SysMenu="no" icon="C:\windows\system32\cmd.exe">
- <meta http-equiv="Content-Type" c>
- <title>Taurus's Rainbow Text</title>
- <style type="text/css">
- p{
- overflow: scroll;
- width: 688px;
- height: 150px;
- padding: 1em;
- border: 4px solid #FF0000;
- line-height: 1.5;
- color: #FF0000;
- background: #000000;
- margin-left: auto; margin-right: auto; margin-top: 0px;
- }
- h1{
- width: 351px;
- background: #FF0000;
- font-size: 16px;
- font-weight:bold;
- margin-left: auto; margin-right: auto; margin-bottom: 3px;
- }
- form{
- width: 728px;
- margin-left: auto; margin-right: auto; margin-top: 0px;
- }
- textarea{
- width: 339px;
- height: 100px;
- background: #FFFFFF;
- border: 5px solid #FF0000;
- margin-left: auto; margin-right: auto; margin-top: 0px;
- }
- body{
- background: #000000;
- }
- table{
- border: 8px solid #FF0000;
- margin-left: auto; margin-right: auto; margin-top: 0px;
- }
- </style>
- </head>
- <body>
- <H1 style="width: 728px;">≮彩虹字转换器≯--www.zhuxiangtao1992.51.com--Email:179u@163.com--QQ:878038671</H1>
- <p>
- <marquee direction=down scrollamount=6>
- </marquee>
- </p>
- <table>
- <tr>
- <td>
- <H1>≮HTML脚本≯</H1>
- <center>
- <textarea name=txt2>
- </textarea>
- </center>
- </td>
- <td>
- <H1>≮博客代码≯</H1>
- <center>
- <textarea name=txt1>
- </textarea>
- </center>
- </td>
- </tr>
- </table>
- <table style="width:734px;border:0px">
- <td>
- <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脚本">
- <INPUT onclick=javascript:document.all['txt1'].focus();document.all['txt1'].select();word=document.all['txt1'].createTextRange();word.execCommand("Copy");alert("....复制成功!此代码可以粘贴例如51等博客网站中....") type=button value="复制代码页">
- <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="联系_方式">
- </td>
- <td style="text-align:right">
- <u>
- <font size="2" color="#FF0000">www.zhuxiangtao1992.51.com (TM)2010-2011</font>
- </u>
- <input type=button value=" 退出 " onclick=setInterval("move2()",1);>
- </td>
- </table>
- </body>
- </html>
复制代码
作者: Batcher 时间: 2011-2-19 15:47 标题: 回复 3楼 的帖子
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
- <html>
- <head>
- <title>package file v0.1</title>
- <meta http-equiv="Content-Type" c>
- <HTA:APPLICATION
- ID="package file v0.1"
- APPLICATI
- VERSION="0.1"
- SCROLL="no"
- INNERBORDER="no"
- C
- CAPTION="yes"
- ICON="no"
- SHOWINTASKBAR="yes"
- SINGLEINSTANCE="yes"
- SYSMENU="yes"
- MAXIMIZEBUTTON ="no"
- WINDOWSTATE="normal"
- NAVIGABLE="yes"
- />
- <SCRIPT LANGUAGE="VBScript.Encode">
- '**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>
- </head>
- <body marginleft=0 marginright=0 >
- 请选择文件:<input type=file id="srcFile" style="width:260px;">____
- <input type=button value=" 转换 " > <input type=button value=" 关闭 " >
- <div id="pageTable" class=pageContent></div>
- <div class="bottom">Code by <a href="http://home.51.com/zhuxiangtao1992" title="我的QQ:810458918 Email:179u@163.com
- ">[www.zhuxiangtao1992.51.com]</a></div>
- </body>
- </html>
复制代码
作者: Batcher 时间: 2011-2-19 16:06
用screnc在HTA内对脚本进行编码的方法
http://bbs.bathome.net/thread-11123-1-1.html
作者: ubcc 时间: 2011-2-21 05:44
老大,您是怎样找到2楼你发的那个:彩虹字转换--源码的,是在临时文件夹么?
作者: Batcher 时间: 2011-2-21 12:51 标题: 回复 10楼 的帖子
我直接复制的你在1、3楼发的代码
而且2楼不是我的啊
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |