netbenton

原码是不是这样呀？

@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
cls
echo Made By Defanive
pause
exit

netbenton

我还是可以看到你的原码，加密方法有点巧，出于对你的劳动成果的尊重，怎么才能看到原码，我就不方便说了。

有个问题，不知道长一点的原码会不会有什么问题。

netbenton

第六版源码是不是这样呀：

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