中国DOS联盟

不是 加密 ，是编码/解码。用纯文本来传输二进制文件的方法——Base64

牛人还真是多呀,努力!

位运算反向倒回去果然复杂。

精彩的好贴，欣赏～：）

泡妞密文一定要好好看看。。。
哈哈 ！！

此时不应有 ]==[0]。

发个编码解码的例子，局限性很大。因为我不知道如何将解码后的数转换为原来的字符。这个例子只是简单地通过查表来确定几个字符数字，像汉字就没办法了。还有就是我不懂怎么处理特殊字符，所以会出现很多错误的地方（当然是含有特殊字符的时候了。）
如果生成文件时用echo应该可以减少些特殊字符输入时的错误，但却还要判断0D0A（回车换行）这两个数，晕啊，随便了。

::code by 0401



@echo off

setlocal

set ASCII= !"#$%%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ^_`abcdefghijklmnopqrstuvwxyz{|}~

setlocal enabledelayedexpansion

set B64CODE=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=

set str=

set/p "str=请输入需要编码的字符串："

if not defined str exit/b



call :enc

call :dec

exit/b



:enc

rem 两个比较的文件名为: 

rem 将字符串放到文件中等待比较(fc)并求字符串长度

set/p=%str%<nul>.str

for %%f in (.str) do set strlen=%%~zf

echo 原始字符串长度为: %strlen% 字节



rem 生成fc用来与字符串比较的文件

for /l %%l in (0,1,%strlen%) do >>.cmp set/p=　<nul



rem 将比较后得到的字符串的16进制存储到变量

for /f "tokens=3" %%i in ('fc/b .cmp .str^|find "A1"') do (set strhex=!strhex!%%i)

del .cmp .str

echo 转换后的16进制为: %strhex%



:encloop

if not defined strhex goto :encbreak

set chr1=0x!strhex:~0,2!

set chr2=0x!strhex:~2,2!

set chr3=0x!strhex:~4,2!

set strhex=%strhex:~6%

for %%i in (chr1 chr2 chr3) do if "!%%i!"=="0x" set %%i=0

set/a enc1=%chr1%">>"2

set/a enc2=((%chr1%"&"3)"<<"4)"|"(%chr2%">>"4)

set/a enc3=((%chr2%"&"15)"<<"2)"|"(%chr3%">>"6)

set/a enc4=%chr3%"&"63

::echo 移位后得到的数据:%enc1% %enc2% %enc3% %enc4%

if %chr3% equ 0 if %chr2% equ 0 (set enc4=64& set enc3=64) else (set enc4=64)

::echo 移位后的数据编码为:!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!

set encstr=!encstr!!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!

goto :encloop

:encbreak

echo 字符串编码后的数据为

goto :eof



:dec

rem 并求编码字符串长度

set/p=%encstr%<nul>.str

for %%f in (.str) do set strlen=%%~zf

echo 编码后的字符串长度为: %strlen% 字节

del .str



rem 从编码的字符串encstr中求出编码时偏移的数量

set str=

for /l %%l in (0,1,%strlen%) do (

	for /l %%m in (0,1,64) do (

		if "!encstr:~%%l,1!"=="!B64CODE:~%%m,1!" (

			set str=!str!/%%m

		)

	)

)

set a=1&set b=4



:decloop

if %strlen% equ 0 goto :decbreak

for /f "tokens=%a%-%b% delims=/" %%i in ("%str%") do set enc1=%%i&set enc2=%%j&set enc3=%%k&set enc4=%%l

::echo 4个字节的偏移分别为: %enc1% %enc2% %enc3% %enc4%

set/a a+=4&set/a b+=4

set/a strlen-=4

set/a chr1=((%enc1%"<<"2)"|"(%enc2%">>"4))-32

set/a chr2=(((%enc2%"&"15)"<<"4)"|"(%enc3%">>"2))-32

set/a chr3=(((%enc3%"&"3)"<<"6)"|"%enc4%)-32

::echo 4个字节解码后再减去32得到的十进制为: %chr1% %chr2% %chr3%

if %enc4% equ 64 if %enc3% equ 64 (set chr3=107&set chr2=107) else (set chr3=107)

::echo 解码后的数据为:!ASCII:~%chr1%,1!!ASCII:~%chr2%,1!!ASCII:~%chr3%,1!

set decstr=!decstr!!ASCII:~%chr1%,1!!ASCII:~%chr2%,1!!ASCII:~%chr3%,1!

goto :decloop



:decbreak

echo 编码的数据解码后为

goto :eof

0401兄十分厉害，佩服

0401兄 厉害

学习了.
试着将0401的代码修改了一下,利用DEBUG将结果得到的16进制写入到文件.
就可以得到原来的字符了.

将0401另外发了一个十进制转十六进制的批处理整进来了.
这个解码长度有限制的.我对DEBUG不熟.
debug这一段是抄 redtek 的 QQ密码转PwdHash的批处理

::code by 0401



@echo off

setlocal

setlocal enabledelayedexpansion

set B64CODE=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=

set str=

set/p "str=请输入需要编码的字符串："

if not defined str exit/b



call :enc

call :dec

exit/b



:enc

rem 两个比较的文件名为: 

rem 将字符串放到文件中等待比较(fc)并求字符串长度

set/p=%str%<nul>.str

for %%f in (.str) do set strlen=%%~zf

echo 原始字符串长度为: %strlen% 字节

set str_len=%strlen%



rem 生成fc用来与字符串比较的文件

for /l %%l in (0,1,%strlen%) do >>.cmp set/p=　<nul



rem 将比较后得到的字符串的16进制存储到变量

for /f "tokens=3" %%i in ('fc/b .cmp .str^|find "A1"') do (set strhex=!strhex!%%i)

del .cmp .str

echo 转换后的16进制为: %strhex%



:encloop

if not defined strhex goto :encbreak

set chr1=0x!strhex:~0,2!

set chr2=0x!strhex:~2,2!

set chr3=0x!strhex:~4,2!

set strhex=%strhex:~6%

for %%i in (chr1 chr2 chr3) do if "!%%i!"=="0x" set %%i=0

set/a enc1=%chr1%">>"2

set/a enc2=((%chr1%"&"3)"<<"4)"|"(%chr2%">>"4)

set/a enc3=((%chr2%"&"15)"<<"2)"|"(%chr3%">>"6)

set/a enc4=%chr3%"&"63

::echo 移位后得到的数据:%enc1% %enc2% %enc3% %enc4%

if %chr3% equ 0 if %chr2% equ 0 (set enc4=64& set enc3=64) else (set enc4=64)

::echo 移位后的数据编码为:!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!

set encstr=!encstr!!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!

goto :encloop

:encbreak

echo 字符串编码后的数据为

goto :eof



:dec

rem 并求编码字符串长度

set/p=%encstr%<nul>.str

for %%f in (.str) do set strlen=%%~zf

echo 编码后的字符串长度为: %strlen% 字节

del .str



rem 从编码的字符串encstr中求出编码时偏移的数量

set str=

for /l %%l in (0,1,%strlen%) do (

        for /l %%m in (0,1,64) do (

                if "!encstr:~%%l,1!"=="!B64CODE:~%%m,1!" (

                        set str=!str!/%%m

                )

        )

)

set a=1&set b=4



:decloop

if %strlen% equ 0 goto :decbreak

for /f "tokens=%a%-%b% delims=/" %%i in ("%str%") do set enc1=%%i&set enc2=%%j&set enc3=%%k&set enc4=%%l

::echo 4个字节的偏移分别为: %enc1% %enc2% %enc3% %enc4%

set/a a+=4&set/a b+=4

set/a strlen-=4

set/a chr1=((%enc1%"<<"2)"|"(%enc2%">>"4))

set/a chr2=(((%enc2%"&"15)"<<"4)"|"(%enc3%">>"2))

set/a chr3=(((%enc3%"&"3)"<<"6)"|"%enc4%)

::echo 4个字节解码后再减去32得到的十进制为: %chr1% %chr2% %chr3%

call :_d2h chr1 %chr1%

call :_d2h chr2 %chr2%

call :_d2h chr3 %chr3%

::echo 4个字节解码后再减去32得到的十进制为: %chr1% %chr2% %chr3%

::if %enc4% equ 64 if %enc3% equ 64 (set chr3=107&set chr2=107) else (set chr3=107)

::echo 解码后的数据为:!ASCII:~%chr1%,1!!ASCII:~%chr2%,1!!ASCII:~%chr3%,1!

set decstr=!decstr! %chr1% %chr2% %chr3%

goto :decloop



:decbreak

pause

set /a str_len+=1

echo exit|%ComSpec%/kprompt e 100 $_%decstr%$_rcx$_%str_len%$_n tmp.tmp$_w$_q$_|debug>nul

chcp 936>nul

set/p=编码的数据解码后为:<nul

type tmp.tmp

del tmp.tmp>nul

echo.

pause

goto :eof



:_d2h

set hex=

set hexstr=0 1 2 3 4 5 6 7 8 9 A B C D E F

set d=0

for %%i in (%hexstr%) do (set d!d!=%%i&set/a d+=1)

set scanf=%2

set tscanf=

call :d2h

if not defined hex set hex=0

set %1=%hex%

goto :eof



:d2h

if %scanf% equ 0 goto :eof

set/a tscanf=%scanf%"&"15

set/a scanf">>="4

set hex=!d%tscanf%!!hex!

goto :d2h

呵呵，漂亮。讨论又有进展了。不过我对Debug也很陌生，看来得补补了。

再贴一个比较完美一点的.
接下去将这个再修改一下就可以做成一个
将指定文件用BASE64编码/解码的工具

代码应该还可以再精简一下.

1. ::code by 0401
   
2. ::chenall 修改于 2007.01.25
   
3. @echo off
   
4. setlocal
   
5. setlocal enabledelayedexpansion
   
6. set B64CODE=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=
   
7. set str=
   
8. set/p "str=请输入需要编码的字符串："
   
9. if not defined str exit/b
   
10. 
    
11. call :enc
    
12. call :dec
    
13. exit/b
    
14. 
    
15. :enc
    
16. rem 两个比较的文件名为:
    
17. rem 将字符串放到文件中等待比较(fc)并求字符串长度
    
18. set/p=%str%<nul>.str
    
19. for %%f in (.str) do set strlen=%%~zf
    
20. echo 原始字符串长度为: %strlen% 字节
    
21. set str_len=%strlen%
    
22. 
    
23. rem 生成fc用来与字符串比较的文件
    
24. del _*.cmp 2>nul
    
25. for /l %%l in (1,1,%strlen%) do (
    
26. >>_a.cmp set/p=a<nul
    
27. >>_b.cmp set/p=b<nul
    
28. )
    
29. fc/b _a.cmp .str|find ":">tmp.str
    
30. fc/b _b.cmp .str|find ":">>tmp.str
    
31. sort tmp.str>_a.cmp
    
32. 
    
33. rem 将比较后得到的字符串的16进制存储到变量
    
34. for /f "tokens=1,3" %%i in (_a.cmp) do (
    
35. if not "!n!"=="%%i" set strhex=!strhex!%%j
    
36. set n=%%i
    
37. )
    
38. ::for /f "tokens=3" %%i in ('fc/b .cmp .str^|find ":"') do (set strhex=!strhex!%%i)
    
39. del *.cmp *.str 2>nul
    
40. echo 转换后的16进制为: %strhex%
    
41. 
    
42. :encloop
    
43. if not defined strhex goto :encbreak
    
44. set chr1=0x!strhex:~0,2!
    
45. set chr2=0x!strhex:~2,2!
    
46. set chr3=0x!strhex:~4,2!
    
47. set strhex=%strhex:~6%
    
48. for %%i in (chr1 chr2 chr3) do if "!%%i!"=="0x" set %%i=0
    
49. set/a enc1=%chr1%">>"2
    
50. set/a enc2=((%chr1%"&"3)"<<"4)"|"(%chr2%">>"4)
    
51. set/a enc3=((%chr2%"&"15)"<<"2)"|"(%chr3%">>"6)
    
52. set/a enc4=%chr3%"&"63
    
53. ::echo 移位后得到的数据:%enc1% %enc2% %enc3% %enc4%
    
54. if %chr3% equ 0 if %chr2% equ 0 (set enc4=64& set enc3=64) else (set enc4=64)
    
55. ::echo 移位后的数据编码为:!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!
    
56. set encstr=!encstr!!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!
    
57. ::for %%i in (enc1 enc2 enc3 enc4) do (
    
58. :: if !%%i! lss 10 (set/p=0!%%i!<nul>>tmp.bb) else (set/p=!%%i!<nul>>tmp.bb)
    
59. ::)
    
60. goto :encloop
    
61. :encbreak
    
62. echo 字符串[%str%]编码后的数据为[%encstr%]
    
63. ::echo 字符串编码后的数据为 >>tmp.aa
    
64. goto :eof
    
65. 
    
66. :dec
    
67. rem 并求编码字符串长度
    
68. set/p=%encstr%<nul>.str
    
69. for %%f in (.str) do set strlen=%%~zf
    
70. echo 编码后的字符串长度为: %strlen% 字节
    
71. del .str
    
72. 
    
73. rem 从编码的字符串encstr中求出编码时偏移的数量
    
74. set str=
    
75. for /l %%l in (0,1,%strlen%) do (
    
76. for /l %%m in (0,1,64) do (
    
77. if "!encstr:~%%l,1!"=="!B64CODE:~%%m,1!" (
    
78. if %%m lss 10 (
    
79. set str=!str!0%%m
    
80. ) else (
    
81. set str=!str!%%m
    
82. )
    
83. )
    
84. )
    
85. )
    
86. set a=1&set b=4&set e=0
    
87. del debug.src 2>nul
    
88. 
    
89. :decloop
    
90. if not defined str goto :decbreak
    
91. set /a enc1=1!str:~0,2!-100
    
92. set /a enc2=1!str:~2,2!-100
    
93. set /a enc3=1!str:~4,2!-100
    
94. set /a enc4=1!str:~6,2!-100
    
95. set str=%str:~8%
    
96. for %%i in (enc1 enc2 enc3 enc3 enc4) do (
    
97. if !%%i! leq 0 set %%i=0
    
98. if !%%i! equ 64 set %%i=0
    
99. )
    
100. ::echo 4个字节的偏移分别为: %enc1% %enc2% %enc3% %enc4%
     
101. set/a chr1=((%enc1%"<<"2)"|"(%enc2%">>"4))
     
102. set/a chr2=(((%enc2%"&"15)"<<"4)"|"(%enc3%">>"2))
     
103. set/a chr3=(((%enc3%"&"3)"<<"6)"|"%enc4%)
     
104. ::echo 4个字节解码后再减去32得到的十进制为: %chr1% %chr2% %chr3%
     
105. call :_d2h chr1 %chr1%
     
106. call :_d2h chr2 %chr2%
     
107. call :_d2h chr3 %chr3%
     
108. ::echo 4个字节解码后再减去32得到的十六进制为: %chr1% %chr2% %chr3%
     
109. ::echo 解码后的数据为:!ASCII:~%chr1%,1!!ASCII:~%chr2%,1!!ASCII:~%chr3%,1!
     
110. set /a ee=0x100+3*e
     
111. call :_d2h ee %ee%
     
112. >>debug.src echo e %ee% %chr1% %chr2% %chr3%
     
113. ::set/p=%chr1%%chr2%%chr3%<NUL >>BB.TXT
     
114. set /a e+=1
     
115. goto :decloop
     
116. 
     
117. :decbreak
     
118. pause
     
119. set /a str_len+=1
     
120. >>debug.src echo rcx
     
121. >>debug.src echo %str_len%
     
122. >>debug.src echo n tmp.tmp
     
123. >>debug.src echo w
     
124. >>debug.src echo q
     
125. debug<debug.src
     
126. del debug.src
     
127. chcp 936>nul
     
128. echo 编码的数据[%encstr%]
     
129. echo.
     
130. set/p=解码后为:<nul
     
131. type tmp.tmp
     
132. del tmp.tmp>nul
     
133. echo.
     
134. pause
     
135. goto :eof
     
136. 
     
137. :_d2h
     
138. set hex=
     
139. set hexstr=0 1 2 3 4 5 6 7 8 9 A B C D E F
     
140. set d=0
     
141. for %%i in (%hexstr%) do (set d!d!=%%i&set/a d+=1)
     
142. set scanf=%2
     
143. set tscanf=
     
144. call :d2h
     
145. if not defined hex set hex=0
     
146. set %1=%hex%
     
147. goto :eof
     
148. 
     
149. :d2h
     
150. if %scanf% equ 0 goto :eof
     
151. set/a tscanf=%scanf%"&"15
     
152. set/a scanf">>="4
     
153. set hex=!d%tscanf%!!hex!
     
154. goto :d2h
     

chenall 发表于： 2007-01-25 15:35

[ Last edited by chenall on 2007-1-26 at 04:37 AM ]

to chenall兄:

确实已经可以写个BASE64编码/解码的工具了，我也有此打算了，不过不知道时间允不允许。呵呵
顺便提一下，兄为了用fc比较文件，使用fsutil file createnew命令创建一个等大的文件，但这样fsutil只能是管理员组的成员才能使用，适用性打了点折扣。何不试试5楼的方法，或者用debug的f子命令来填充一个二进制全为0的等大文件。
-------------------------------------------------
补充的：如果用f子命令来填充也得填充2个不同内容的文件，因为如果处理的是一个文件，就不保证不碰到二进制为0的字节。

[ Last edited by 0401 on 2007-1-28 at 01:09 PM ]

参考了5楼的代码已修改.