Типа дарова кодер. У тя не было идеи что-то
свое написать. Если ты читаешь "Хакер"
то небось имеешь свой  написанный CGI-checker,
MailBomber etc. Для полного счастья только сканера
портов не хватает, этим то мы и займемся —
ведь если ты в день хотя бы один сайт не
сканил на открытые порты, то ты себя
начинаешь плохо чувствовать. Так, на чем его
мы будем  писать …….. на ПЕРЛЕ конечно. Ну
приступим.

Первое что тебе надо сделать — так это
установить на своей машине Перл, скачать
мона от сюда www.perl.com,
там выбери ссылку Download. Ну вот ты его
установил. Все проги придется писать в Notepad
-e и сохранять с расширением ..pl. Ну вот ты уже
открыл свой Notepad, теперь помести этот текст
туда (то, что идет после знака # можешь не
писать — это типа объяснение , чтобы ты лучше
понял)

 #!usr/bin/perl     # это означает ,что
это Перл прога
use Socket;        #это означает ,что
мы будем использовать модуль для сокетов
$af_inet=2;         #ну это
типа просто — потом пригодится
$sock_stream=1;  #это тоже
$protocol=(getprotobyname(‘tcp’))[2];   #тут мы
указываем, что мы будем использовать
протокол TCP
$end="\015\012";  #код завершения строки
print "Give me a host :)\n";  #запрос сайта
который ты хош сканить 
$site=<stdin>;chomp $site;  #это означает что в
переменную $site будет помещаться то , что ты
набрал с клавы
@pot=qw( 21 23 24 25 139);  #создаем массив с портами
которые надо  сканить
foreach $port (@pot) {  #типа начало цикла
$addr=(gethostbyname($site))[4];  #тут определяется айпи
адрес сервера ,если ты будешь сканить
определенный айпи адрес, то приравняй его к
переменной addr
$addrs=pack ("S n a4 x8", $af_inet,$port,$addr);    #присваиваем
переменной айпи адрес и тд
if (!(socket(LOAD,$af_inet,$SOCK_STREAM,$protocol)))
{    #если у нас траблы с сокетом то
выводим ошибку
print "Some fault may be with socket\n";
}
if (connect(LOAD,$addrs)) {  #если мы подконнектились
,то выводим к какому порту
print "$port open\n";
}
} #конец цикла

Теперь сохраняй все это в папке \Perl\bin\ — с
расширением .pl и именем Scanner. Вот  и все,
осталось только зайти в дос и написать
следующее:
                         
Perl Scanner.pl После чего нуна будет ввести имя
сканируемого сервера. Я надеюсь, что ты не от
балды вводил все это и что ты, дополнив
данный код, сделаешь сам CGI прогу и
скинешь ее на какой-нибудь сервак, чтобы при
скане не светился твой айпи.

Оставить мнение

Check Also

В гостях у чертёнка. FreeBSD глазами линуксоида

Порог вхождения новичка в мир Linux за последние десять-пятнадцать лет ощутимо снизился. О…