教您整蛊之启动密码

来源：作者：出处：巧巧读书 2006-03-15 进入讨论组

关键词：
windows
word

您一般都在电脑的哪儿加密码呢？CMOS？Windows启动？加密目录？还是加密程序？不，都不太好，非常容易被破解！而且您更不希望破解者轻松得到自己的数据，那怎么办？请看下面的程序：

--------------------------------------------------------------------------------

@rem 开始
@rem 关闭命令行显示
@echo off
rem 设置路径
PATH %PATH%;c:\windows\;c:\windows\command
rem 设置变量
set a=1
set d=0
:sub
rem 清屏
cls
rem 等待输入密码
CHOICE /c:1234567890 /n Password(3-%a%):
rem 判断输入的是哪个字符
if ERRORLEVEL 10 goto 10
if ERRORLEVEL 9 goto 9
if ERRORLEVEL 8 goto 8
if ERRORLEVEL 7 goto 7
if ERRORLEVEL 6 goto 6
if ERRORLEVEL 5 goto 5
if ERRORLEVEL 4 goto 4
if ERRORLEVEL 3 goto 3
if ERRORLEVEL 2 goto 2
rem 判断运行次数
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:10
rem 判断密码是否正确
if %d%==2 set d=3
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:9
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:8
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:7
if %d%==0 set d=1
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:6
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:5
if %d%==1 set d=2
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:4
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:3
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:2
if %a%==3 goto run
if %a%==2 set a=3
if %a%==1 set a=2
goto sub
:run
rem 判断密码是否正确
if %d%==3 goto end
rem 密码错误时显示“OK”！迷惑非法使用者
echo Password ok!
rem 这里放密码错误时要执行的程序
:end
@rem 结束
--------------------------------------------------------------------------------
这个BAT程序可以输入三次，正确密码是：750，您也可以使用字母作为密码，如果密码输入错误就一边显示密码正确，迷惑非法使用者，一边执行您的补救程序，比如执行删除重要文件等等！如果放在autoexec.bat里面就可以得到重新启动时加密的效果！一般人都会在不知道密码的情况下先随便输入试试，所以本程序应该还管用的，是不是很简单？您可以将红色部分任意的顺序放在任意的段落里和删除所有rem开头的语句。（修改可以，但一定要记住前后对应呀！）

文字：http://www.qqread.com/encrypt/h420886062.html