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.