У меня есть инструмент сканирования портов, и он использует программу командной строки paping.exe, (Если вы хотите, вы можете установить ее здесь, https://code.google.com/archive/p/paping/downloads), и пока я могу сканировать несколько портов наIP-адрес или веб-сайт, но это будет слишком много времени, чтобы вручную сканировать все порты с 1-65 535, поэтому мне нужно, чтобы он сканировал все 65 535 портов и отображал, какие порты открыты, не занимая много времени
Вотмой код:
@echo off
::BatchGotAdmin
::-------------------------------------
REM --> Check for permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe"
"%SYSTEMROOT%\system32\config\system"
REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"="
echo UAC.ShellExecute "cmd.exe", "/c %~s0 %params%", "", "runas", 1 >>
"%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
del "%temp%\getadmin.vbs"
exit /B
:gotAdmin
pushd "%CD%"
CD /D "%~dp0"
::--------------------------------------
:PortScan
set /p Ip=Enter a IP or Website to ping:
paping.exe %Ip% -p 1 -c 1
paping.exe %ip% -p %port% -c 1 | findstr "protocol=TCP"
if %errorlevel% == 0 (
cls
color 0a
echo Port %port% is Open.
) else (
cls
color 4
echo Port is Closed.
)
pause
goto :LoopScan
:LoopScan
@echo off
setlocal enableextensions enabledelayedexpansion
set /a count = 1
set /a count += 1
paping.exe %ip% -p !count! -c 1 | findstr "protocol=TCP"
if %errorlevel% == 0 (
cls
color 0a
set /
goto openport
echo These ports are open: %%n
) else (
cls
color 4
goto closeport
echo Ports are Closed.
)
pause
)
endlocal
pause
openport:
Echo The Following Ports Are Open: !count!