中国DOS联盟

@echo off

setlocal enabledelayedexpansion

title 批处理加密样品 第五版

set txt= 批处理加密样品 第五版  Made By Defanive

set back=

set clr=0123456789ABCDEF

mode con: cols=41 lines=3

echo.

for /l %%a in (0,1,29) do (

set /p=t!txt:~%%a,1!<nul

call :color

ping -n 1 127.0.0.1 >nul

)

for /l %%a in (1,1,10) do (

call :color

ping -n 1 127.0.0.1 >nul

)

for /l %%a in (1,1,40) do (

set /p= <nul

call :color

ping -n 1 127.0.0.1 >nul

)

for /l %%a in (1,1,32) do (

set txt=        !date!  !time!

set /p=t!txt:~%%a,1!<nul

call :color

ping -n 1 127.0.0.1 >nul

)

:loop

set /p=       !date!  !time!<nul

call :color

ping -n 1 127.0.0.1 >nul

goto loop

:color

set /a c=%random%%%16

color 0!clr:~%c%,1!