标题: [CMD]十六进制转换为十进制 [打印本页]
作者: lxmxn 时间: 2006-12-30 09:17 标题: [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 "^[0-9a-fA-F]*$" >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
::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 "^[0-9a-fA-F]*$" >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 ]
作者: redtek 时间: 2006-12-30 09:27
顶～～·！！！
lxmxn兄这么精彩的代码让人眼前一亮，狂顶＋欣赏～～～
作者: zh159 时间: 2006-12-30 09:36
如果不计数的话，加%更简单
作者: redtek 时间: 2006-12-30 09:41
刚才到 Google 上一查这串数字，是一个在线黑客过关的游戏～：） 深了～～
作者: lxmxn 时间: 2006-12-30 10:40
| Quote: | |
|
兄不如将你的方法也拿出来分享一下？ ^_^
作者: zh159 时间: 2006-12-30 10:57
我不是在字符统计的帖子里写过么？！
@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 ]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
作者: tigerpower 时间: 2006-12-30 11:20
可使用mawk，请参见此帖（点击前往）的『第 15 楼』
将hex.txt中的内容替换成
66656E677A686F6E6764656368656E67206E756F2E617370
即可。
[ Last edited by tigerpower on 2006-12-30 at 11:27 AM ]
作者: lxmxn 时间: 2006-12-31 01:53
| Quote: | |
|
不知道是我的网速慢还是其它的原因，此贴中的下载mawk这个网页怎么也打不开，到了41%就卡着不动了。用mawk的朋友，麻烦上传一个。
作者: tigerpower 时间: 2007-1-1 11:16
| Quote: | |
|
恩，网页打不开的原因估计还是因为台湾地震震伤了海底光缆。刚才试了一下，那个网页可以打开了。
附件 1:mawk.zip (2007-1-1 11:16, 69.51 K, 下载附件所需积分 1点 ,下载次数： 18)