23.06.2010, 02:00
|
|
Новичок
Регистрация: 03.09.2008
Сообщений: 16
С нами:
9308554
Репутация:
6
|
|
Можно было бы использовать вместо браузера netcat. Главный плюс - он весит всего 60кб, а в качестве флага исп-ть конект на порт 8888.
Код:
nc.exe lovim-ip.ru 8888
На сервере написать простую прогу висящую на 8888 порту
Код:
#!/usr/bin/perl
use strict;
use IO::Socket;
my $sock = IO::Socket::INET->new(LocalPort => 8888,
Listen => 20,
Proto => 'tcp' # а можно и udp
Reuse => 1,
Timeout => 3600 );
while (1) {
next unless my $sess = $sock->accpet;
my $ip = $sess->peeraddr;
print "IPaddr -> $ip\n";
shutdown $sess;
}
если работать через udp, то netcat надо запускать c опцией '-u' |
|
|