[游戏娱乐] 批处理模仿黑客记事本

novaa

本批处理版面格式借用了NAMEJM的
本批处理中建立文件夹的代码在3742668的代码基础上进行了修改.
以后估计不写这么长的代码了，好要时间过。呵呵。

::code by novaa @ bbs.bathome.net 
@echo off&title 黑客记事本&color 02&setlocal enabledelayedexpansion
goto :Begin
禁止默认共享
net share ipc$ /delete
net share admin$ /delete
net share c$ /delete
net share d$ /delete
建立IPC$空连接:
net use \\IP\ipc$ "" /user:"" (一定要注意:这一行命令中包含了3个空格) 
建立IPC$非空连接:
net use \\IP\ipc$ "用户名" /user:"密码"
映射默认共享:
net use z: \\IP\c$ "密码" /user:"用户名" (即可将对方的c盘映射为自己的z盘，其他盘类推)
如果已经和目标建立了ipc$，则可以直接用IP+盘符+$访问,具体命令 net use z: \\IP\c$
删除一个ipc$连接
net use \\IP\ipc$ /del 
删除共享映射
net use c: /del 删除映射的c盘，其他盘类推 
net use * /del 删除全部,会有提示要求按y确认
添加系统用户
net user 用户名 密码 /add
net localgroup administrators 用户名 /add
删除用户
net user 用户名 /del
查看进程
tasklist
结束进程
taskkill /f /pid 进程PID号
查看开放端口
netstat
查看IP及DNS和MAC
ipconfig /all
查看共享
net view
net share
开启服务
start 服务名
:Begin
if not exist File.ini (cd.>File.ini
echo 华夏黑客联盟 www.77169.com>>File.ini
echo 爱国者黑客 www.3800hk.com>>File.ini
echo 黑客动画吧 www.hack58.com>>File.ini
echo 第八军团 www.juntuan.net>>File.ini
echo 网络安全焦点 www.xfocus.net>>File.ini
echo 冰兰技术联盟 www.icehack.cn>>File.ini
echo 黑客手册 www.nohack.cn
echo 邪恶八进制 forum.eviloctal.com>>File.ini
)
:Menu
cls
::显示功能
::本批处理版面格式借用了NAMEJM的
::本批处理中建立文件夹的代码在3742668的代码基础上进行了修改.
echo.
echo.
echo ╭────────╮
echo ╭─────────┤Novaa 黑客记事本├─────────╮
echo │ ╰────────╯ │
echo │ │ 
echo │ │ 
echo │ 功能 1.常登入的黑客网站 │
echo │ │ 
echo │ 2.注册表操作 │
echo │ │ 
echo │ 3.常用入侵及DOS命令 │ 
echo │ │ 
echo │ 4.运行里可输入的命令集合 │ 
echo │ │ 
echo │ 5.打开记事本 │ 
echo │ │ 
echo │ 6.建立黑客文件夹分类 │
echo │ │ 
echo │ 7.查看本机IP │ 
echo │ │ 
echo ╰────────────────────────────╯
echo 请选择功能 退出请输入 0
echo ────────────────────
set /p Choice=
if "%Choice%"=="0" exit
for %%i in (1,2,3,4,5,6,7) do if "%%i"=="%Choice%" set Go=1
if defined Go (goto :Choice%Choice%) else (
echo 错误的输入,请重新输入.
goto :Menu
)

