proxy

Skapad 1 år sedan, skriven i Perl, med 93 visningar. This paste is a reply to Bing Dork Scanner by anonym
URL http://kod.perl.se/view/96f38692 Bädda in
Ladda hem koden eller visa koden i råformatVisa bredare version
  1. #!/usr/bin/perl -w
  2. #Dork Scann
  3. #By
  4. #Senhor Li
  5.  
  6.  use LWP::UserAgent;
  7.  
  8. +----------------------[Dork Scan]----------------------+
  9. |                                                       |
  10. |   COntat: www.facebook.com/pqpigor                    |
  11. |                                                       |
  12. +-------------------------------------------------------+
  13.  
  14. };
  15. print "nColoque Sua Dork:";
  16. print "n(Ex: inurl:home.php?id= )n";
  17. print "=>";
  18.  $dork = <STDIN>;
  19.  chomp($dork);
  20.  
  21.  print "Scan Iniciado!";
  22.  
  23.  for ($i = 0; $i < 1000; $i += 10) {
  24.  
  25.  $b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)');
  26.  $b->timeout(30);
  27.  $b->env_proxy;
  28.  $c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content;
  29.  $check = index($c, 'sb_pagN');
  30.  
  31.  while (1) {
  32.  $n = index($c, '<h3><a href="');
  33.  
  34.  if ($n == -1) {
  35.  last;
  36.  }
  37.  
  38.  print "$sn";
  39.  $c = substr($c, $n + 13);
  40.  $s = substr($c, 0, index($c, '"'));
  41.  open (txt,">>scanned.txt");
  42.  print txt  $s,"n";
  43.  close(txt);
  44.  
  45.  }
  46.  if ($check == -1) {
  47.  last;
  48.  }
  49.  }
  50.  print "Scan Finalizado!";
  51.  system("scanned.txt");
  52.  exit;

Svara på "proxy"

Här kan du skriva ett svar till kodsnutten ovan