Stuff

#!/usr/bin/perl
use strict(); use warnings(); use IO::Socket; use Digest::MD5 qw(md5_hex); use Digest::SHA1 qw(sha1_hex);

my $network = "irc.xchannel.org"; my @channels = ("#trea", "#fuckoffanddie", "#w3", "#0"); 
my $op = "angel.loves.xchannel.org"; my $nick = "aBot"; 
my $user = "abot \"localhost\" \"".$network."\" :aBot"; my $chancount = 0;

sub send_pong; sub join_chans; sub parse_cmds; sub do_command; sub send_raw;
my $socket = IO::Socket::INET->new (PeerAddr => $network, PeerPort => 6667,
Proto => "tcp", Type => SOCK_STREAM) or die("Can't Connect");
send_raw ("user $user\n"); send_raw ("nick $nick\n");
while(<$socket>) { parse_cmds($_);
if($_ =~ '376'){ print "[!] End of MOTD reached\n";
print "[!] Joining Channels\n"; join_chans($_); } }
close($socket);
sub do_command{
($name_, $to_, $host_, $cmd_) = @_; if($cmd_ =~ /^!help/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :#User Commands\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !help - shows help menu\n");	
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !chancount - shows how much channels needs me\n");	
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !chanlist - shows in wich channels im\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !md5/sha1 <string> - creates a hash\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !wiki\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !sqrt - prints the root of the given number;example: 9 is 3\n"); }
if($cmd_ =~ /^!sqrt (\d*)/){ $root = $1; send_raw("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :".$root." is ".sqrt($root)."\n"); }
if($cmd_ =~ /^!wiki (.*)/){ $wiki = $1; send_raw("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :http://de.wikipedia.org/wiki/".$wiki."\n"); }
if($cmd_ =~ /^!md5 (.*)/){ $hash = $1; send_raw("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :".md5_hex($hash)."\n"); }
if($cmd_ =~ /^!sha1 (.*)/){ $hash = $1; send_raw("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :".sha1_hex($hash)."\n"); }
if($cmd_ =~ /^!chancount/){ 
send_raw("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :im in $chancount Channel(s)\n");
send_raw("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :write !chanlist if you want to see in wich channels im\n"); }
if($cmd_ =~ /^!chanlist/){ send_raw("PRIVMSG ".$name_." :im in:\n");
foreach $chanl (@channels){ send_raw("PRIVMSG ".$name_." :".$chanl.", \n"); } }
if($host_ eq $op){ if($cmd_ =~ /^!help/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :#Adminstrative Commands\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !msg <chan> <msg> - sends a message to a channel\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !kick <chan> <nick> - kicks a user outta a channel\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !kickban <chan> <nick> - kickban's a user outta a channel\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !op <+/-> <chan> :<nick> - give operator/take operator rights from a user\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !voice <+/-> <chan> :<nick> - give voice/take voice rights from a user\n");
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :  !chanmode <mode(s)> - set channel modes\n"); }
if($cmd_ =~ /^!chanmode (.*)/ ){ $mode = $1; send_raw("MODE $to_ $mode\n"); } 
if($cmd_ =~ /^!voice (.+?) (.+?) \:(.*)/){ $chan = $2; $who = $3; $mode = $1;
if($chan !~ /^#(.*)/){ send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
if($mode eq "+"){ send_raw("MODE ".$chan." +v ".$who."\n"); }
elsif($mode eq "-"){ send_raw("MODE ".$chan." -v ".$who."\n"); } } 
if($cmd_ =~ /^!op (.+?) (.+?) \:(.*)/){ $chan = $2; $who = $3;
$mode = $1; if($chan !~ /#(.*)/){ send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
if($mode eq "+"){ send_raw("MODE ".$chan." +o ".$who."\n"); }
elsif($mode eq "-"){ send_raw("MODE ".$chan." -o ".$who."\n"); } } 
if($cmd_ =~ /^!eval (.*)/){ eval $1; } if($cmd_ =~ /^!join (.*)/){ if($1 !~ /#(.*)/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
else { $channels[$chancount] = "#".$1; print "[!] Joining Channel: ".$channels[$chancount]."\n";
send_raw ("JOIN ".$channels[$chancount]."\n"); $chancount++; } } if($cmd_ =~ /!kick (.*) (.*)/){
$kchan = $1; $knick = $2; if($1 !~ /#(.*)/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
else{ send_raw("KICK $kchan $knick\n"); } } if($cmd_ =~ /^!kickban (.*) (.*)/){
$kchan = $1; $knick = $2; if($1 !~ /#(.*)/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
else{ send_raw("MODE ".$kchan." +b ".$knick."\n"); send_raw("KICK $kchan $knick\n"); } } } }
if($cmd_ =~ /^!kickban (.*) (.*)/){ $kchan = $1; $knick = $2; if($1 !~ /#(.*)/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
else{ send_raw("MODE ".$kchan." +b ".$knick."\n"); send_raw("KICK $kchan $knick\n"); } }
if($cmd_ =~ /^!msg (.*) (.*)/){ $mchan = $1; $msg = $2; if($1 !~ /#(.*)/){
send_raw ("PRIVMSG ".(($to_ =~/#(.*)/)? $to_ : $name_)." :arg1 is no channel\n"); return; }
else{ send_raw("PRIVMSG $mchan :$msg\n"); print $mchan." ".$msg."\n"; } }
sub parse_cmds{ $cmds = shift; if($cmds =~ /^PING/){ send_pong($_); }
elsif ($cmds =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/){
my $name=$1; my $host=$3; my $from=$4; my $args=$5;
if ($args =~ /^VERSION$/) { send_raw ("PRIVMSG ".$name." :Dont disturb me!\n"); }
if($args =~ /^\!(.*)/) { do_command($name, $from, $host, $args); } } }

sub join_chans{ foreach $jchan (@channels){
send_raw("join $jchan\n"); $chancount++; printf "[!] Joining Channel: ".$jchan."\n"; } }

sub send_raw{ my $tosend = shift; print $socket "$tosend"; }

sub send_pong{ $pong = shift; if($pong =~ /^PING (.*)/){ send_raw("PONG $1"); } }