::Made By Defanive
@echo off
title 批处理简易计算器
echo 批处理简易计算器（加密测试）
echo Made By Defanive
:loop
set /p s=请输入算式：
set /a ans=%s%
echo 　　　结果：%ans%
if %ans%==100 goto about
goto loop
:about
echo Made By Defanive
pause
goto loop
复制代码

::Made By Defanive
@echo off
title 批处理加密样品
set txt=批处理加密样品__Made_By_Defanive
for /l %%a in (0,1,24) do call set /p=%%txt:~%%a,1%%<nul&ping -n 1 127.0.0.1 >nul
ping 127.0.0.1 >nul
:loop
ping -n 1 127.0.0.1 >nul
cls
echo %date% %time%
goto loop
复制代码

@echo off&setlocal enabledelayedexpansion
title 批处理加密样品 第六版
set txt= 批处理加密样品 第六版  Made By Defanive
set clr=0123456789abcdef
mode con:cols=41 lines=3
echo.
set/p= ---------------------------------------<NUL 
 for /l %%a in (1,1,39) do set /p=^>nul
cls
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 !clr:~%c%,1!0
复制代码

@echo off
echo %time%>>%~s0
for /f "delims=" %%a in ('findstr /n "::@" %~s0')do echo 行：%%a
pause
::@
信息。。。
复制代码