ACT-CREW | Forum Cyber Atra Aneuk Nanggroe

We Learn + We Help + We Sharing & We Enjoy
 
IndeksPortalPendaftaranLogin
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Contack Us
chliZAceh
Trojanspot
Sacker_Boy
Edy Pk
Latest topics
Top posters
chliZAceh
 
TrojanSpot
 
edypk
 
abenk
 
redhat
 
angga love
 
karimullah
 
cyb3rc0d3
 
rijalpatra
 
Teuku Panglima
 
Find Us on Facebook
Fb Recommendation
Social bookmarking
Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of ACT-CREW | Forum Cyber Atra Aneuk Nanggroe on your social bookmarking website
Partner
ACT-Crew BCT-Crew
BCT-Crew ACT-Crew
Tembilahan Coder PLAetwork
devilzc0de Exploit-ID
Indramayu Cyber Minang Cyber
Pekanbaru Cyber Team  
Counter

free counters

HTML Hit Counter

Free PageRank Checker

Keywords

Share | 
 

 [PERL] DirSpider.pl

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
TrojanSpot
Admin
Admin
avatar

Jumlah posting : 422
Join date : 09.08.11
Age : 22
Lokasi : /home/act-crew.indonesianforum.net/u3

PostSubyek: [PERL] DirSpider.pl   Tue Dec 11, 2012 9:00 pm

Code:
#!/usr/bin/perl
use strict;
use LWP::Simple qw($ua get);
      $ua = LWP::UserAgent->new;
      $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.9');
my @found;

&usage unless @ARGV==3;
my $url = $ARGV[0];
my $dirlist = $ARGV[1];
my $results = $ARGV[2];

open(ifile, "<$dirlist") || die "Couldn't open file\n";
my @dirs =<ifile>;
close("ifile");
&search;

sub usage{
   print "Usage:\n";
   print "DirSpider.pl <url> <file of directories> <result file>\n";
   print "DirSpider.pl http://www.google.com dirs.txt found.txt\n";
   exit;
}

sub search{
      foreach my $dir(@dirs){
         print "$url/$dir";
         my $response = $ua->get("$url/$dir");
         if($response->status_line !~ m/^404/){
            push(@found,"$url/$dir");
         }
      }
}
Kembali Ke Atas Go down
http://www.pemula.info/2012/11/commonwealth-life-perusahaan-asur
 
[PERL] DirSpider.pl
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
ACT-CREW | Forum Cyber Atra Aneuk Nanggroe :: ./ACT General - Main Information from ACT-Crew :: ./ACT-INFORMASI UMUM-
Navigasi: