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
 
IndeksPortalLatest imagesPendaftaranLogin
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Contack Us
chliZAceh
Trojanspot
Sacker_Boy
Edy Pk
Latest topics
» HELLO CARDERS We offering very high service,Store pick ups etc
[PERL] DirSpider.pl I_icon_minitimeThu Mar 06, 2014 10:51 am by ol33t

» Hi every customers!!! -- Usa Dumps DEBIT: Visa Classic/MC Standart $20 Visa Gold,Plat/MC Gold,Plat $30; Visa Business, Corp/MC Business, Corp $25 Visa Purchasing, Signature/MC World $35; Amex $20; Discover $30 CREDIT: Visa Classic/MC Standart $20; Visa
[PERL] DirSpider.pl I_icon_minitimeThu Jun 06, 2013 3:20 am by hitdumps

» sedikit kata" dari hacker newbie
[PERL] DirSpider.pl I_icon_minitimeThu Jan 24, 2013 2:57 am by umaygank

» [PERL] DirSpider.pl
[PERL] DirSpider.pl I_icon_minitimeTue Dec 11, 2012 9:00 pm by TrojanSpot

» saleum meuturi
[PERL] DirSpider.pl I_icon_minitimeSat Nov 10, 2012 7:53 am by ulZaAceh

» Ajarin Deface dong dari awal, yang sederhana dulu
[PERL] DirSpider.pl I_icon_minitimeWed Sep 19, 2012 10:24 pm by bohemian

» Mw tanya tentang deface website
[PERL] DirSpider.pl I_icon_minitimeWed Sep 19, 2012 10:18 pm by bohemian

» Salam Kenal Para Masta
[PERL] DirSpider.pl I_icon_minitimeWed Sep 19, 2012 10:04 pm by bohemian

» Pemberitahuan !!!!!
[PERL] DirSpider.pl I_icon_minitimeSun Aug 05, 2012 3:38 am by edypk

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      

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 : 29
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: