29.12.2006, 17:38
|
|
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206
Репутация:
963
|
|
гениально
PS:
Код:
perl -MIO::Socket -e "for(1..65535){if($sock=IO::Socket->new(PeerAddr=>"localhost",PeerPort=>$_)){print $_.' '}}"
Последний раз редактировалось KSURi; 31.12.2006 в 21:26..
|
|
|