PHP- Kodu:
Kod:
Kod:
#!/usr/bin/perl #Verdiginiz Dizinleri istediniz site uzerinde hizli bir sekilde tarar #Usage: directories.txt adlı bir txt olusturun ve icine dizinleri atın require LWP::UserAgent; print "\n[+]Site to scan?"; $url = <stdin>; chomp($url); open(FILE, "directories.txt") or die("Unable to open file"); @dirs = <FILE>; if($url =~ /http:///){ } else { $url = "http://".$url; } my $ua = LWP::UserAgent->new; my $response = $ua->get($url); print "[+]Connecting...\n"; if ($response->is_success) { print "[+]Connected to $url"; } else { print "[-]Cannot connect to $url"; exit; } print "\n[+]Taraniyor..."; $t = 0; $found = 0; foreach $dir(@dirs){ chomp($dir); my $ua = LWP::UserAgent->new; $ua->timeout(10); $full = $url."/".$dir; my $response = $ua->get($full); if ($response->is_success) { $get = $response->content; print "\n[+]".$dir." is found at ".$url."/".$dir; $found++; } $t++; } if($found eq "0"){ print "\n[-]Hicbir Dizin bulunamadi!\n"; } print "\n[+]Scan powered by root\@shell~# \n\n";