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

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:组策略
复制代码

狱渊

回复 1# novaa


    ip 的  打开不

路随梦寻

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

lky216

回复 1# novaa

l楼主的测试通过

lky216

回复 7# listen


windows 2012测试不通过 按1-7都退出了

lky216

先回帖表示谢谢 再发表评论

accer

呵呵，谢谢楼主分享！

faladi

记事本中如何输出“echo ────────────────────”中的横线？

faladi

记事本中如何输出“echo ────────────────────”中的横线！

4692980

很好 楼主厉害啊

web

谢谢楼主 支持啊  呵呵呵

garyng

解释的在详细点我就真的可以变成黑客啦～～

Taurus

10kb呢......

antony521

看了之后有当黑客的想法了

BatCoder

很多bat2exe工具转化之后的exe都会引起杀软误报，不一定是源代码的问题。