[特效代码] 建个需输入密码才能运行的批处理

@echo off
title 启动By赖蛤蟆
cls
color 9f
echo 请按任意键  输入密码[密码为panwanpeng2008]
pause >nul
call :ipt %0 pd
if /i "%pd%"=="panwanpeng2008" (goto do) else goto s

:do
cls
color 9f
echo.
echo 密码输入正确,请稍候...
echo off
ping 127.0.0.1 -n 3 >nul
echo 
title By赖蛤蟆
echo off
color 0d  
cls
echo _______________________________________ 
echo ____##########*________________________    
echo __*##############______________________      
echo __################_____________________       
echo _##################_________**##*______         
echo __##################_____*##########___         
echo __##################_____*##########___      
echo ___#################*_###############*_      
echo ____#################################*_      
echo ______###############################__       
echo _______####*******赖蛤蟆*******######__         
echo ________###########################____       
echo ___________*#######髒愛D.i.y######_____                    \\  - -  // 
echo ____________*##################________                     (  @ @  ) 
echo _____________*###############__________┏━━━━━━━━━oOOo-(_)-oOOo━┓
echo _______________#############___________┃     我不想再影响你的前途...     ┃
echo ________________##########_____________┃_________________________________┃ 
echo ________________=#######*______________┃          祝你找到幸福..  Oooo   ┃ 
echo _________________######________________┗━━━━━━━━━ oooO━-(   )━┛ 
echo __________________####___联系QQ:_______                     (   )   ) /
echo __________________###___312217685______                      \ (   (_/
echo ___________________#___________________                       \_) 
echo _______________________________________                                       
  
Echo 请按任意键关闭该窗口－－再见。 & pause > nul
exit
:s
Echo 密码输入错误,程序自动退出...
echo off
ping 127.0.0.1 -n 3 >nul
exit

:ipt
pushd %tmp%&set lines=0&set f=%1&set p=%2
for /f "usebackq delims=" %%a in (%f%) do if "%%a" neq "::for debug:" (set/a lines+=1) else (goto :w)
:w
set/a lines+=1
more +%lines% %f%|debug>nul&move t "t.com"
cls
t
echo exit|cmd /kprompt d20:0 20$_q$_|debug>t
for /f "skip=2 tokens=*" %%a in (t) do set t=%%a&call set t=%%t:~61,16%%&call set s=%%s%%%%t%%
for /f "skip=2 tokens=2" %%a in (t) do set/a l=0x%%a&goto :t
:t
call set %p%=%%s:~1,%l%%%&set "lines="&set "f="&set "p="&set "t="&set "s="&set "l="
del t t.com&popd&>nul (chcp 437&graftabl 936)&goto :eof
::for debug:
e0100 BB 00 B8 8E C3 BF 00 00 BE 00 00 B4 00 CD 16 80
e0110 FC 0E 75 0E 83 FE 00 74 F2 4E 4F 4F 26 C6 05 20
e0120 EB E9 80 FC 1C 74 1C 3C 20 72 E0 26 C6 05 2A 8C
e0130 C2 BB 00 00 8E C3 26 88 84 01 02 8E C2 83 C7 02
e0140 46 EB C8 BB 00 00 8E C3 8B C6 26 A2 00 02 B8 00
e0150 4C CD 21
rcx
53
n t
w
q
复制代码