Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
SubDomain Scanner Perl
#1
Kod:
#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
print q{
   _____       _       _____                        _ _   _
  / ____|     | |     |  __ \                      (_) \ | |
| (___  _   _| |__   | |  | | ___  _ __ ___   __ _ _|  \| |
  \___ \| | | | '_ \  | |  | |/ _ \| '_ ` _ \ / _` | | . ` |
  ____) | |_| | |_) | | |__| | (_) | | | | | | (_| | | |\  |
|_____/ \__,_|_.__/  |_____/ \___/|_| |_| |_|\__,_|_|_| \_|
                                          Cyberizm.Org c(:  
};
print"Site Adres :";
    $adres = <>;
    chomp($adres);
    $Lookup = "http://www.ewhois.com/".$adres."\/";
    $user = LWP::UserAgent->new();
    $sieaq = $user->request(HTTP::Request->new(GET=>$Lookup));
    $ipadres = $sieaq->content;
    if($ipadres =~ m/<span id=\"ip_display\">(.*?)<\/span>/) {
print "\nIp Adres : $1 \n";
    }
  $veri = LWP::UserAgent->new();
        $veri->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:30.0) Gecko/20100101 Firefox/31.0');
        $subara = "http://www.pagesinventory.com/search/?s=".$adres."";
        $aqsie = $veri->request(HTTP::Request->new(GET=>$subara));
        $sonunc = $aqsie->content;
while($sonunc =~ m/<td><a href=\"\/domain\/(.*?).html\">/g ) {
print "\nSubdomain Adres: $1\n";
      open(a, ">>b3.txt");
    print a "http://$1\n";
    close(a);
}
print "\n\nKaydedildi b3.txt\n";
www.deccal.org


Beğenenler:
#2
eline sağlık exciting
İnsɑnlɑr değişmez değişen tek şey şɑrtlɑr ve çıkɑrlɑr...
Beğenenler:
#3
elinize sağlık anlatım güzel olmuş
www.deccal.org
Beğenenler:

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Scanner InurlBR Dork Tarayıcı Kodlar Prog Fa1L 2 61 25-11-2016, Saat: 15:55
Son Yorum: ZeeK
  CyB3RizM Beyaz Kodlar Hacking Tools Perl KingSkrupellos 264 15,496 21-11-2016, Saat: 17:30
Son Yorum: Mrxxx
  Safe3 Web Vulnerability Scanner KingSkrupellos 93 7,883 08-11-2016, Saat: 19:49
Son Yorum: Mrxxx
  Netsparker - Web App Sec Scanner iMoGeN 29 2,334 03-11-2016, Saat: 00:04
Son Yorum: kaptan12
  Federiko S.a.p Scanner v2.0 Program | Fixed Mr.3xT 27 2,281 29-10-2016, Saat: 19:32
Son Yorum: SkyBattel
Anahtar Kelimeler

SubDomain Scanner Perl indir, SubDomain Scanner Perl Videosu, SubDomain Scanner Perl Online izle, SubDomain Scanner Perl Bedava indir, SubDomain Scanner Perl Yükle, SubDomain Scanner Perl Hakkında, SubDomain Scanner Perl Nedir, SubDomain Scanner Perl Free indir, SubDomain Scanner Perl Oyunu, SubDomain Scanner Perl Download


1 Ziyaretçi