如何用批处理命令制作一个简单的端口扫描器 - 中国DOS联盟论坛

『楼主』: [原创]网络监听之P处理

;)
最近编了一可以监听网络连接的P处理供大家参考、指正与完善：

@ECHO OFF
setlocal enabledelayedexpansion
COLOR 2A & TITLE 编辑 & set /p Expr=地址：
:gleep

rem 如果输入指定主机名简称则跳转LPL或LPS，如果输入为其它主机名或IP则转至LEEP

IF /I NOT %Expr:~0,7% == L IF /I NOT %Expr:~0,7% == S GOTO LEEP
goto lp%Expr%
:LPl
set Expr=Lxq&goto leep
:LPs
set Expr=Ssh

:LEEP

REM 输入为IP时变量设置为2（可参考PING IP的输出），如输入为主机名则设为3（可参考PING ComputerName的输出），
REM 用FOR取出主机名的IP，并且FOR行可判断主机名或IP是否存在,其中172为本人局域网的前部分

IF %Expr:~0,3%==172 (SET AA=2) ELSE (SET AA=3)
for /f "usebackq tokens=%AA% delims=[] " %%i in (`PING %Expr%`) do (IF NOT %%i==could (SET AAA=%%i&GOTO LLP) ELSE (echo.&echo 找不到此地址&echo.&GOTO PPP))

:LLP

rem 显示结果，其中%AAA%为FOR提取的IP，%Expr%为输入值

netstat -a | find "%AAA%"||netstat -a | find "%Expr%"
IF %ERRORLEVEL% EQU 0 GOTO LLP

REM 如果没指定的连接，则显示输入值，有侧显示主机名与其IP

IF %Expr:~0,3%==172 ECHO.&ECHO 未发现%Expr%的连接!
IF NOT %Expr:~0,3%==172 ECHO.&ECHO 未发现%Expr%:%AAA%的连接!
:PPP
ECHO.&set /p Expr=新地址(EXIT,CLS,CMD):
IF /I %Expr%==EXIT EXIT
IF /I %Expr%==CMD %COMSPEC%
IF /I %Expr%==CLS CLS&GOTO PPP
GOTO gleep

第1楼　q5331006	发表于 2007-03-16 05:03
新手上路　发帖 5　积分 14
如何用批处理命令制作一个简单的端口扫描器要写毕业论文了,请大家帮帮忙,帮偶想一下如何用批处理命令制作一个简单的端口扫描器的思路,有具体的例子就更好了,谢谢了!~

第2楼　youxi01	发表于 2007-03-16 05:32
高级用户　发帖 247　积分 846　来自湖南==》广东
效率极其低下，还是别试了

第3楼　q5331006	发表于 2007-03-19 05:57
新手上路　发帖 5　积分 14
回复二楼如果知道请提供一下思路,谢谢!

第4楼　electronixtar	发表于 2007-03-19 07:05
铂金会员　发帖 2,672　积分 7,493
……原来毕业论坛也可以写批处理的

第5楼　q5331006	发表于 2007-03-20 02:08
新手上路　发帖 5　积分 14
高手浮上来撒马上要做开题报告了,一点思路都没

第6楼　xlong	发表于 2007-03-22 09:09
新手上路　发帖 2　积分 6
端口监听之P处理『楼主』: [原创]网络监听之P处理 ;) 最近编了一可以监听网络连接的P处理供大家参考、指正与完善： @ECHO OFF setlocal enabledelayedexpansion COLOR 2A & TITLE 编辑 & set /p Expr=地址： :gleep rem 如果输入指定主机名简称则跳转LPL或LPS，如果输入为其它主机名或IP则转至LEEP IF /I NOT %Expr:~0,7% == L IF /I NOT %Expr:~0,7% == S GOTO LEEP goto lp%Expr% :LPl set Expr=Lxq&goto leep :LPs set Expr=Ssh :LEEP REM 输入为IP时变量设置为2（可参考PING IP的输出），如输入为主机名则设为3（可参考PING ComputerName的输出）， REM 用FOR取出主机名的IP，并且FOR行可判断主机名或IP是否存在,其中172为本人局域网的前部分 IF %Expr:~0,3%==172 (SET AA=2) ELSE (SET AA=3) for /f "usebackq tokens=%AA% delims=[] " %%i in (`PING %Expr%`) do (IF NOT %%i==could (SET AAA=%%i&GOTO LLP) ELSE (echo.&echo 找不到此地址&echo.&GOTO PPP)) :LLP rem 显示结果，其中%AAA%为FOR提取的IP，%Expr%为输入值 netstat -a \| find "%AAA%"\|\|netstat -a \| find "%Expr%" IF %ERRORLEVEL% EQU 0 GOTO LLP REM 如果没指定的连接，则显示输入值，有侧显示主机名与其IP IF %Expr:~0,3%==172 ECHO.&ECHO 未发现%Expr%的连接! IF NOT %Expr:~0,3%==172 ECHO.&ECHO 未发现%Expr%:%AAA%的连接! :PPP ECHO.&set /p Expr=新地址(EXIT,CLS,CMD): IF /I %Expr%==EXIT EXIT IF /I %Expr%==CMD %COMSPEC% IF /I %Expr%==CLS CLS&GOTO PPP GOTO gleep

第7楼　hanwudiliu	发表于 2007-03-23 00:03
新手上路　发帖 6　积分 12
不错,学习一下