Welcome to HBH! If you have tried to register and didn't get a verification email, please using the following link to resend the verification email.
help with bot coding
well, currently i'm trying to write a bot using perl.
It's basically well, a botnet which will install itself into anyone's computer after they visited an irc channel, and then install a folding@home client on that pc.
well, i only managed to get it running as an irc bot, and it also checks for the socket information.
what i need now is, well, the bot has to connect to any computers in the channel and then install itself along with folding@home on the computer.
well here's the code:
$con = IO::Socket::INET->new(PeerAddr =>'irc.server.com',
PeerPort =>'6667',
Proto =>'tcp',
Timeout=>'90')or die "could not make the connection";
print $con "USER Trane\r\n";
print $con "NICK TraneTrax\r\n";
print $con "JOIN #example_channel\r\n";
while($answer = <$con>)
{
print $answer;
if(($answer =~ /PRIVMSG/) && ($answer =~ /hello/i))
{
print $con "PRIVMSG #example_channel :hey admin!\r\n";
}
if($answer =~ m/^PING (.*?)$/gi)
{
print $con "PONG".$1."\r\n";
}
$type = unpack("S", getsockname(SOCK));
if ($type == AF_INET)
{
($port, $ipaddr) = sockaddr_in($paddr);
$quad = inet_ntoa($ipaddr);
}
else
{
die "unknown address type";
}
}
well, can any one give me some suggestions and / or maybe fix the code?
i've googled for it, but i can't find anything helpful.