Come posso usare [any] -perl script per pentesting (ad esempio: script per l'enumerazione dei sottodomini)?
Come reindirizzare l'output da uno script perl a rutto? Questo è possibile? Come può essere implementata questa architettura? Grazie!
Ad esempio:
#!/usr/bin/perl
use strict;
use warnings 'all';
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("$0/0.1 " . $ua->agent);
$ua->agent("Mozilla/5.0");
open my $fh, '<', 'wordlist.txt' or die $!;
while ( <$fh> ) {
next unless /\S/;
chomp;
my $req = HTTP::Request->new(GET => "http://$_.foobar.baz");
my $res = $ua->request($req);
print $res->content;
}
In questo esempio, invio richieste a http://[wordlist].foobar.baz e ricevo risposte al terminale, ok, bene. È più veloce Ma, in teoria, ogni risposta può essere inviata a Burp?
