中国DOS联盟

'any2bat {s11ss 2008-1-5} '获取要转换的文件： If Not WScript.Arguments.Count=1 Then WScript.Quit Set fso=CreateObject("scripting.filesystemobject") Set f=fso.GetFile(WScript.Arguments(0)) If Err Then WScript.Quit If f.Size=0 Then WScript.Quit '获取文件2进制代码： Set stream=CreateObject("adodb.stream") With stream .Type=1:.Open:.LoadFromFile f End With bin=stream.Read(f.Size) '生成bat： n=&h100:str="" Set bat=fso.CreateTextFile(f.Path&".bat") bat.WriteLine "@more <""%~f0"" +1|debug>nul&&move t """&f.Name&"""&goto :eof" For i=1 To Lenb(bin) zero="" one=Ascb(Midb(bin,i,1)) If one<16 Then zero="0" str=str&" "&zero& Hex(one) If i Mod 16=0 Then bat.WriteLine "e"& Hex(n)&str:str="":n=n+16 Next If Not str="" Then bat.WriteLine "e"& Hex(n)&str bat.WriteLine "n t" bat.WriteLine "rcx" bat.WriteLine Hex(f.Size) bat.WriteLine "w" bat.WriteLine "q" stream.Close:bat.Close Set stream=Nothing:Set f=Nothing:Set bat=Nothing:Set fso=Nothing WScript.Echo "Successful!"

在与knoppix7兄的探讨中，知道了bx的作用，特作修改使待转换的文件的大小“理论上”无限制（因为处理64KB以上的文件还是比较慢）：

'any2bat {s11ss 2008-1-6} '获取要转换的文件： If Not WScript.Arguments.Count=1 Then WScript.Echo "把要转换的文件托拽到我身上！":WScript.Quit Set fso=CreateObject("scripting.filesystemobject") Set f=fso.GetFile(WScript.Arguments(0)) If Err Then WScript.Quit If f.Size=0 Then WScript.Quit '获取文件2进制代码： Set stream=CreateObject("adodb.stream") With stream .Type=1:.Open:.LoadFromFile f End With bin=stream.Read(f.Size) '生成bat： n=&h100:str="" Set bat=fso.CreateTextFile(f.Path&".bat") bat.WriteLine "@more <""%~f0"" +1|debug>nul&&move t """&f.Name&"""&goto :eof" For i=1 To Lenb(bin) zero="" one=Ascb(Midb(bin,i,1)) If one<16 Then zero="0" str=str&" "&zero& Hex(one) If i Mod 16=0 Then bat.WriteLine "e"& Hex(n)&str:str="":n=n+16 Next If Not str="" Then bat.WriteLine "e"& Hex(n)&str size=Hex(f.Size):l=Len(size)-4 If l<=0 Then bx="0":cx=size If l>0 Then bx=Left(size,l):cx=Right(size,4) bat.WriteLine "n t" bat.WriteLine "rbx" bat.WriteLine bx bat.WriteLine "rcx" bat.WriteLine cx bat.WriteLine "w" bat.WriteLine "q" stream.Close:bat.Close Set stream=Nothing:Set f=Nothing:Set bat=Nothing:Set fso=Nothing WScript.Echo "Successful!"




在与knoppix7兄的探讨中，又发现由于debug的e命令的限制使上面的代码不能正确还原成原文件。特改变方案，采用copy/b的方式，可对64KB以上的文件完全还原。大家可用"%ALLUSERSPROFILE%\Documents\My Pictures\示例图片\Sunset.jpg"实验一下（可用fc/b来比较原文件和还原出来的文件）。
修改后的代码：（感谢zh159兄的建议）
'any2bat {s11ss 2008-1-17} '获取要转换的文件： If Not WScript.Arguments.Count=1 Then WScript.Echo "将要转换的文件托拽到我身上！":WScript.Quit Set fso=CreateObject("scripting.filesystemobject") Set f=fso.GetFile(WScript.Arguments(0)) If Err Then WScript.Quit If f.Size=0 Then WScript.Quit '获取文件2进制代码： Set stream=CreateObject("adodb.stream") With stream .Type=1:.Open:.LoadFromFile f End With bin=stream.Read(f.Size) '生成bat： cr=vbCrLf:n=&h100:line=1:seg=1:segeof=false:str="" Set bat=fso.CreateTextFile(f.Path&".bat") bat.WriteLine "@md %tmp%\t1.17&&pushd %tmp%\t1.17&&more <""%~f0"" +1|debug>nul&&popd&&copy/b %tmp%\t1.17\t* """&f.Name&"""&&rd/s/q %tmp%\t1.17&goto :eof" For i=1 To Lenb(bin) zero="":segeof=false:one=Ascb(Midb(bin,i,1)) If one<16 Then zero="0" str=str&" "&zero& Hex(one) If i Mod 16=0 Then bat.WriteLine "e"& Hex(n)&str:str="":n=n+16:line=line+1 If line Mod 4081=0 Then bat.WriteLine "n t"&seg&cr&"rcx"&cr&"ff00"&cr&"w":seg=seg+1:n=&h100:line=1:segeof=true Next If Not str="" Then bat.WriteLine "e"& Hex(n)&str If Not segeof Then bat.WriteLine "n t"&seg&cr&"rcx"&cr& Hex(f.Size-(seg-1)*65280)&cr&"w"&cr&"q" stream.Close:bat.Close Set stream=Nothing:Set f=Nothing:Set bat=Nothing:Set fso=Nothing WScript.Echo "Successful!"

[ Last edited by s11ss on 2008-1-17 at 07:57 PM ]

文件大小有限制吗？

Originally posted by knoppix7 at 2008-1-5 05:19 PM:
文件大小有限制吗？

越大越慢（哎，废话），理论上是没限制的

[ Last edited by s11ss on 2008-1-5 at 07:01 PM ]

弄错了，有限制，文件大小<64KB，是debug的原因。

我现在是.
DEBUG 64KB限制.
VBS写入内存限制
(一个变量1M多.....占用虚拟内存1000MB.......)

破掉64kb限制了.
-rbx
BX 0000
:640
-n c:\1oom
-w
Writing 6400000 bytes (100MB呢)
-

原来cx不够放bx
ax作用未知

哦，BX为文件长度高16位,CX为文件长度低16位

bat.WriteLine "n t" bat.WriteLine "rbx" bat.WriteLine bx bat.WriteLine "rcx" bat.WriteLine cx bat.WriteLine "w" bat.WriteLine "q"
可以简写为：
n=vbCrLf bat.WriteLine "n t" & n & "rbx" & n & bx & n & "rcx" & n & cx & n & "w" & n & "q"

恐怖...如果计算没错.
若rbx=FFFF rcx=FFFF
则生成的文件足足有64GB.
就是说。最大可以转64GB的文件.
恐怖.....
64G文件转换完最少需要192GB的空间....

LZ.还是有问题的.
^ Error
-e11000 9B 76 4E A6 EA A6 25 98 58 FB 05 BD 6E C3 BD 2A
^ Error
-e11010 A2 57 3C 89 4D 20 3D F2 39 50 B7 D3 5A B4 A9 65
^ Error
-e11020 CE B6 0B 2A 9E ED 7A 37 BF C7 9E 36 0C 94 ED 3F
^ Error
-e11030 CE 3B 76 C0 78 12 46 F2 A9 D8 33 57 EB 4A A7 04
^ Error
-e11040 B2 CE 56 A3 58 79 A6 4C A8 CA 4B 6D 94 7C CD 3F
^ Error
-e11050 3B 86 A8 44 A6 AA B1 91 CA 25 AD D0 82 B3 C7 19
^ Error
-e11060 18 4A 94 DA FD E9 25 4C D2 A0 0E F1 1E 18 DB DE
^ Error
-e11070 58 42 04 BD DA 61 02 A6 6D C3 24 07 05 8E C5 19
^ Error
-e11080 BF C5 A2 B4 67 48 3D 84 1C 08 CA 39 2F 3E F8 9B
^ Error
-e11090 4C 56 E8 D2 0B 43 B7 51 A7 47 86 0B 58 45 34 31
^ Error
-e110A0 F7 98 C6



我试验过了.
64KB以后的部分必须这么写
E 1000:FFFF XXXXXX
E 0001:0000 XXXXXXX

貌似W
的话只能W FFFF的
FFFF以后的是用随机数据代替.(太阳)

我是这么想的：以64KB为单位，生成n个临时文件t1、t2到tn，然后用copy/b把它们合并成原文件。

和我想的一样.
今天把加密程序写完。
然后把加密部分剥离。剩下的就是any2hex了.

从e100到effff，共65280字节。
所以应该是：
以65280字节为单位，生成n个临时文件t1、t2到tn，然后用copy/b把它们合并成原文件。

今天实现了它。