1：新建 加密解密器.bat
代码：
@echo off::该程序在xp下测试通过 2010.1.23mode con cols=71 lines=9title Kalision 个人专版加密器…if exist Thumb.db call :j & pause>nul & ping -n 2 127.1>nul & exitif exist 加密文件夹.{20D04FE0-3AEA-1069-A2D8-08002B30309D} goto eif exist in.com goto esetlocalsetlocal enabledelayedexpansioncolor 0fset per=现在请你把要加密的东西放到当前目录下自动生成的“加密文件夹”里面去…for /l %%u in (0,1,36) do (set /p=!per:~%%u,1!<nulping -n 1 127.1>nul)color 07clsendlocal:wsetlocal enabledelayedexpansionfor /f %%x in (‘tasklist ^|findstr /i "cmd.exe"’) do echo %%x>>%temp%\tmp.dbfor /f "tokens=1,2 delims=:" %%a in (‘findstr /n ".*" "%temp%\tmp.db"’) do (set str=%%a )del %temp%\tmp.dbset /a p=!str!-1if %p% equ 2 (call :yuguangwen 1 100)endlocalif exist in.com goto ocolor 0fmd 加密文件夹 || cls && echo [该目录下已存在“加密文件夹” 默认情况下将对它进行加密]attrib -s -h 加密文件夹 >nul 2>nulping -n 3 127.1>nul:rcolor 07set var=clsset /p var=请为《加密文件夹》设置密码: clscolor 0fif not defined var echo [密码不允许为空] & ping -n 2 127.1>nul & goto rgoto crc:ycolor 07set /p val=再次输入密码：if %var%==%val% goto errorclscolor 0fecho 两次输入的密码不一致 [请重新输入]ping -n 2 127.1>nulcolor 07goto r:errorif exist 加密文件夹 (goto h) else (ping -n 1 127.1>nulcall :yuguangwen 300 200):hattrib -s -h 加密文件夹>nul 2>nulmd 加密文件夹\NT加密..\ren 加密文件夹 加密文件夹.{20D04FE0-3AEA-1069-A2D8-08002B30309D}echo %val%:2 >in.comattrib +s +h in.comecho y|cacls in.com /p system:f >nul 2>nulcall :chenxi [文件夹加密成功]:chenxiclscolor 0ffor /l %%k in (1,1,20) do (ping /n 1 127.0.0.1>nulset /p a=<nulset /p a=<nulset /p a=<nulping -n 1 127.0.0.1>nulset /p=%1<nul)pause >nulping -n 2 127.1>nulexit:eif exist in.com (goto next) else (ping -n 1 127.1>nulcall:yuguangwen 1000 10):nextcolor 0fclsecho 请稍后…echo.echo ┌───────────────────┐set/p= ■<nulfor /L %%i in (1 1 19) do set /p a=■<nul&ping /n 1 127.0.0.1>nulecho 100%% echo └───────────────────┘ping -n 2 127.1>nulcolor 07clsif exist 加密文件夹.{20D04FE0-3AEA-1069-A2D8-08002B30309D} (goto continue) else (call :yuguangwen 9000 3000):yuguangwencall :txtset /a factor=%random%%%%2+%1clscolor fcecho 发生了一个错误 代号[%factor%]pause >nulping -n 2 127.1>nulexit:continueecho y|cacls in.com /g everyone:f >nul 2>nulfor /f "delims=: tokens=1" %%l in (in.com) do set vap=%%lfor /f "delims=: tokens=2" %%r in (in.com) do set demon=%%recho y|cacls in.com /p system:f >nul 2>nulcall :w:oclsset /p var=请输入密码进行解密 [你只有3次机会]: if %vap%==%var% goto iclsif %demon% equ 0 call :j & pause>nul & echo.>Thumb.db & attrib +s +h Thumb.db & ping 127.1 -n 2 >nul & exitecho clscolor 0fecho [密码错误] 你还有%demon%次机会…ping -n 3 127.1>nulcolor 07set /a demon- =1goto o:iif exist 加密文件夹 (ping -n 1 127.1>nulcall :yuguangwen 4000 4000)attrib -s -h 加密文件夹.{20D04FE0-3AEA-1069-A2D8-08002B30309D} >nul 2>nulren 加密文件夹.{20D04FE0-3AEA-1069-A2D8-08002B30309D} 加密文件夹rd 加密文件夹\NT加密..\echo y|cacls in.com /g everyone:f >nul 2>nuldel /a:h in.comcall :chenxi [解密成功]:jecho y|cacls in.com /p system:f >nul 2>nulecho [Bad luck] 你输入密码次数已超出额定的次数……请联系技术人员Kalision!for /l %%t in (1,1,100) do (color f0ping -n 0 127.1>nulcolor 0fping -n 1 127.1>nul)goto :eof:crcsetlocalsetlocal enabledelayedexpansioncall :a %var%:vfor /l %%t in (1,1,50) do (if "!var:~%%t,1!"=="" set hc=%%t & if !mz!==!hc! (goto y) else goto t ):aset ca=%1for /l %%u in (1,1,50) do (if "!ca:~%%u,1!"=="" set mz=%%u & goto v)):techo [密码不允许有空格等特殊字符]& ping -n 2 127.1>nul & goto rendlocal:txt>错误码.log echo 错误码>>错误码.log echo ——————————————->>错误码.log echo [1~100]……不允许同时开两个程序>>错误码.log echo [300~500]……加密时不存在“加密文件夹”>>错误码.log echo [1000~1010]……核心文件缺失>>错误码.log echo [4000~8000]……解密时同目录下存在“加密文件夹”,请删除>>错误码.log echo [9000~12000]……加密后的“加密文件夹”名字被该变,请还原start "" 错误码.loggoto:eof
2：根据提示来吧。OK！
版权声明：本文为博主原创文章，，未经博主允许不得转载。
怀着淡定从容的心态去面对，也就没有了真正意义上的寂寞了。
