中国DOS联盟

@rem dmndso-cmw

@echo off

set /p pass=<%~nx0

set pass=%pass:~5%

call :Return %%pass%%

for /f "tokens=1" %%i in (%~nx0) do if "%%i"=="::" goto Judges

for /f "delims=" %%i in ('cd') do echo.:: %%i\%~nx0>>%~nx0

:Judges

for /f "tokens=1* delims= " %%i in (%~nx0) do set puth=%%j

for /f "delims=" %%i in ('cd') do if "%%i\%~nx0"=="%puth%" goto pass

echo 错误！不是原文件。&del /q 复件>nul 2>nul&ping /n 2 127.1>nul&goto :eof

:pass

set /a n+=1

set /a m=4-%n%

if %m% equ 0 cls&echo 对不起，因没正确输入密码，本程序将自动结束。&ping /n 3 127.1>nul&goto :eof

cls&set /p pwd=请正确输入密码，你还有%m%次机会：

if not "%pwd%"=="%password%" goto pass

set password=&set a=&set b=&set n=0&set new=1

cls&echo 密码正确，直接回车继续使用原密码，如要更改请输入新密码。

set /p new=输入新密码:

if "%new%"=="1" goto run

call :change %%new%%

setlocal enabledelayedexpansion

for /f "delims=" %%i in ('type %~nx0') do (

    set /a n+=1

    if !n! equ 1 (

                 echo @rem %password%>%~nx0

                 ) else (

                        endlocal&echo %%i>>%~nx0

                        )

)

:run

cls&echo 程序开始运行...

pause>nul&goto :eof

:Return

set a=%pass:~-1,1%

if not "%pass:~1%"=="" (

                       set b=%pass:~,1%

                       ) else (

　　　　　　　　　　          set b=

　　　　　　　　　　          ) 

set password=%password%%a%%b%&set pass=%pass:~1,-1%

if defined pass goto Return

goto :eof

:change 

set a=%new:~,1%%a%&set b=%b%%new:~1,1%&set new=%new:~2%

if defined new goto change

set password=%b%%a%

Originally posted by 26933062 at 2008-4-20 20:40:
代码比较臃肿，但你说的错误原因应该是这句
for /f "tokens=1* delims= " %%i in (%~nx0) do set path=%%j
不能用　ｐａｔｈ　作变量名，ｐａｔｈ是系统默认的变量，

Originally posted by ZJHJ at 2008-4-20 23:18:
哈哈,经测试,有点意思!

确实运行后,‘不能复制,不能移动’。特点：修改密码后写入自身，并错位保存，读取

依然。2 初始运行写入原始地以及文 ...

wdmmjsfblpj

@rem dmsbpjlfjmw
@echo off
set /p pass=<%~nx0
set pass=%pass:~5%
call :Return %%pass%%
echo %password%
pause
for /f "tokens=1" %%i in (%~nx0) do if "%%i"=="::" goto Judges
for /f "delims=" %%i in ('cd') do echo.:: %%i\%~nx0>>%~nx0
:Judges
for /f "tokens=1* delims= " %%i in (%~nx0) do set puth=%%j
for /f "delims=" %%i in ('cd') do if not "%%i\%~nx0"=="%puth%" echo 错误！不是原文件，请使用原文件运行。&del /q 复件>nul 2>nul&ping /n 2 127.1>nul&goto :eof
:pass
set /a n+=1
set /a m=4-%n%
if %m% equ 0 cls&echo 对不起，由于三次输入都不正确，程序将自动结束。&ping /n 2 127.1>nul&goto :eof
cls&set /p pwd=请正确输入密码，你还有%m%次机会：
if not "%pwd%"=="%password%" cls&echo 密码不正确！&ping /n 2 127.1>nul&goto pass
set password=&set a=&set b=&set n=0&set new=1
cls&echo 密码正确，直接回车则继续使用原密码，如要更改请输入新密码。
set /p new=请在此输入新密码:
if "%new%"=="1" goto run
call :change %%new%%
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('type %~nx0') do (
set /a n+=1
if !n! equ 1 (
echo @rem %password%>%~nx0
) else (
endlocal&echo %%i>>%~nx0
)
)
:run
echo 程序开始运行...
pause>nul&goto :eof
:Return
set a=%pass:~-1,1%
if not "%pass:~1%"=="" (set b=%pass:~,1%) else (set b=)
set password=%password%%a%%b%&set pass=%pass:~1,-1%
if defined pass goto Return
goto :eof
:change
set a=%new:~,1%%a%&set b=%b%%new:~1,1%&set new=%new:~2%
if defined new goto change
set password=%b%%a%

Originally posted by zh159 at 2008-4-21 01:04:
密码：

wdmmjsfblpj

这样就可以显示密码了：

Originally posted by zh159 at 2008-4-21 01:12:
只要稍加了解这个exe的特性并稍稍看明白BAT流程就知道了

Originally posted by zh159 at 2008-4-21 01:21:
不管怎么处理，在输入密码比较之前都必须要得到%password%，在合适的位置插入echo %password%&pause就知道了