|
laodoo
新手上路
积分 4
发帖 2
注册 2008-9-17
状态 离线
|
|
 2008-9-17 15:29 |
|
|
393114119
新手上路
积分 2
发帖 1
注册 2008-9-25
状态 离线
|
『第
347 楼』:
方法很好，但续集呢……？
方法很好，但续集呢……？期待中……
|
|
|
2008-9-27 14:31 |
|
|
kinghuai
初级用户
积分 56
发帖 21
注册 2007-2-1
状态 离线
|
|
|
2008-9-28 13:03 |
|
|
FreeOS
新手上路
积分 9
发帖 5
注册 2007-5-4
状态 离线
|
『第
349 楼』:
想不到一次偶然的机会会让我看到这么多的好东西
|
|
|
2008-10-3 01:07 |
|
|
516526966
初级用户
积分 63
发帖 37
注册 2008-8-9
状态 离线
|
|
|
2008-10-5 14:38 |
|
|
gx111aaa
贫困用户
积分 -1
发帖 1
注册 2008-5-30
状态 离线
|
|
|
2008-10-18 16:22 |
|
|
kakenhi
初级用户
积分 21
发帖 21
注册 2008-10-18
状态 离线
|
『第
352 楼』:
真是长见识了，学习学习^_^
|
|
|
2008-10-18 18:23 |
|
|
sparetimeter
新手上路
积分 11
发帖 7
注册 2007-9-16
状态 离线
|
|
|
2008-10-18 22:36 |
|
|
xjj2007
初级用户
积分 149
发帖 57
注册 2006-10-26
来自 湖南
状态 离线
|
『第
354 楼』:
我的法子
1.新建一个文本“a.txt”,打开，按住alt键再输入159，松开alt键就会出现字符“Ÿ”，保存此文本编码为unicode.
2.在要加密的批处理文件代码前空几行，否则就会出错。
3.cmd命令：copy /a a.txt + /b b.bat = c.bat
此方法很管用，大家试试。
|
|
|
2008-10-18 23:33 |
|
|
kookycy
初级用户
积分 41
发帖 32
注册 2008-10-16
状态 离线
|
|
|
2008-10-19 00:30 |
|
|
qqzone
新手上路
积分 2
发帖 2
注册 2008-10-30
状态 离线
|
|
|
2008-10-30 14:38 |
|
|
qqzone
新手上路
积分 2
发帖 2
注册 2008-10-30
状态 离线
|
|
|
2008-10-30 14:38 |
|
|
qinchun36
高级用户
据说是李先生
积分 609
发帖 400
注册 2008-4-23
状态 离线
|
『第
358 楼』:
很收益！
我也要写一个加密器
|
|
|
2008-10-31 01:46 |
|
|
qinchun36
高级用户
据说是李先生
积分 609
发帖 400
注册 2008-4-23
状态 离线
|
『第
359 楼』:
我编写的使用超方便的VBS脚本
使用方法：
将需要加密的文件用鼠标托到本程序上，就会在当前文件夹自动生成加密文件。
说明：
感谢 willsort、zh159、xjj2007 等提供的原理。后来我经过很多次测试发现：
只要是以二进制方式将ASCII编码的文件附加到UNICODE编码的文件末尾，就会使后面的内容显示为乱码。
因此我写的程序实际执行的并不是上面几位提到的方法，而是使用VBSCRIPT直接创建一个UNICODE编码的文件头(可以是任何内容，详情见源代码中的注释)，然后将它与我们要加密的文件合并。
特点：
文件名和文件路径中包含空格或者其他特殊字符都不会产生错误。
有些地方可以自己修改的更个性化（参见源代码中的注释）
注意事项：
1. 原BAT文件必须是 ASCII 编码的。否则不成功
2. 此程序生成的加密文件比原文件大,具体大多少取决于 创建 UNICODE 编码的文件头 时 tmpstr.WriteLine 语句写了多少东西进去，你可以自己定义的。
3.提供的附件“BAT加密器VBS版.vbs ” 与 “BAT加密器保持版权版.vbs” 功能完全相同，由兴趣的可以用记事本打开看看有何不同，呵呵。。。
4.BUG : 由于删除文件的代码是用的CMD命令，目前发现当且仅当文件在磁盘根目录时会无法删除，但不影响正常使用，可手动删除，由于时间有限就不修正了。
VBSCRIPT 脚本 源代码：
'''''''''''''''''''''''''''''''''''
'' (P)2008 Jv Ching (qinchun36) ''
'' Powed by 中国DOS联盟 ''
'' http://www.cn-dos.net/forum/ ''
'''''''''''''''''''''''''''''''''''
on error resume next
if Wscript.Arguments(0)="" then
msgbox "用鼠标把目标文件拖到我上面来！！！",16,"使用方法"
else
dim origfile,tmpstr,ching,fso,orig,fname,fpath
origfile=Wscript.Arguments(0)
Set fso=CreateObject("Scripting.FileSystemObject")
set ching=wscript.createobject("wscript.shell")
set tmpstr=fso.getfile(origfile)
fpath=tmpstr.parentfolder&"\"
fname="new_"&tmpstr.name '定义加密后的文件名为 new_原文件 ，你可以改成其他。
'如果已经存在 new_原文件 ，则删除之。
if (fso.fileexists(fpath&fname)) then
Set tmpstr=fso.getfile(fpath&fname)
tmpstr.Delete
end if
'创建 UNICODE 编码的文件头。在WINDOWS中用记事本打开会看到只有这些不是乱码。
Set tmpstr=fso.CreateTextFile(fpath&"unihead.txt",1,-1)
tmpstr.WriteLine "草，看他吗毛啊，老子都被qinchun36搞成乱码了！" '你可以在前面的双引号里任意写东西
tmpstr.close
'在被转换的文件头部加上两个空行和CLS清屏语句
Set tmpstr=fso.CreateTextFile(fpath&"bathead.txt",1)
tmpstr.writeBlankLines 2
tmpstr.writeline("cls") '清除开始时的错误信息，你也可以去掉这一行。
tmpstr.close
'为了简便，调用 CMD 命令合并文件并删除过度文件
tmpstr="cmd /c copy /b "&chr(34)&fpath&"unihead.txt"&chr(34)&"+"&chr(34)&fpath&"bathead.txt"&chr(34)&"+"&chr(34)&origfile&chr(34)&" "&chr(34)&fpath&fname&chr(34)&chr(38)&"del "&chr(34)&fpath&"unihead.txt"&chr(34)&chr(38)&"del "&chr(34)&fpath&"bathead.txt"&chr(34)
ching.run tmpstr,0
msgbox "加密后的文件是:"&chr(13)&chr(13)&fpath&fname,64,"Mr. Ching 提示你"
end if [ Last edited by qinchun36 on 2008-11-1 at 21:59 ]
附件
1:  BAT加密器VBS版.rar (2008-11-1 21:51, 2.13 K,下载次数： 53)
|
|
|
2008-10-31 03:51 |
|
|
bamtd882
新手上路
积分 12
发帖 12
注册 2008-11-4
状态 离线
|
|
|
2008-11-4 23:54 |
|
