[格式转换] ascode 应用之 存取文件 encode.com/decode.com

CrLf

首先要说的是：
2013 新年快乐！
-----------------------------------------------------
下面的代码是一个对文本进行编码和解码的示例，运行完毕后可以得到生成的 encode.com 和 decode.com：

@echo off&chcp 437|graftabl>nul 936

@(echo RQPUWP]UZV_BBBB5``PY(E1(E6^)E8^)E=(EA^)EI=
echo SX3CP^<P}pE^< ~r%%ooQRY2AY0@G uO0EOB?_]XYZ
echo K95200KJJO01N84N0089M7KJ60614KK43OK93030
echo LM21724589M689L14O89OJ31NMJL88L425O00O51
echo K104M2N8590530303L3J7L02041080OL3J7L0380
echo L410JK454583OM287L0M89M75189N9414131NMN8
echo 050059N2LL89N9K440K301LM21L3235251505557
echo 505M555J565O4242424235606050592845312845
echo 3529453729453L2845402945492M0M0J53583343
echo 503L207N763L507M6K256O6O5152593241593040
echo 2075503045504745423O5O5M58595J0M0J)>"ENCODE.com"
::生成 encode.com

@(echo RQPUWP]UZV_BBBB5``PY(E1(E5^)E7^)E^<(E@^)EI-
echo SX3CP^< ~v^<P}k%%ooQRY2AY0@ uP0EPGEB?_]XYZ
echo K43OK9007089LJLM21723083L2502M500089M689
echo M789L131NMJM4N3L207N133L507M0M4649250O0O
echo 51K104M2N030N059JJ45N2N589N9K44043LM21L3)>"DECODE.com"
::生成 decode.com

more +21 "%~0"|ENCODE.com|decode.com|findstr .*
::先用管道将文本传递给 encode.com 转换，再用 decode.com 解码其内容。
::xp 可能无法直接显示解码文本，所以加个 findstr 以防万一，一般可以省略。

pause>nul
复制代码

CrLf

可以处理任何文件，不过大于 12k（准确来说是 0x3030 字节） 的文件需要分段存取。
以批处理之家图片为例，另存后，拖动到 编码.bat 上获得两个 logo.gif.part?.txt
再拖动其中一个到 解码.bat 上可还原出 logo.gif

编码.bat 内容：

@echo off&setlocal enabledelayedexpansion
del "%~1.part*.txt" >nul 2<&1
set n=0
(for %%a in ("%~1") do for /l %%b in (1 0x3030 %%~za) do (
	set /a n+=1
	encode.com>"%~1.part!n!.txt"
))<"%~1"
pause
复制代码

解码.bat 内容：

@echo off&setlocal enabledelayedexpansion
for %%a in ("%~n1") do set "filename=%%~na"
set n=0
(for %%a in ("!filename!.part*.txt") do (
	set /a n+=1
	decode.com<"!filename!.part!n!.txt"
))>"!filename!"
pause
复制代码

脚本和图片都在附件里：
链接: https://pan.baidu.com/s/1teC2wdRxu0u9USnw1WMXWw 提取码: x4ms