@echo off-------------------- 关闭回显
cls--------------------清屏  此法虽然没有临时文件，但会显示编译过程
more +72 "%~0"|debug&graftabl 936>nul-------------------more 偏移  ，截取我的东东，  你自己要改more的值
copy/b/y C:\WINDOWS\system32\$tmp$ C:\WINDOWS\system32\BL_alarm.exe>nul
del/a/f/q C:\WINDOWS\system32\$tmp$
goto:test_f-------------------这个是去执行下个的 ，
e0100  4D 5A 90 00 03 00 00 00 04 00 00 00 FF FF 00 00 --------------------文件代码
e0110  B8 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00 
e0120  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
e0130  00 00 00 00 00 00 00 00 00 00 00 00 B8 00 00 00 
.........
..........
...........
rcx
5FFF
nC:\WINDOWS\system32\$tmp$
w
q-----------------记得退出
复制代码

@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 ec= 
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 m=0x%%a,n+=1
        if !m! neq !n! (
                set /a n+=1
                for /l %%z in (!n!,1,!m!) do (set "fc=!fc! 20")
                set /a n=m
        )
        set "fc=!fc! %%c"
        for %%d in (!fc!) do (if defined kk (set ec=!ec!%%d!kk! &set kk=) else (set kk=%%d))
        set ec=!ec:0 =z !
        set ec=!ec: 00= !
        set ec=!ec: 0= !
        set ec=!ec:z=0!
        set fc=
        
        if "!ec:~76!" neq "" (
                if "!ec:~70,1!" equ " " (echo;dw!ec:~,70!&set ec=!ec:~70!) else (
                        if "!ec:~71,1!" equ " " (echo;dw!ec:~,71!&set ec=!ec:~71!) else (
                                if "!ec:~72,1!" equ " " (echo;dw!ec:~,72!&set ec=!ec:~72!) else (
                                        if "!ec:~73,1!" equ " " (echo;dw!ec:~,73!&set ec=!ec:~73!) else (echo;dw!ec:~,74!&set ec=!ec:~74!)
                                )
                        )
                )
        )
)
::利用fc 的二进制对比，取十六进制编码,并生成debug 可以接受的输入串

:fcok
echo;dw!ec!
echo;
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
::;利用fc的二进制对的特性

: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
复制代码