非编译型批处理加密方案与代码 - 中国DOS联盟论坛

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

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

第346楼　laodoo	发表于 2008-09-17 15:29
新手上路　发帖 2　积分 4
看一看，试一试

第347楼　393114119	发表于 2008-09-27 14:31
新手上路　发帖 1　积分 2
方法很好，但续集呢……？方法很好，但续集呢……？期待中……

第348楼　kinghuai	发表于 2008-09-28 13:03
初级用户　发帖 21　积分 56
我都不敢用啊！！！！！！

第349楼　FreeOS	发表于 2008-10-03 01:07
新手上路　发帖 5　积分 9
想不到一次偶然的机会会让我看到这么多的好东西

第350楼　516526966	发表于 2008-10-05 14:38
初级用户　发帖 37　积分 63
强烈支持，相见恨晚。。。。

第351楼　gx111aaa	发表于 2008-10-18 16:22
贫困用户　发帖 1　积分 -1
不错！！！

第352楼　kakenhi	发表于 2008-10-18 18:23
初级用户　发帖 21　积分 21
真是长见识了，学习学习^_^

第353楼　sparetimeter	发表于 2008-10-18 22:36
新手上路　发帖 7　积分 11
学习中ing....

第354楼　xjj2007	发表于 2008-10-18 23:33
初级用户　发帖 57　积分 149　来自湖南
我的法子 1.新建一个文本“a.txt”,打开，按住alt键再输入159，松开alt键就会出现字符“Ÿ”，保存此文本编码为unicode. 2.在要加密的批处理文件代码前空几行，否则就会出错。 3.cmd命令：copy /a a.txt + /b b.bat = c.bat 此方法很管用，大家试试。

第355楼　kookycy	发表于 2008-10-19 00:30
初级用户　发帖 32　积分 41
学习中.

第356楼　qqzone	发表于 2008-10-30 14:38
新手上路　发帖 2　积分 2
好东西

第357楼　qqzone	发表于 2008-10-30 14:38
新手上路　发帖 2　积分 2
好东西

第358楼　qinchun36	发表于 2008-10-31 01:46
高级用户　发帖 400　积分 609
很收益！我也要写一个加密器

第359楼　qinchun36	发表于 2008-10-31 03:51
高级用户　发帖 400　积分 609
我编写的使用超方便的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 ] 附件 BAT加密器VBS版.rar (2.13 KiB)

第360楼　bamtd882	发表于 2008-11-04 23:54
新手上路　发帖 12　积分 12
好东东！谢谢！！！