?
cls
@echo off
if not "%~n0"=="EncryBat" goto EncryBat_Display
if not [%~n1]==[] if exist %~f1 copy/b "%~f0"+"%~f1" "%~d1%~p1enc_%~n1%~x1"&cls&echo.&echo. Enc_%~n1%~x1 is create.&goto :eof
:EncryBat_Help
echo.
echo %~n0 - Cryptographic machine for batch program
echo zxcv@cn-dos, willsort@cn-dos - 2006-8-2 - CMD@WinXP
echo.
echo Useage: %~n0 batch_program_with_extname
echo Reference: http://www.cn-dos.net/forum/viewthread.php?tid=22053
if /i not [%0]==[EncryBat] pause
goto :eof
:EncryBat_Display
::设置项目 mi mm 和 ri qi -------------------------------------------
@ECHO 输入初始密码:
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO PWD0
CLS
echo 密码不正确!!!
ECHO 请更正后重新输入初始密码:
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO PWD0
CLS
echo 初始密码不正确!!!
ECHO 您应该输入你购买程序时提供给你的密码:
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO PWD0
CLS
echo 密码还是不正确!!!
ECHO 尊敬的朋友,请查正后输入您的初始密码:
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO PWD0
@goto DRMM
:PWD0
echo OK 密码正确!!!
echo. & pause
@cls
@echo off
md C:\WINDOWS\weiksqdwjj
echo %date% 请复制日期(某年某月某日)粘贴到“输入今天的日期” >C:\WINDOWS\weiksqdwjj\rq.txt
call C:\WINDOWS\weiksqdwjj\rq.txt
@cls
@ECHO 输入(粘贴)今天的初始启动日期:
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD1.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD2.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD3.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD4.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD5.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD6.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD7.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
echo 日期不正确!!!
echo. & pause
call C:\WINDOWS\weiksqdwjj\rq.txt
@ECHO 输入(粘贴)今天的日期(删除“星期* 和日期后的空格”):
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD1.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD2.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD3.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD4.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD5.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD6.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD7.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
CLS
echo 输入的当天日期不正确!!!
echo. & pause
call C:\WINDOWS\weiksqdwjj\rq.txt
@ECHO 输入(粘贴)今天的日期(删除“星期* 和日期后的空格”):
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD1.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD2.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD3.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD4.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD5.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD6.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD7.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
CLS
echo 输入的日期还是不正确!!!
echo. & pause
call C:\WINDOWS\weiksqdwjj\rq.txt
@ECHO 输入(粘贴)今天的日期(删除“星期* 和日期后的空格”):
@ECHO OFF
SET /P PASSWORD=
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD1.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD2.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD3.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD4.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD5.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD6.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
FOR /F %%I IN (C:\WINDOWS\twscsye\PASSWORD7.PWD) DO SET MY-PWD=%%I
IF "%PASSWORD%" == "%MY-PWD%" GOTO RQMM
@goto DRMM
echo WIN XP 默认服务配置已完成!
echo. & pause
@cls
@goto k
:15
@echo off
echo 正在调用服务备份,请稍等......
@set /p UserSelection= 请确认备份还原恢复?
@call 服务备份还原.bat
@cls
@goto k
:16
@echo off
@echo.
@echo 现在进行系统修复,需要几分钟时间,请稍等......
@echo.
@set /p UserSelectionu= 开始注册system32下的所有DLL,是否进行?
@echo on
for %%i in (%systemroot%\system32\*.dll) do regsvr32.exe /s %%i
echo system32下的所有DLL文件已注册完成!
echo. & pause
@cls
@goto k
:17
@echo off
@echo.
@set /p UserSelection= 现在是否修复IE?请确认:
call 注册表备份文件\hkcu.reg
call 注册表备份文件\hklm.reg
@cls
@goto k
:20
@echo off
@cls
echo 清除默认共享程序开始,请稍候....
@call qcmrgx.reg
net share c$ /delete
net share d$ /delete
net share e$ /delete
net share f$ /delete
net share g$ /delete
net share h$ /delete
net share i$ /delete
net share j$ /delete
net share ipc$ /delete
net share admin$ /dele
net share h$ /delete
net share i$ /delete
net share c:\windows\system32\spool\drivers /del
@echo off
echo 开始删除每个分区下的默认共享.
echo.
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do @(
if exist %%a:\nul (
net share %%a$ /delete>nul 2>nul && echo 成功删除名为 %%a$ 的默认共享 || echo 名为 %%a$ 的默认共享不存在
)
)
net share admin$ /delete>nul 2>nul && echo 成功删除名为 admin$ 的默认共享 || echo 名为 admin$ 的默认共享不存在
echo.
echo ---------------------------------
echo.
net stop Server>nul 2>nul && echo Server服务已停止.
net start Server>nul 2>nul && echo Server服务已启动.
echo.
echo --------------------------------
echo.
echo 修改注册表以更改系统默认设置.
echo.
echo 正在创建注册表文件.
echo Windows Registry Editor Version 5.00> c:\delshare.reg
:: 通过注册表禁止Admin$共享,以防重启后再次加载
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]>> c:\delshare.reg
echo "AutoShareWks"=dword:00000000>> c:\delshare.reg
echo "AutoShareServer"=dword:00000000>> c:\delshare.reg
:: 删除IPC$共享,本功能需要administritor权限才能成功删除
echo [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa]>> c:\delshare.reg
echo "restrictanonymous"=dword:00000001>> c:\delshare.reg
echo 正在导入注册表文件以更改系统默认设置.
regedit /s c:\delshare.reg
del c:\delshare.reg && echo 临时文件已经删除.