ACT-CREW | Forum Cyber Atra Aneuk Nanggroe
Would you like to react to this message? Create an account in a few clicks or log in to continue.

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
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
TrojanSpot
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
edypk
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
abenk
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
redhat
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
angga love
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
karimullah
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
cyb3rc0d3
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
rijalpatra
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
Teuku Panglima
[PERL] DirSpider.pl I_vote_lcap[PERL] DirSpider.pl I_voting_bar[PERL] DirSpider.pl I_vote_rcap 
Find Us on Facebook
Fb Recommendation
Social bookmarking
Social bookmarking reddit  Social bookmarking google      

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

 

 [PERL] DirSpider.pl

Go down 
PengirimMessage
TrojanSpot
Admin
Admin
TrojanSpot

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

[PERL] DirSpider.pl Empty
PostSubyek: [PERL] DirSpider.pl   [PERL] DirSpider.pl I_icon_minitimeTue 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
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: