十六进制转换为十进制 - 中国DOS联盟论坛

　　昨天玩一个在线过关游戏，有一个题目是直接给出了下一关的链接，但是形式是这样的：66656E677A686F6E6764656368656E67206E756F2E617370，一想，这是十六进制形式表示的ASCII码，非要一个个的将它们转换为%66%65%6E%67%7A%68%6F%6E%67%64%65%63%68%65%6E%67%20%6E%75%6F%2E%61%73%70的形式，但是这样太麻烦了，所以就想到写一个自动为字符串添加%符号的脚本。

　　最后又想将它功能加强一下，将这些十六进制的数依次转换成十进制数岂不是更好？于是又改进了一下，可以检测出输入字符串的长度，自动判断是不是十六进制的数。

　　代码如下，大家帮忙测试一下，有错误的地方尽可指出来。
::cody by lxmxn @ cn-dos.net ::Date 20:11 2006-12-29 @echo off&Setlocal EnableDelayedExpansion :redo set /p str=Please input a hex string: if "%str%"=="" echo Invalid input,please input again.&pause&goto redo cls&set a=0 :begin if not "!str:~%a%,1!"=="" set /a a+=1&&goto begin echo The string you inputed is ■%str%■,it length:■%a%■ echo; set/p=The final result is:■<nul for /l %%a in (0,2,%a%) do ( Setlocal EnableDelayedExpansion if not "!str:~%%a,1!"=="" ( set /p result=%%!str:~%%a,2!<nul ) Endlocal ) echo ■ echo; set /p choose=Change it to Hexadecimal? Please Enter Y or N to choose:^> if /i not "%choose%"=="y" goto :eof echo %str%|findstr "^*$" >nul if errorlevel 1 echo;&echo;The string isn't a hexadecimal number.Any key to Exit.&pause>nul&goto :eof echo; (for /l %%a in (0,2,%a%) do ( Setlocal EnableDelayedExpansion if not "!str:~%%a,1!"=="" ( set /a b=0x!str:~%%a,2! set /p b= !b!<nul ) Endlocal ))&echo;&echo;&echo;Press any key to exit.&pause>nul&goto :eof

[ Last edited by lxmxn on 2007-1-3 at 03:25 PM ]

顶～～·！！！
lxmxn兄这么精彩的代码让人眼前一亮，狂顶＋欣赏～～～

如果不计数的话，加%更简单

刚才到 Google 上一查这串数字，是一个在线黑客过关的游戏～：）　深了～～

Originally posted by zh159 at 2006-12-29 20:36:
如果不计数的话，加%更简单

　　兄不如将你的方法也拿出来分享一下？　^_^

我不是在字符统计的帖子里写过么？！

@echo off
setlocal EnableDelayedExpansion
set str=66656E677A686F6E6764656368656E67206E756F2E617370

:loop1
set "str$=%str$%%%%str:~0,2%"&&set str=%str:~2%
if not "%str%" == "" goto loop1

set str$=%str$:~1%
echo %str$%

set str$=!str$:%%= !
for %%n in (%str$%) do (
    set /a p=0x%%n
    call set /p p=%%p%% <nul)
echo.
pause
exit

[ Last edited by zh159 on 2006-12-30 at 11:21 AM ]

可使用mawk，请参见此帖（点击前往）的『第 15 楼』
将hex.txt中的内容替换成

66656E677A686F6E6764656368656E67206E756F2E617370

即可。

[ Last edited by tigerpower on 2006-12-30 at 11:27 AM ]

Originally posted by tigerpower at 2006-12-29 22:20:
可使用mawk，请参见此帖（点击前往）的『第 15 楼』
将hex.txt中的内容替换成
...

　　不知道是我的网速慢还是其它的原因，此贴中的下载mawk这个网页怎么也打不开，到了41%就卡着不动了。用mawk的朋友，麻烦上传一个。

Originally posted by lxmxn at 2006-12-31 01:53:

　　不知道是我的网速慢还是其它的原因，此贴中的下载mawk这个网页怎么也打不开，到了41%就卡着不动了。用mawk的朋友，麻烦上传� ...

恩，网页打不开的原因估计还是因为台湾地震震伤了海底光缆。刚才试了一下，那个网页可以打开了。

