中国DOS联盟

看一看，试一试

方法很好，但续集呢……？期待中……

我都不敢用啊！！！！！！

想不到一次偶然的机会会让我看到这么多的好东西

强烈支持，相见恨晚。。。。

不错！！！

真是长见识了，学习学习^_^

学习中ing....

1.新建一个文本“a.txt”,打开，按住alt键再输入159，松开alt键就会出现字符“Ÿ”，保存此文本编码为unicode.
2.在要加密的批处理文件代码前空几行，否则就会出错。
3.cmd命令：copy /a a.txt + /b b.bat = c.bat
此方法很管用，大家试试。

学习中.

好东西

好东西

很收益！
我也要写一个加密器

使用方法：
将需要加密的文件用鼠标托到本程序上，就会在当前文件夹自动生成加密文件。

说明：
感谢 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 ]

好东东！谢谢！！！