batch ip scanner shaddowsearch

Ini pengembangan dari batch ip scanner netview, pengaruhnya
mungkin lebih cepat dalam menscan!

echo off
prompt ~
color a
IF NOT EXIST c:a mkdir c:a
IF EXIST c:a del /q c:a*
cls
title Scanner IP Address
echo.
echo Shadow Search
echo ----------------------------------------------------
echo Masukkan IP Address (IP 1.IP 2.IP 3.IP 4)
echo Contoh Penggunaan (IP 1.IP 2.IP 3.IP 4)-(127.0.0.1)
echo Made Special To YOGYAFREE
echo Create By Shadow Angel
echo ----------------------------------------------------
echo.
echo IP 1=
set /p w=
echo IP 2=
set /p x=
echo IP 3=
set /p y=
echo IP 4=
set /p z=
set count=0

:10
echo c:\a\ShadowScan-%w%.%x%.%y%.%z%.txt
IF EXIST c:\a\ShadowScan-%w%.%x%.%y%.%z%.txt GOTO :CARI

:KEMBALI

set /a count=%count%+1

If %w% EQU 255 If %x% EQU 255 If %y% EQU 255 If %z% EQU 255 (cls && echo Nomor Kombinasinya adalah : %count%)
If %x% EQU 255 If %y% EQU 255 If %z% EQU 255 (Set /a w=%w%+1 && Set x=0 && Set y=0 && Set z=0 && goto :10)
If %y% EQU 255 If %z% EQU 255 (Set /a x=%x%+1 && Set y=0 && Set z=0 && goto :10)
If %z% EQU 255 (Set /a y=%y%+1 && Set z=0 && goto :10)
set /a z=%z%+1
cls
GOTO :10

:CARI
FINDSTR Share c:\a\ShadowScan-%w%.%x%.%y%.%z%.txt
If %errorlevel% EQU 0 echo %w%.%x%.%y%.%z% >> c:Hasil.txt
IF %ERRORLEVEL% EQU 0 type c:\a\ShadowScan-%w%.%x%.%y%.%z%.txt >> c:Shadow Scan.txt
GOTO :KEMBALI
::Salam di edit oleh Benny Kirana