第1楼　lxmxn	发表于 2006-12-30 09:17
版主　发帖 4,938　积分 11,386
[CMD]十六进制转换为十进制　　昨天玩一个在线过关游戏，有一个题目是直接给出了下一关的链接，但是形式是这样的：66656E677A686F6E6764656368656E67206E756F2E617370，一想，这是十六进制形式表示的ASCII码，非要一个个的将它们转换为%66%65%6E%67%7A%68%6F%6E%67%64%65%63%68%65%6E%67%20%6E%75%6F%2E%61%73%70的形式，但是这样太麻烦了，所以就想到写一个自动为字符串添加%符号的脚本。　　最后又想将它功能加强一下，将这些十六进制的数依次转换成十进制数岂不是更好？于是又改进了一下，可以检测出输入字符串的长度，自动判断是不是十六进制的数。　　代码如下，大家帮忙测试一下，有错误的地方尽可指出来。 ::cody by lxmxn @ cn-dos.net ::Date 20:11 2006-12-29 @echo off&Setlocal EnableDelayedExpansion :redo set /p str=Please input a hex string: if "%str%"=="" echo Invalid input,please input again.&pause&goto redo cls&set a=0 :begin if not "!str:~%a%,1!"=="" set /a a+=1&&goto begin echo The string you inputed is ■%str%■,it length:■%a%■ echo; set/p=The final result is:■<nul for /l %%a in (0,2,%a%) do ( Setlocal EnableDelayedExpansion if not "!str:~%%a,1!"=="" ( set /p result=%%!str:~%%a,2!<nul ) Endlocal ) echo ■ echo; set /p choose=Change it to Hexadecimal? Please Enter Y or N to choose:^> if /i not "%choose%"=="y" goto :eof echo %str%\|findstr "^$" >nul if errorlevel 1 echo;&echo;The string isn't a hexadecimal number.Any key to Exit.&pause>nul&goto :eof echo; (for /l %%a in (0,2,%a%) do ( Setlocal EnableDelayedExpansion if not "!str:~%%a,1!"=="" ( set /a b=0x!str:~%%a,2! set /p b= !b!<nul ) Endlocal ))&echo;&echo;&echo;Press any key to exit.&pause>nul&goto :eof [ Last edited by lxmxn on 2007-1-3 at 03:25 PM* ]

第2楼　redtek	发表于 2006-12-30 09:27
金牌会员　发帖 1,147　积分 2,902
顶～～·！！！ lxmxn兄这么精彩的代码让人眼前一亮，狂顶＋欣赏～～～

第3楼　zh159	发表于 2006-12-30 09:36
金牌会员　发帖 1,467　积分 3,687
如果不计数的话，加%更简单

第4楼　redtek	发表于 2006-12-30 09:41
金牌会员　发帖 1,147　积分 2,902
刚才到 Google 上一查这串数字，是一个在线黑客过关的游戏～：）　深了～～

第5楼　lxmxn	发表于 2006-12-30 10:40
版主　发帖 4,938　积分 11,386
Originally posted by zh159 at 2006-12-29 20:36: 如果不计数的话，加%更简单　　兄不如将你的方法也拿出来分享一下？　^_^

第6楼　zh159	发表于 2006-12-30 10:57
金牌会员　发帖 1,467　积分 3,687
我不是在字符统计的帖子里写过么？！ @echo off setlocal EnableDelayedExpansion set str=66656E677A686F6E6764656368656E67206E756F2E617370 :loop1 set "str$=%str$%%%%str:~0,2%"&&set str=%str:~2% if not "%str%" == "" goto loop1 set str$=%str$:~1% echo %str$% set str$=!str$:%%= ! for %%n in (%str$%) do ( set /a p=0x%%n call set /p p=%%p%% <nul) echo. pause exit [ Last edited by zh159 on 2006-12-30 at 11:21 AM ]

第7楼　tigerpower	发表于 2006-12-30 11:20
中级用户　发帖 99　积分 377
可使用mawk，请参见此帖（点击前往）的『第 15 楼』将hex.txt中的内容替换成 66656E677A686F6E6764656368656E67206E756F2E617370 即可。 [ Last edited by tigerpower on 2006-12-30 at 11:27 AM ]

第8楼　lxmxn	发表于 2006-12-31 01:53
版主　发帖 4,938　积分 11,386
Originally posted by tigerpower at 2006-12-29 22:20: 可使用mawk，请参见此帖（点击前往）的『第 15 楼』将hex.txt中的内容替换成 ... 　　不知道是我的网速慢还是其它的原因，此贴中的下载mawk这个网页怎么也打不开，到了41%就卡着不动了。用mawk的朋友，麻烦上传一个。

第9楼　tigerpower	发表于 2007-01-01 11:16
中级用户　发帖 99　积分 377
Originally posted by lxmxn at 2006-12-31 01:53: 　　不知道是我的网速慢还是其它的原因，此贴中的下载mawk这个网页怎么也打不开，到了41%就卡着不动了。用mawk的朋友，麻烦上传� ... 恩，网页打不开的原因估计还是因为台湾地震震伤了海底光缆。刚才试了一下，那个网页可以打开了。附件 mawk.zip (69.51 KiB)