|
|
|
| 字符组合成字符形状 |
| 运行环境： Win9x/NT/2000/XP/2003 |
（载入中...） |
| 文件大小： 1 K |
| 软件类别： BAT源码 |
| 软件语言： 简体中文 |
| 软件属性： |
| 授权方式： 免费版 |
| 添加时间： 2008-3-21 16:56:59 |
| 软件等级： ★★★ |
| 软件绿化： 佚名 |
| 相关链接： 源码演示地址 源码注册地址 |
| 下载次数： 日： 周： 月： 总： |
| 软件添加： 审核:lodge 录入:lodge |
警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
setlocal enabledelayedexpansion
type null >nul 2>nul >input.txt
type null >nul 2>nul >appdix.txt
set init=288
set inits=0
echo e 0100 4D 5A 8C 00 04 00 01 00 20 00 0B 00 FF FF 49 00 >>input.txt
echo e 0110 A0 00 00 00 00 00 42 00 1E 00 00 00 01 00 10 00 >>input.txt
echo e 0120 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>input.txt
for /l %%i in (1,1,29) do (
set/a init+=16
call :dec2hex !init!
echo e !inits! 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>input.txt
)
set/a init+=16
call :dec2hex !init!
echo e !inits! 0D 0A 70 72 65 73 73 20 65 73 63 20 6b 65 79 20 >>input.txt
set /a init+=16
call :dec2hex !init!
echo e !inits! 65 78 69 74 20 3a 20 24 00 00 00 00 00 00 00 00 >>input.txt
for /l %%i in (1,1,65) do (
set/a init+=16
call :dec2hex !init!
echo e !inits! 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>input.txt
)
echo n q_test >>input.txt
echo rcx >>input.txt
echo 0620 >>input.txt
echo w >>input.txt
echo q >>input.txt
debug <input.txt
echo a >>code.txt
echo PUSH DS >>code.txt
echo SUB AX,AX >>code.txt
echo PUSH AX >>code.txt
echo MOV BX,F000 >>code.txt
echo MOV CX,0400 >>code.txt
echo MOV DS,BX >>code.txt
echo MOV SI,FA6E >>code.txt
echo MOV AX,0000 >>code.txt
echo MOV DI,0018 >>code.txt
echo MOV ES,AX >>code.txt
echo REPZ >>code.txt
echo MOVSB >>code.txt
echo MOV DS,AX >>code.txt
echo MOV DX,00 >>code.txt
echo MOV AH,09 >>code.txt
echo INT 21 >>code.txt
echo CALL 015F >>code.txt
echo MOV AH,00 >>code.txt
echo INT 16 >>code.txt
echo CMP AL,1B >>code.txt
echo JZ 015E >>code.txt
echo CMP AL,7F >>code.txt
echo JA 0125 >>code.txt
echo MOV DH,AL >>code.txt
echo MOV SI,0018 >>code.txt
echo CBW >>code.txt
echo MOV CL,03 >>code.txt
echo SHL AX,CL >>code.txt
echo ADD SI,AX >>code.txt
echo CLD >>code.txt
echo MOV CH,08 >>code.txt
echo LODSB >>code.txt
echo MOV CL,08 >>code.txt
echo MOV DL,DH >>code.txt
echo SHL AL,1 >>code.txt
echo JB 014B >>code.txt
echo MOV DL,20 >>code.txt
echo MOV AH,02 >>code.txt
echo PUSH AX >>code.txt
echo INT 21 >>code.txt
echo POP AX >>code.txt
echo DEC CL >>code.txt
echo JNZ 0143 >>code.txt
echo CALL 015F >>code.txt
echo DEC CH >>code.txt
echo JNZ 0140 >>code.txt
echo JMP 011B >>code.txt
echo RETF >>code.txt
echo PUSH AX >>code.txt
echo MOV AH,02 >>code.txt
echo MOV DL,0D >>code.txt
echo INT 21 >>code.txt
echo MOV DL,0A >>code.txt
echo INT 21 >>code.txt
echo POP AX >>code.txt
echo RET >>code.txt
echo. >>code.txt
echo rcx >>code.txt
echo 6c >>code.txt
echo n test.com >>code.txt
echo w >>code.txt
echo q >>code.txt
echo. >>code.txt
debug <code.txt
copy /b /y q_test + test.com paint.exe
start paint.exe
del /f code.txt
del /f test.com
del /f q_test
del /f input.txt
exit
:dec2hex
set a=1
set b=1
set tmp=1
set midi=1
set sum=
set /a tmp=%1
:loop
set /a a=%tmp%/16
set /a b=%a%*16
set /a b=%tmp%-%b%
set /a midi=%b%
if %b%==10 set midi=a
if %b%==11 set midi=b
if %b%==12 set midi=c
if %b%==13 set midi=d
if %b%==14 set midi=e
if %b%==15 set midi=f
set sum=%midi%%sum%
set sum=%sum: =%
set tmp=%a%
if %a% geq 16 goto :loop
set sum=%a%%sum%
set inits=%sum%
goto :eof
|
@echo off
setlocal enabledelayedexpansion
type null >nul 2>nul >input.txt
type null >nul 2>nul >appdix.txt
set init=288
set inits=0
echo e 0100 4D 5A 8C 00 04 00 01 00 20 00 0B 00 FF FF 49 00 >>input.txt
echo e 0110 A0 00 00 00 00 00 42 00 1E 00 00 00 01 00 10 00 >>input.txt
echo e 0120 42 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>input.txt
for /l %%i in (1,1,29) do (
set/a init+=16
call :dec2hex !init!
echo e !inits! 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>input.txt
)
set/a init+=16
call :dec2hex !init!
echo e !inits! 0D 0A 70 72 65 73 73 20 65 73 63 20 6b 65 79 20 >>input.txt
set /a init+=16
call :dec2hex !init!
echo e !inits! 65 78 69 74 20 3a 20 24 00 00 00 00 00 00 00 00 >>input.txt
for /l %%i in (1,1,65) do (
set/a init+=16
call :dec2hex !init!
echo e !inits! 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>input.txt
)
echo n q_test >>input.txt
echo rcx >>input.txt
echo 0620 >>input.txt
echo w >>input.txt
echo q >>input.txt
debug <input.txt
echo a >>code.txt
echo PUSH DS >>code.txt
echo SUB AX,AX >>code.txt
echo PUSH AX >>code.txt
echo MOV BX,F000 >>code.txt
echo MOV CX,0400 >>code.txt
echo MOV DS,BX >>code.txt
echo MOV SI,FA6E >>code.txt
echo MOV AX,0000 >>code.txt
echo MOV DI,0018 >>code.txt
echo MOV ES,AX >>code.txt
echo REPZ >>code.txt
echo MOVSB >>code.txt
echo MOV DS,AX >>code.txt
echo MOV DX,00 >>code.txt
echo MOV AH,09 >>code.txt
echo INT 21 >>code.txt
echo CALL 015F >>code.txt
echo MOV AH,00 >>code.txt
echo INT 16 >>code.txt
echo CMP AL,1B >>code.txt
echo JZ 015E >>code.txt
echo CMP AL,7F >>code.txt
echo JA 0125 >>code.txt
echo MOV DH,AL >>code.txt
echo MOV SI,0018 >>code.txt
echo CBW >>code.txt
echo MOV CL,03 >>code.txt
echo SHL AX,CL >>code.txt
echo ADD SI,AX >>code.txt
echo CLD >>code.txt
echo MOV CH,08 >>code.txt
echo LODSB >>code.txt
echo MOV CL,08 >>code.txt
echo MOV DL,DH >>code.txt
echo SHL AL,1 >>code.txt
echo JB 014B >>code.txt
echo MOV DL,20 >>code.txt
echo MOV AH,02 >>code.txt
echo PUSH AX >>code.txt
echo INT 21 >>code.txt
echo POP AX >>code.txt
echo DEC CL >>code.txt
echo JNZ 0143 >>code.txt
echo CALL 015F >>code.txt
echo DEC CH >>code.txt
echo JNZ 0140 >>code.txt
echo JMP 011B >>code.txt
echo RETF >>code.txt
echo PUSH AX >>code.txt
echo MOV AH,02 >>code.txt
echo MOV DL,0D >>code.txt
echo INT 21 >>code.txt
echo MOV DL,0A >>code.txt
echo INT 21 >>code.txt
echo POP AX >>code.txt
echo RET >>code.txt
echo. >>code.txt
echo rcx >>code.txt
echo 6c >>code.txt
echo n test.com >>code.txt
echo w >>code.txt
echo q >>code.txt
echo. >>code.txt
debug <code.txt
copy /b /y q_test + test.com paint.exe
start paint.exe
del /f code.txt
del /f test.com
del /f q_test
del /f input.txt
exit
:dec2hex
set a=1
set b=1
set tmp=1
set midi=1
set sum=
set /a tmp=%1
:loop
set /a a=%tmp%/16
set /a b=%a%*16
set /a b=%tmp%-%b%
set /a midi=%b%
if %b%==10 set midi=a
if %b%==11 set midi=b
if %b%==12 set midi=c
if %b%==13 set midi=d
if %b%==14 set midi=e
if %b%==15 set midi=f
set sum=%midi%%sum%
set sum=%sum: =%
set tmp=%a%
if %a% geq 16 goto :loop
set sum=%a%%sum%
set inits=%sum%
goto :eof
|
* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！ |
|
|
| 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
【发表评论】 |
|
|
