批处理之家 - Powered by Discuz! Board

@echo off
:: wangwei qq 251485609
(chcp 437 &graftabl 936)>nul
SET SYB=A100;0AEB 3030 3020 2030 3030 2420 00B8 CD00;B833 0001 33CD 05B8 CD00 A933 0007 F674;E086 300D A330 0102 C889 08B3 18E8 A300;0105 D089 08B3 0EE8 A300 0108 09B4 02BA;CD01 B421 CD4C F621 08F3 74E4 FE02 FEC0;88C0 B1C4 D204 25E8 0F0F 300D 3C30 7639;0402 8007 39FC 0376 C480 C307 ;
SET V=;RCX;006C;N mouse.com;W;Q
(ECHO.%SYB:;=&ECHO.DW %&ECHO.%V:;=&ECHO.%)|DEBUG>NUL
:fhzb
cls
@echo.
@echo 十六进制码与十进制码互转
@echo.
@echo 十六进制转十进制码
@echo.
@echo 十进制转十六进制码
for /f "tokens=1-3" %%1 in ('mouse.com') do (set /a X=0x%%2,Y=0x%%3) 2>nul
if %X% GTR 3 if %X% LSS 20 if %Y% EQU 4 goto slzs
if %X% GTR 3 if %X% LSS 20 if %Y% EQU 6 goto szsl
goto :fhzb
:slzs
cls
@echo.
@echo 十六进制转十进制码
@echo.
set/p file=输入要处理的十六进制文件:
::按空格分开为行
cd.>temp.txt
for /f "delims=" %%i in (%file%) do (
for %%a in (%%i) do echo %%a>>temp.txt
)
cd.>十进制.txt
setlocal EnableDelayedExpansion
for /f %%a in (temp.txt) do (
set s=%%a
set /a s=0x!s!
set /p=!s! <nul >>十进制.txt
)
del temp.txt
goto:eof
:szsl
@echo off
cls
@echo.
@echo 十进制转十六进制码(仅适合于十六进制转换的十进制码)
@echo.
set/p file=输入要处理的十进制文件:
::按空格分开为行
setlocal EnableDelayedExpansion
cd.>temp.txt
for /f "delims=" %%i in (%file%) do (
for %%a in (%%i) do echo %%a>>temp.txt
)
cd.>十六进制.txt
for /f %%a in (temp.txt) do (
set qwe=%%a
set qwe=!qwe!
call :duon %qwe%
set /p=!cdm! <nul >>十六进制.txt
)
del temp.txt
goto:eof
:duon
set /a y= qwe%%16
set /a ya=qwe/16%%16
set m=0123456789ABCDEF
set cdm=!m:~%ya%,1!!m:~%y%,1!
goto:eof

复制代码

:::=======================10进制转16进制==============================
::返回值在中%sum%
:dec2hex
if not "%frist_BL%"=="1" (set "frist_BL=1"&set "sum="&set "yu_num="&set /a sor_num=%*)
set /a yu_num= %sor_num% %% 16
set /a sor_num /= 16
call:set_YU %yu_num%
set sum=%ret%%sum%
if %sor_num% lss 16 (set "end_BL=1"&call:set_YU %sor_num%) else (set "end_BL=0")
if "%end_BL%"=="1" (set sum=%ret%%sum%&set "frist_BL=0"&goto:eof)
goto dec2hex
:set_YU
set ret=
if "%1" == "10" set ret=A
if "%1" == "11" set ret=B
if "%1" == "12" set ret=C
if "%1" == "13" set ret=D
if "%1" == "14" set ret=E
if "%1" == "15" set ret=F
if %1 lss 10 set ret=%1
goto :eof
::=======================END CODE===============================

复制代码

@echo off&setlocal enabledelayedexpansion
set/p s=输入转换数:
set/p x=请输入要转换的几进制?
set str=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
:lp
set /a "n=8189,m=0,r=0"
for /l %%a in (1,1,14) do (
set /a "u=(n+m)/2"
for %%i in (!u!) do if "!s:~%%i!" equ "" (set /a n=u) else set /a m=u
)
for /l %%i in (0,1,%u%) do (
rem set/a "n=!s:~%%i,1!+(r*10),r=n&1,n>>=1"
set/a "n=!s:~%%i,1!+(r*10),r=n%%x,n/=x"
set v=!v!!n!
)
set b=!str:~%r%,1!!b!
if "!v:0=!" neq "" set s=!v!&set "v="&goto lp
echo "!b!"
pause

复制代码

::==================10进制转16进制==============================
::返回值在中%ret%
:dec2hex
set str=0123456789ABCDEF&set "ret="
set/a d=%~1
:lp
set/a y=!d!%%16,d/=16
call set ret=%%str:~!y!,1%%!ret!
if !d! NEQ 0 goto:lp
goto :eof
::=======================END CODE===============================

复制代码

@echo off & setlocal EnableDelayedExpansion
set #i=22345
set $t=0123456789ABCDEF
set /a "#1=#i>>12,#2=(#i&0xF00)>>8,#3=(#i&0xF0)>>4,#4=#i&0xF"
set #o=!$t:~%#1%,1!!$t:~%#2%,1!!$t:~%#3%,1!!$t:~%#4%,1!
echo %#i%=0x%#o%
pause

复制代码

:dec2hex - %1 十进制数值 %2 十六进制变量名
setlocal EnableDelayedExpansion
set #i=%1
set $t=0123456789ABCDEF
for /l %%i in (1,1,8) do set/a"#%%i=#i&15,#i>>=4"&for %%e in (!#%%i!) do set #o=!$t:~%%e,1!!#o!
endlocal & set %2=%#o%

复制代码

:dec2hex - %1 十进制数值 %2 十六进制变量名
setlocal EnableDelayedExpansion
set n=%1
for /l %%i in (1,1,8) do set/a"H%%i=n&15,n>>=4"&set o=!H%%i!:!o!
for %%e in ("10:=A" "11:=B" "12:=C" "13:=D" "14:=E" "15:=F" ":=") do set o=!o:%%~e!
endlocal & set %2=%o%

复制代码