Posted By: tdr (smrt trotlum) on 'CZunix' Title: Re: Port Knocking Date: Wed Aug 26 12:40:33 2009 > ntw > > #!/usr/bin/perl > > use IO::Socket::INET; > use Time::HiRes; > > $remote_ip = "123.123.123.123"; > my @porty = qw(30 799 228 305 4049 2557 783 8245 53249 36864); > my $msg=""; > foreach my $port (@porty) { > $MySocket=new IO::Socket::INET->new(PeerPort=>$port, > Proto=>'udp', > Timeout=>1, > PeerAddr=>$remote_ip); > $MySocket->send($msg); > Time::HiRes::usleep(10000);.... > } A co takhle ten socket taky zavirat? To sou ti lenosi, co spolehaji na Brano! ;-) Nejlepsi polevka je pivo !!! _______________________________ tdr, v.r.