Пишем сканер открытых портов своими руками.

[Ad]

Всем привет. Давненько я статьи не писал. Сегодня мы разберем, как сканировать свою машину на открытые порты.
Вам потребуется: Visual Basic 6.0, прямые руки.
Так открывай Visual Basic (VB) или он у тебя открыт.
Далее добавляем на форму компонент Winsock. Добавили? Идем дальше. Добавляем четыре TextBox’a на форму, а так же кнопку (command), и StatusBar – в нем будет отображаться, что данная программа делает на определенном этапе. Вот уже визуально программа готова. Выглядит примерно так:
http://img82.imageshack.us/img82/8299/interfacescanerbd7.gif
Дальше нажимаем на форму два раза (УДАЛЯЕМ ВСЕ С ПРОГРАММНОГО КОДА) и вставляем этот код, кстати я его пояснил максимально:
Private Sub Form_Load()
End Sub

Private Sub FoundPorts_Change()
FoundPorts.SelStart = Len(FoundPorts.Text) ‘длина строки порта
End Sub

Private Function AddPort(Port As Integer)
FoundPorts.Text = FoundPorts.Text & "[Connected] Port " & Port & vbCrLf –‘это выводимый, текуший текст
End Function

Private Sub Sock_Connect(Index As Integer)
AddPort (Sock(Index).RemotePort) – ‘если порт открыт, то эта строка нам показывает, что порт открыт!!!
Sock(Index).Close ‘ Закрываем сокет
End Sub

Private Sub Sock_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) ‘ показываем, что сокет закрыт, но данные должны остаться целыми в интерфейсе
Sock(Index).Close ‘ закрываем сокет
End Sub

Вот и все. Да кстати по Default’у можете поставить LocalHost и тогда программа должна сканировать вашу машину на открытые порты. Да кстати важная деталь у WinSock’a Index должен быть равен нулю!!!
Всех с наступающим новым годом!
(c) d1n 2006

[KSURi]

гениально
PS:

perl -MIO::Socket -e "for(1..65535){if($sock=IO::Socket->new(PeerAddr=>"localhost",PeerPort=>$_)){print $_.' '}}"

[Gh0s7]

Мда. К мега превад 1337 сканеру ксуря +1) Перл рулед.

[_Great_]

Боян в принципе.. ну ладно, в честь нг пару плюсиков дам.

KSURi, ыыы )

main()
{
int fd;
struct sockaddr_in sa;
int i;

#ifndef _WIN32
#define closesocket close
WSADATA w; WSAStartup(0x202, &w);
#endif

memset(&sa.sin_zero, 0, 8);
sa.sin_addr.s_addr = inet_addr("127.0.0.1");
sa.sin_family = AF_INET;

for(i=1;i<65536;i++)
{
fd = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
sa.sin_port = htons(i);
if(connect(fd, (struct sockaddr*)&sa, sizeof(sa)) != -1)
printf("%d\n", i);
closesocket(i);
}
}

[Gh0s7]

Боян в принципе.. ну ладно, в честь нг пару плюсиков дам.

KSURi, ыыы )

main()
{
int fd;
struct sockaddr_in sa;
int i;

#ifndef _WIN32
#define closesocket close
WSADATA w; WSAStartup(0x202, &w);
#endif

memset(&sa.sin_zero, 0, 8);
sa.sin_addr.s_addr = inet_addr("127.0.0.1");
sa.sin_family = AF_INET;

for(i=1;i<65536;i++)
{
fd = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
sa.sin_port = htons(i);
if(connect(fd, (struct sockaddr*)&sa, sizeof(sa)) != -1)
printf("%d\n", i);
closesocket(i);
}
}


ждем сканера портов на кубасике, питоне и аштэмел

[Ad]

Еще могу на php выложить :)

[W!z@rD]

пошел делать сканер портов на Photoshop
=))

[Dude03]

Боян в принципе.. ну ладно, в честь нг пару плюсиков дам.

