返回列表发帖

ubcc

列兵

Rank: 1

帖子: 35
积分: 44
技术: 0
捐助: 0
注册时间: 2010-9-21

1楼 跳转到 » 正序看帖

打印

字体大小: tT

发表于 2011-2-2 09:29 | 只看该作者

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

源码如下，如何加密，打开后放入记事本，保存为hta后缀

<!DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<script laguage="javascript">
window.resizeTo(768,452);
window.moveTo(257,-500);
var y=-500;
show=setInterval("move()",1);
function move(){
if(0>y){
y+=20;
window.moveTo(257,y);
} else {
clearInterval(show);
}
}
function move2(){
if(y>-500){
y-=20;
window.moveTo(257,y);
} else {
window.close();
}
}
</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

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 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

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: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

9楼

发表于 2011-2-19 16:06 | 只看该作者

用screnc在HTA内对脚本进行编码的方法
http://bbs.bathome.net/thread-11123-1-1.html

TOP

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

8楼

发表于 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>
复制代码

TOP

Batcher

管理员

Rank: 12

帖子: 14935
积分: 46142
技术: 857
捐助: 745
注册时间: 2008-6-9

7楼

发表于 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>
复制代码

TOP

ubcc

列兵

Rank: 1

帖子: 35
积分: 44
技术: 0
捐助: 0
注册时间: 2010-9-21

6楼

发表于 2011-2-19 02:56 | 只看该作者

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

TOP

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

5楼

发表于 2011-2-19 01:55 | 只看该作者

曾在别处看到htm加密，但是其实就是照搬bat加密的办法，不知道hta可不可以这样：

'&echo off&cls&start /wait wscript -e:vbs "%~f0"&copy /b Unicode.tmp+1.hta Unicode.tmp&move Unicode.tmp 1.hta
Set Unicode = CreateObject("Scripting.FileSystemObject").CreateTextFile("Unicode.tmp",,True)
复制代码

TOP

ubcc

列兵

Rank: 1

帖子: 35
积分: 44
技术: 0
捐助: 0
注册时间: 2010-9-21

4楼

发表于 2011-2-19 00:30 | 只看该作者

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

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)，

<!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>
复制代码

TOP

wangxiulin

四级士官

Rank: 3 Rank: 3

帖子: 113
积分: 299
技术: 8
捐助: 0
注册时间: 2010-11-26

2楼

发表于 2011-2-6 19:05 | 只看该作者

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

TOP

返回列表

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

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

回复 10楼的帖子

回复 3楼的帖子

回复 1楼的帖子

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]

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

回复 10楼 的帖子

回复 3楼 的帖子

回复 1楼 的帖子

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]

回复 10楼的帖子

回复 3楼的帖子

回复 1楼的帖子