标题: [游戏娱乐] 批处理模仿黑客记事本 [打印本页]
作者: novaa 时间: 2007-12-11 19:45 标题: 批处理模仿黑客记事本
本批处理版面格式借用了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 时间: 2008-1-3 22:58
运行不起来,有点问题
作者: 柴火垛 时间: 2008-2-3 14:59
运行的起来啊,看似不错,。
作者: lixiaodaoaaa 时间: 2008-2-13 15:31 标题: 不错
试了一下,真的不错!
这个工具很管用的
作者: heiing 时间: 2008-2-14 15:48
嗯,确实不错,收藏了
作者: 宇宙浪人 时间: 2008-3-8 22:02
运行的起来啊,看似不错
作者: listen 时间: 2008-5-5 14:09
帮楼主修改好了
作者: listen 时间: 2008-5-5 14:17
总的来说..还是不能用...
作者: hfjgood 时间: 2008-7-21 18:47 标题: 制成批处理
怎样才能把那些代码制成批处理呢
作者: gxprg 时间: 2008-7-27 20:18
能运行,有启发。谢谢。
作者: cyfw 时间: 2008-8-3 22:40
hao!!good!!
作者: 84918930 时间: 2008-8-14 13:32
LZ辛苦,,
继续努力
作者: 糖水嘟嘟 时间: 2008-8-17 15:44
楼主辛苦了 ,楼主加油啊
作者: wzahj 时间: 2009-12-4 15:59
谢谢楼主 支持啊 呵呵呵
作者: symsymsym 时间: 2009-12-20 14:48
神人啊 我觉得我原来都是白学的
作者: fskyboy 时间: 2010-3-18 12:47
我把它编译成EXE的,最后诺顿给报毒了,楼主改改代码哈
作者: BatCoder 时间: 2010-3-18 14:29 标题: 回复 16楼 的帖子
很多bat2exe工具转化之后的exe都会引起杀软误报,不一定是源代码的问题。
作者: antony521 时间: 2010-4-5 19:59 标题: 好啊!
看了之后有当黑客的想法了
作者: Taurus 时间: 2010-7-3 05:07
10kb呢......
作者: garyng 时间: 2011-9-1 20:42
解释的在详细点我就真的可以变成黑客啦~~
作者: web 时间: 2012-10-16 22:21
谢谢楼主 支持啊 呵呵呵
作者: 4692980 时间: 2012-11-29 09:00
很好 楼主厉害啊
作者: faladi 时间: 2012-12-3 20:27
记事本中如何输出“echo ────────────────────”中的横线!
作者: faladi 时间: 2012-12-3 20:29
记事本中如何输出“echo ────────────────────”中的横线?
作者: accer 时间: 2013-4-10 19:18
呵呵,谢谢楼主分享!
作者: lky216 时间: 2013-4-10 21:01
先回帖表示谢谢 再发表评论
作者: lky216 时间: 2013-4-10 21:03
回复 7# listen
windows 2012测试不通过 按1-7都退出了
作者: lky216 时间: 2013-4-10 21:07
回复 1# novaa
l楼主的测试通过
作者: 路随梦寻 时间: 2013-4-20 11:38
试了一下,真的不错!
这个工具很管用的
作者: 狱渊 时间: 2013-4-28 19:42
回复 1# novaa
ip 的 打开不
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |