#!/usr/bin/perl
use warnings;
use strict;
use IO::Socket;
####################################
# author: perlp0pper #
# copyright license: #
# do not copy without my #
# permission. #
####################################
# signs: > \
print q{
####################################
# made by skil0wone #
# p0pbot v4.0.1 #
####################################
};
# edit this lines
my $server = "";
my $port = 6667;
my $user = "";
my $ident = "";
my $nick = "";
my $name = "made by skil0wone";
my $version = "p0pbot v4.0.1 by skil0wone";
my $channel = "#";
my $master = "";
my $filename = "CookieCar";
my $password = "";
my $chankey = "";
my $token = "?";
my $log = 1; # change this to 0 to stop loging
# stop edit
# do not edit these lines
my $irc = new IO::Socket::INET (PeerAddr=>$server, PeerPort=>$port, Proto=>'tcp');
print $irc "NICK $nick\n";
print $irc "USER $user $user $user $user :$ident\n";
my $in;
my $val = 0;
while(defined($in=<$irc>)){
$in =~ s/^\s+//;
$in=~ s/\s+$//;
if($log==1){
open LOG, ">>$filename.log";
print LOG $in."\n";
}
my @cst = split('!', $in);
my $normalstr = $cst[0];
my $commander = reverse($normalstr);
chop($commander);
$commander = reverse($commander);
my @chst = split(' ', $in);
my $chan = $chst[2];
if($in=~/PING(.*)/){print $irc "PONG $1\n";}
print "$in\n";
if($in=~/This nickname is registered and protected/){print $irc "PRIVMSG NICKSERV :IDENTIFY Triplex96\n";}
if($in=~/Password accepted/){print $irc "JOIN $channel $chankey\n";}
print $irc "JOIN $channel $chankey\n";
#next unless $in=~ /^:$master\b/;
if($in=~/\Q$token\Eversion/){
print $irc "NOTICE $commander :$version\n";
}
if($in=~/\Q$token\Ekick/ && $val == 1){
print $irc "kick $chan $' :FOLOW THE RULES!!!\n";
}
if($in=~/\Q$token\Eop/ && $val == 1){
print $irc "MODE $chan +o $'\n";
}
if($in=~/\Q$token\Edeop/ && $val == 1){
print $irc "MODE $chan -o $'\n";
}
if($in=~/\Q$token\Ehelp/){
print $irc "NOTICE $commander :".$token."greet - greet someone\n";
print $irc "NOTICE $commander :".$token."op - give someone op\n";
print $irc "NOTICE $commander :".$token."deop - take op\n";
print $irc "NOTICE $commander :".$token."version - displays bot version\n";
print $irc "NOTICE $commander :".$token."kick - kicks someone\n";
print $irc "NOTICE $commander :".$token."help - shows help file\n";
print $irc "NOTICE $commander :".$token."join - bot joins channel\n";
print $irc "NOTICE $commander :".$token."leave - bot leaves\n";
print $irc "NOTICE $commander :".$token."kill - kills bot\n";
print $irc "NOTICE $commander :".$token."ban - bans someone\n";
print $irc "NOTICE $commander :".$token."rehash - updates bot and restarts bot\n";
print $irc "NOTICE $commander :".$token."voice - voice someone\n";
print $irc "NOTICE $commander :".$token."devoice - devoice someone\n";
print $irc "NOTICE $commander :".$token."quit - bot quits irc server\n";
print $irc "NOTICE $commander :".$token."login - login to bot\n";
print $irc "NOTICE $commander :".$token."check - check if host is up\n";
print $irc "NOTICE $commander :".$token."find - find user\n";
print $irc "NOTICE $commander :".$token."setop - set current operation\n";
print $irc "NOTICE $commander :".$token."target - display target list\n";
print $irc "NOTICE $commander :".$token."addtarget - find user\n";
}
if($in=~/\Q$token\Ejoin/ && $val == 1){
print $irc "Join $' $chankey\n";
}
if($in=~/\Q$token\Eleave/ && $val == 1 && $in=~ /^:$master\b/){
print $irc "Part $chan\n";
}
if($in=~/\Q$token\Eban/ && $val == 1){
print $irc "kick $chan $':folow the rules\n";
print $irc "MODE $chan +b $'\n";
}
if($in=~/\Q$token\Ekill/ && $val == 1 && $in=~ /^:$master\b/){
print $irc "NOTICE $commander :deleting bot...\n";
print $irc "QUIT\n";
unlink "$filename.exe";
}
if($in=~/\Q$token\Erehash/ && $val == 1 && $in=~ /^:$master\b/){
print $irc "NOTICE $commander :rehashing $version...\n";
print $irc "QUIT\n";
system("perl p0pbot.pl");
}
if($in=~/\Q$token\Evoice/ && $val == 1){
print $irc "MODE $chan +v $'\n";
}
if($in=~/\Q$token\Edevoice/ && $val == 1){
print $irc "MODE $chan -v $'\n";
}
if($in=~/\Q$token\Equit/ && $val == 1 && $in=~ /^:$master\b/){
print $irc "QUIT\n";
}
if($in=~/\Q$token\Eaop/ && $val == 1){
print $irc "NOTICE $commander :!aop {add/del}\n";
}
if($in=~/\Q$token\Eaop add/ && $val == 1){
my $addop = "$'";
open AOP, ">>AOPlist.txt";
print AOP $addop,"\n";
close(AOP);
print $irc "NOTICE $commander :added to aop list!\n";
}
if($in=~/\Q$token\Egreet/){
my $greetp = "$'";
print $irc "NOTICE $commander :$greetp\n";
print $irc "NOTICE $greetp :You have the greets of $commander\n";
}
if($in=~/\Q$token\Echeck/){
my $h = "$'";
my $p = "80";
$h = reverse($h);
chop($h);
$h = reverse($h);
print $irc "PRIVMSG $chan :checking $h\n";
print $irc "NOTICE $commander :checking $h\n";
my $check = new IO::Socket::INET (PeerAddr => $h, PeerPort => 80, Proto => 'tcp', Timeout=>3);
if($check){
print $irc "PRIVMSG $chan :[+] UP($h)\n";
print $irc "NOTICE $commander :[+] UP($h)\n";
}
else {print $irc "PRIVMSG $chan :[-] DOWN($h)\n";
print $irc "NOTICE $commander :[-] DOWN($h)\n";
}
}
if($in=~/\Q$token\Elogin/){
my $pa = "$'";
if($pa=~/$password/){
$val = 1;
print $irc "NOTICE $commander :p0pbot ready!!!\n";
}
else{
$val = 0;
}
}
if($in=~/\Q$token\Efind/){
my $uss = "$'";
print $irc "PRIVMSG $uss :$commander is looking for you on $chan\n";
if($in=~/No such nick/){
print $irc "NOTICE $commander :$uss is not online now!\n";
} else {
my $uss = "$'";
print $irc "WHOIS $uss\n";
$in =~ s/^\s+//;
$in=~ s/\s+$//;
my @cst = split('!', $in);
my $normalstr = $cst[0];
my $commander = reverse($normalstr);
chop($commander);
$commander = reverse($commander);
my @chst = split(' ', $in);
my $usrchan = $chst[4];
if($usrchan=~/@/ or $usrchan=~/~/ or $usrchan=~'#'){
print $irc "NOTICE $commander :Channels where $uss is on: $usrchan\n";
}
print $irc "NOTICE $commander :$uss is noticed you are looking for him\n";
}
}
if($in=~/\Q$token\Esetop/ && $val == 1){
my $setopd = "$'";
open FILE, ">op.t";
print FILE $setopd."\n";
close(FILE);
print $irc "NOTICE $commander :Op $setopd set!\n";
}
if($in=~/\Q$token\Etarget/){
open FILE, "<target.t";
my @targets = <FILE>;
close(FILE);
if(scalar(@targets)==0){
print $irc "NOTICE $commander :No targets set!\n";
print $irc "NOTICE $chan :No targets set!\n";
}
my $it = 1;
open FILE, "<op.t";
my $op = <FILE>;
close(FILE);
print $irc "NOTICE $commander :---- $op Targets ----\n";
print $irc "NOTICE $chan :---- $op Targets ----\n";
foreach my $target (@targets){
print $irc "NOTICE $commander :Target $it: $target\n";
print $irc "NOTICE $chan :Target $it: $target\n";
$it++;
}
print $irc "NOTICE $commander :---------------------\n";
print $irc "NOTICE $chan :---------------------\n";
}
if($in=~/\Q$token\Eaddtarget/ && $val == 1){
my $settarget = "$'";
open FILE, ">>target.t";
print FILE $settarget."\n";
close(FILE);
print $irc "NOTICE $commander :Target $settarget added to list!\n";
}
}