:Choice1
cls&echo\&echo\&echo\
echo 添加网站请输入:1&echo\&echo\
echo 打开网站请输入:2&echo\&echo\
echo 返回上一层菜单请输入:3
set /p Choice_1=
if "%Choice_1%"=="1" goto :Choice_1
if "%Choice_1%"=="2" goto :Choice_2
if "%Choice_1%"=="3" goto :Menu
:Choice_1
cls&echo\&echo\&echo\
set /p Choice_netname= 请输入你想添加的网站名称:&echo\&echo\
set /p Choice_netadd= 请输入该网站的域名(无需 http://):
echo %Choice_netname% %Choice_netadd%>>File.ini
cls&echo.&echo.&echo.&echo.&echo 网站已经添加!&ping /n 3 127.1>nul
goto :Choice1

:Choice_2
cls&echo\&echo\&echo\
findstr /n .* File.ini&echo\
set /p Choice1=请输入你想登入的网站代码:
for /f "tokens=1,2* delims=: " %%i in ('findstr /n .* File.ini') do (
if "%Choice1%"=="%%i" start http://%%k
)
goto :Menu

:Choice2
cls&echo\&echo\&echo\
echo 有些功能需要重启电脑后方可生效!&echo\
echo 1.禁用(解禁)注册表&echo\
echo 2.禁用(解禁)开始菜单中的运行&echo\
echo 3.禁用(解禁)开始菜单中的控制面板&echo\
echo 4.禁用(解禁)网上邻居&echo\
echo 5.禁用(解禁)任务管理器&echo\
echo 6.禁用(解禁)右键快捷菜单&echo\
echo 7.禁用(解禁)在开始菜单拖放快捷键&echo\
echo 8.禁止更改"主页"&echo\
echo 请选择功能(输入代号+功能:禁用输入1.解禁输入0)
echo 比如 输入 11表示禁用注册表&echo\
echo 输入错误将返回主菜单
set /p Reg_2=请输入:
set Reg_21=%Reg_2:~0,1%
set Reg_22=%Reg_2:~1,1%
for %%i in (1,2,3,4,5,6,7,8) do if "%%i"=="%Reg_21%" set Go_1=1
if defined Go_1 (call :%Reg_21% & goto :Choice2_2) else echo 错误的输入&ping /n 3 127.1>nul&goto :Menu 



:1
::禁用注册表
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d %

Reg_22% /f
goto :eof
:2
::禁用开始菜单中的运行
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d %Reg_22% /f
goto :eof
:3
::禁用开始菜单中的控制面板
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoSetFolders /t REG_DWORD /d %Reg_22% /f
goto :eof
:4
::禁用网上邻居
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoNetHood /t REG_DWORD /d %Reg_22% /f
goto :eof
:5
::禁用任务管理器
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d %Reg_22% /f
goto :eof
:6
::禁用右键快捷菜单
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d %

Reg_22% /f
goto :eof
:7
::禁用在开始菜单拖放快捷键
reg add HkCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoChangeStartMenu /t REG_DWORD /d %

Reg_22% /f
goto :eof
:8
::禁止更改"主页"
reg add HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel /v HomePage /t REG_DWOED /d 1
goto :eof

:Choice2_2
cls&echo\&echo\&echo\&echo\&echo\&echo\
echo 继续请输入:1
echo\&echo\
echo 任意键回到主目录
set /p Choice2_2=
if "%Choice2_2%" == 1 (goto :Choice2) else goto :Menu

:Choice3
color 02
set LineNum=38
for /f "tokens=1* delims=:" %%i in ('findstr /n .* "%~0"') do (
if %%i leq %LineNum% set "_%%i=%%j"
)
set "_1=命令都是教常用的"
set "_2=希望对大家有帮助"
set "_3=By Novaa"
cls&echo\&echo\
for /l %%i in (1 1 38) do set /p= !_%%i!<NUL&ECHO\
echo\&echo\
echo 退出请输入:1&echo\
echo 任意键返回
set /p Choice3_1=请输入:
if "%Choice3_1%" == "1" (goto :eof) else goto :Menu

:Choice4
color 02
::找出"winver:检查Windows版本" 所在的行.
for /f "tokens=1* delims=:" %%i in ('findstr /n .* "%~0"') do (
if "%%j"=="winver:检查Windows版本" set SkipLine=%%i
)
set /a SkipLine=SkipLine-1
cls&echo\&echo\&echo\
set num=1
for /f "skip=%SkipLine% delims=" %%i in ('findstr .* "%~0"') do set /p= !num!.%%i<NUL&ECHO\&SET num+="1
echo 执行命令请输入:1
echo 返回主菜单请输入:2
set /p Choice_12=
if "%Choice_12%"=="1" goto:Choice_4
if "%choice_12%"=="2" (goto :Menu) else (cls&echo 错误的输入!&ping /n 127.1>nul&goto :Menu)

:Choice_4
if exist Choice_4.ini del Choice_4.ini 
cls&echo\&echo\&echo\
for /f "tokens=1* delims=:" %%i in ('findstr /n .* "%~0"') do (
if "%%j"=="winver:检查Windows版本" set SkipLine=%%i
)
set /a SkipLine=SkipLine-1
cls&echo\&echo\&echo\
set num=1
for /f "skip=%SkipLine% delims=" %%i in ('findstr .* "%~0"') do echo !num!.%%i>>Choice_4.ini&echo\&set /a num+=1
findstr .* Choice_4.ini
set /p Choice4_1=请输入命令的编号:
for /f "tokens=1,2* delims=.:" %%i in ('findstr .* Choice_4.ini') do (
if "%Choice4_1%"=="%%i" start %%j
)
goto :Menu


:Choice5
start notepad
goto :Menu

:Choice6
:Choice_Help
cls&echo\&echo\&echo\&echo\
echo 本功能能够按照你的需要建立完整的工具文件夹结构&echo\
echo 请将你需要的分类按照下面的格式保存为Tool.txt放在同目录下&echo\
echo 1 扫描
echo 流光 X_SCAN Superscan
echo 2
echo 1 远程监控
echo 灰鸽子 黑洞 Radmin 
echo 2
echo 1 木马后门
echo 自己写了
echo 2
echo\
echo 1在新类前;2在类别结束后&echo\&echo\
echo 已经准备好了?&echo\&echo\&echo\
echo 准备好了请输入:1
echo\
echo 返回主目录请输入:2
echo\
set /p Choice_6=请输入
if "%Choice_6%"=="2" goto :Menu
if "%Choice_6%"=="1" (goto :Choice6_ok) else (cls&echo\&echo\&echo\&echo 错误的输入! &ping /n 3 

127.1>nul&goto :Choice_Help)
:Choice6_ok
cls&echo\&echo\&echo\&echo\
::这段代码非原创
::code by 3742668 2006-9-22 modified by jm
set /p Holder=请输入你想要保存文件夹的路径:
copy Tool.txt %Holder%
pushd %Holder%
for /f "tokens=*" %%i in (Tool.txt) do call :Create %%i
del Tool.txt
goto :Menu

:Create
if "%1" == "2" popd
if "%1" == "1" (if exist %2 rd /q /s %2
if exist 2 rd /q /s 2
md %2
pushd %2
) else (
if exist %* rd /q /s %*
md %*
if exist 2 rd /q /s 2
)
goto :eof

:Choice7
cls&echo\&echo\&echo\&echo\&echo\
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
echo %ip%&echo\&echo 任意键返回
pause>nul
goto :Menu

winver:检查Windows版本
wmimgmt.msc:打开windows管理体系结构
wupdmgr:windows更新程序
winver:检查Windows版本
wmimgmt.msc:打开windows管理体系结构
wupdmgr:windows更新程序
wwww:windows脚本宿主设置
write:写字板
winmsd:系统信息
wiaacmgr:扫描仪和照相机向导
winchat:XP自带局域网聊天
mem.exe:显示内存使用情况
Msconfig.exe:系统配置实用程序 
mplayer2:简易widnows media player
mspaint:画图板
mstsc:远程桌面连接
mplayer2:媒体播放机
magnify:放大镜实用程序
mmc:打开控制台
mobsync:同步命令
dxdiag:检查DirectX信息
drwtsn32:系统医生
devmgmt.msc:设备管理器
dfrg.msc:磁盘碎片整理程序
diskmgmt.msc:磁盘管理实用程序
dcomcnfg:打开系统组件服务
ddeshare:打开DDE共享设置
dvdplay:DVD播放器
net stop messenger:停止信使服务
net start messenger:开始信使服务 
notepad:打开记事本
nslookup:网络管理的工具向导
ntbackup:系统备份和还原
narrator:屏幕"讲述人"
ntmsmgr.msc:移动存储管理器
ntmsoprq.msc:移动存储管理员操作请求
netstat :an:(TC)命令检查接口
syncapp:创建一个公文包
sysedit:系统配置编辑器
sigverif:文件签名验证程序
sndrec32:录音机
shrpubw:创建共享文件夹
secpol.msc:本地安全策略
syskey:系统加密，一旦加密就不能解开，保护windows xp系统的双重密码
services.msc:本地服务设置
Sndvol32:音量控制程序
sfc.exe:系统文件检查器
sfc /scannow:windows文件保护
tsshutdn:60秒倒计时关机命令
tourstart:xp简介（安装完成后出现的漫游xp程序）
taskmgr:任务管理器
eventvwr:事件查看器
eudcedit:造字程序 
explorer:打开资源管理器
packager:对象包装程序
perfmon.msc:计算机性能监测程序
progman:程序管理器
regedit.exe:注册表 
rsop.msc:组策略结果集
regedt32:注册表编辑器
rononce :p :15秒关机
regsvr32 /u *.dll:停止dll文件运行
regsvr32 /u zipfldr.dll:取消ZIP支持
cmd.exe:CMD命令提示符
chkdsk.exe:Chkdsk磁盘检查
certmgr.msc:证书管理实用程序
calc:启动计算器
charmap:启动字符映射表
cliconfg:SQL SERVER 客户端网络实用程序
Clipbrd:剪贴板查看器
conf:启动netmeeting
compmgmt.msc:计算机管理
cleanmgr:**整理
ciadv.msc:索引服务程序
osk:打开屏幕键盘
odbcad32:ODBC数据源管理器
oobe/msoobe /a:检查XP是否激活
lusrmgr.msc:本机用户和组
logoff:注销命令
iexpress:木马捆绑工具，系统自带
Nslookup:IP地址侦测器
fsmgmt.msc:共享文件夹管理器
utilman:辅助工具管理器
gpedit.msc:组策略
复制代码

meishishen

运行不起来，有点问题

柴火垛

运行的起来啊，看似不错，。

lixiaodaoaaa

试了一下,真的不错!
这个工具很管用的

heiing

嗯，确实不错，收藏了

宇宙浪人

运行的起来啊，看似不错

listen

帮楼主修改好了

listen

总的来说..还是不能用...

hfjgood

怎样才能把那些代码制成批处理呢

gxprg

能运行，有启发。谢谢。

cyfw

hao!!good!!

84918930

LZ辛苦,,
继续努力

糖水嘟嘟

楼主辛苦了   ，楼主加油啊

wzahj

谢谢楼主 支持啊  呵呵呵

symsymsym

神人啊  我觉得我原来都是白学的