KSURi, ыыы )

main()
{
int fd;
struct sockaddr_in sa;
int i;

#ifndef _WIN32
#define closesocket close
WSADATA w; WSAStartup(0x202, &w);
#endif

memset(&sa.sin_zero, 0, 8);
sa.sin_addr.s_addr = inet_addr("127.0.0.1");
sa.sin_family = AF_INET;

for(i=1;i<65536;i++)
{
fd = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
sa.sin_port = htons(i);
if(connect(fd, (struct sockaddr*)&sa, sizeof(sa)) != -1)
printf("%d\n", i);
closesocket(i);
}
}
быстрее будет, если использовать неблокирующие сокеты и потом "собрать" все select'ом

[KPOT_f!nd]

Perl + Shell => рулиТТТ! БЫСТРО НАМНОГО ЧЕМ ЭТОТ! +) за старание

[seledkapod]

Народ помогите, делаю все вот так:Всем привет. Давненько я статьи не писал. Сегодня мы разберем, как сканировать свою машину на открытые порты.
Вам потребуется: Visual Basic 6.0, прямые руки.
Так открывай Visual Basic (VB) или он у тебя открыт.
Далее добавляем на форму компонент Winsock. Добавили? Идем дальше. Добавляем четыре TextBox’a на форму, а так же кнопку (command), и StatusBar – в нем будет отображаться, что данная программа делает на определенном этапе. Вот уже визуально программа готова. Выглядит примерно так:
http://img82.imageshack.us/img82/8299/interfacescanerbd7.gif
Дальше нажимаем на форму два раза (УДАЛЯЕМ ВСЕ С ПРОГРАММНОГО КОДА) и вставляем этот код, кстати я его пояснил максимально:
Private Sub Form_Load()
End Sub

Private Sub FoundPorts_Change()
FoundPorts.SelStart = Len(FoundPorts.Text) ‘длина строки порта
End Sub

Private Function AddPort(Port As Integer)
FoundPorts.Text = FoundPorts.Text & "[Connected] Port " & Port & vbCrLf –‘это выводимый, текуший текст
End Function

Private Sub Sock_Connect(Index As Integer)
AddPort (Sock(Index).RemotePort) – ‘если порт открыт, то эта строка нам показывает, что порт открыт!!!
Sock(Index).Close ‘ Закрываем сокет
End Sub

Private Sub Sock_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) ‘ показываем, что сокет закрыт, но данные должны остаться целыми в интерфейсе
Sock(Index).Close ‘ закрываем сокет
End Sub

Вот и все. Да кстати по Default’у можете поставить LocalHost и тогда программа должна сканировать вашу машину на открытые порты. Да кстати важная деталь у WinSock’a Index должен быть равен нулю!!!
Всех с наступающим новым годом!
(c) d1n 2006 - а оно мне ошибку выдает при попытке создать exe-шник типа "Sub или Function не определены". Как их определить то?


P.S. Сильно не ругайтесь так как в програмировании полный ноль

[Dosia]

смотри тут (https://hacker-pro.net/forum/showthread.php?t=2114)

[seledkapod]

смотри тут (https://hacker-pro.net/forum/showthread.php?t=2114)
Мой Ip на haker-pro в списке запрещённых администрацией форума. На других ресурсах аналогичного нет? Сори за оффтоп.

[Oza]

seledkapod а на что TOR;Anonimizer?

[.Slip]

P.S. Сильно не ругайтесь так как в програмировании полный ноль
Нах тогда лезть? Перед друзьями что ли покрасоваться?
Научиться "прогромированию" ты по этому примеру не сможешь, а если нужен хороший сканер то гугли, есть множество сканеров с широким функционалом.

[gisTy]

Нах тогда лезть? Перед друзьями что ли покрасоваться?
Научиться "прогромированию" ты по этому примеру не сможешь, а если нужен хороший сканер то гугли, есть множество сканеров с широким функционалом.
омг, ты отвечаешь археологу однодневке?
странно