中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [思路挑战][讨论]批处理做 Base64 编码运算 理论原型
‹ « [1] [2] [3] » ›
作者:
标题: [思路挑战][讨论]批处理做 Base64 编码运算 理论原型 上一主题 | 下一主题
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 16 楼』:  

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




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-11-18 02:29
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hxuan999
中级用户

DOS之日


积分 337
发帖 161
注册 2006-11-4
状态 离线
『第 17 楼』:  

牛人还真是多呀,努力!



for /f %%h in (`echo hxuan`) do for /f %%x in (`echo hxuan`) do if %%h==%%x nul
2006-11-23 04:51
查看资料  发送邮件  发短消息 网志  OICQ (33899867)  编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 18 楼』:  


　　electronixtar 兄发的关于base64的第一个批处理基本看懂了，但是第二个怎么也搞不懂，严重打击了自信心，汗一个先。

2006-11-23 05:20
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
tao0610
高级用户

朦胧的世界


积分 579
发帖 218
注册 2006-10-24
状态 离线
『第 19 楼』:  

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




认识自己，降伏自己，改变自己，才能改变别人！
2006-11-23 06:06
查看资料  发短消息 网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 20 楼』:  

精彩的好贴，欣赏～：）



　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2006-11-25 03:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zqygsd
新手上路





积分 4
发帖 2
注册 2006-12-20
状态 离线
『第 21 楼』:  

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

2006-12-20 23:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vptdosme
初级用户





积分 97
发帖 32
注册 2005-12-3
状态 离线
『第 22 楼』:  

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

2006-12-23 07:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
0401
中级用户

带走



积分 435
发帖 88
注册 2005-9-24
状态 离线
『第 23 楼』:  

发个编码解码的例子，局限性很大。因为我不知道如何将解码后的数转换为原来的字符。这个例子只是简单地通过查表来确定几个字符数字，像汉字就没办法了。还有就是我不懂怎么处理特殊字符，所以会出现很多错误的地方（当然是含有特殊字符的时候了。）
如果生成文件时用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 两个比较的文件名为:[.str] [.cmp]
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 字符串[%str%]编码后的数据为[%encstr%]
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 编码的数据[%encstr%]解码后为[%decstr%]
goto :eof


   此帖被 +26 点积分       点击查看详情   
评分人：【 redtek 】分数： +15  时间：2007-1-26 10:44
评分人：【 electronixtar 】分数： +11  时间：2007-1-29 04:54


2007-1-11 01:01
查看资料  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 24 楼』:  

0401兄十分厉害，佩服

2007-1-11 03:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 25 楼』:  

0401兄 厉害

2007-1-11 07:09
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
chenall
银牌会员




积分 1276
发帖 469
注册 2002-12-23
来自 福建泉州
状态 离线
『第 26 楼』:  

学习了.
试着将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 两个比较的文件名为:[.str] [.cmp]
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 字符串[%str%]编码后的数据为[%encstr%]
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=编码的数据[%encstr%]解码后为:<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




QQ:366840202
http://chenall.net
2007-1-25 07:05
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (366840202)  编辑帖子  回复  引用回复
0401
中级用户

带走



积分 435
发帖 88
注册 2005-9-24
状态 离线
『第 27 楼』:  

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

2007-1-25 09:13
查看资料  发短消息 网志   编辑帖子  回复  引用回复
chenall
银牌会员




积分 1276
发帖 469
注册 2002-12-23
来自 福建泉州
状态 离线
『第 28 楼』:  

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

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

  Quote:

  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

  11. call :enc
  12. call :dec
  13. exit/b

  15. :enc
  16. rem 两个比较的文件名为:[.str] [.cmp]
  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%

  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

  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%

  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 字符串[%str%]编码后的数据为[%encstr%] >>tmp.aa
  64. goto :eof

  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

  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

  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

  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

  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

  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 ]



QQ:366840202
http://chenall.net
2007-1-25 23:56
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (366840202)  编辑帖子  回复  引用回复
0401
中级用户

带走



积分 435
发帖 88
注册 2005-9-24
状态 离线
『第 29 楼』:  

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 ]

2007-1-26 03:03
查看资料  发短消息 网志   编辑帖子  回复  引用回复
chenall
银牌会员




积分 1276
发帖 469
注册 2002-12-23
来自 福建泉州
状态 离线
『第 30 楼』:  

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



QQ:366840202
http://chenall.net
2007-1-26 04:38
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (366840202)  编辑帖子  回复  引用回复
‹ « [1] [2] [3] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023