@echo off
set/a size=%~z1
set/a si=size/512+1
::取文件大小
pushd %~dp1
echo;&echo;&echo 正在转换请稍候。。。。。。
(echo ;可用于在DEBUG里恢复成二进制程序的16进制数据,n后面的文件名不能以.exe为扩展名。
echo a
call :hex %1
echo n 文件名
echo w
echo q
)>for_debug.txt
start for_debug.txt
del %~n0.fc /q
goto :eof

:hex
setlocal enabledelayedexpansion
for /l %%a in (1,1,128) do (set spac=!spac!    )
(for /l %%k in (1,1,!si!) do set /p=!spac!%~n0.fc
::准备一个比当前文件大的全空格文件

set n=-1
for /f "skip=1 tokens=1-3 delims=: " %%a in ('fc %~n0.fc %~nx1 /b') do (
        if "%%a"=="FC" goto :fcok
        set/a _a=0x%%a,n+=1
        if !_a! neq !n! (
                set /a n+=1
                for /l %%z in (!n!,1,!_a!) do (set "fc=!fc! 20")
                set /a n=_a
        )
        set "fc=!fc! %%c"
        if "!fc:~60!" neq "" (echo;db!fc:~,60!&set fc=!fc:~60!)
)
::利用fc 的二进制对比，取十六进制编码,并生成debug 可以接受的输入串

:fcok
echo;db!fc!
call :o-h 调用子过程，把文件大小转为16进制。

echo r cx
echo !hh:~-4!
if "!hh:~4!" neq "" (echo r bx&echo !hh:~,-4!)
::转为debug可以接受的格式，低位在cx寄存器，高位在bx寄存器。

endlocal
goto :eof

:o-h
set n=0
for %%a in (0 1 2 3 4 5 6 7 8 9 a b c d e f) do (set h!n!=%%a&set/a n+=1)
:ohlp
set/a one=size%%16,size=size/16
set hh=!h%one%!!hh!
if !size! equ 0 goto :eof
goto :ohlp
复制代码