My Library

Latest update was HTML::LinkExtor as below. #!/usr/bin/perl ############################################ #           [+]  Get HTTP #       Created #              BY #                Pretorians # ########################################### use LWP::Simple; use Time::localtime; use LWP::UserAgent; use  IO::Socket; use HTML::LinkExtor; ## print "[+] GET Http By Pretorians \n"; ## ## if (@ARGV == 0) {&usg;} while (@ARGV > 0) { $type = shift(@ARGV); $t = shift(@ARGV); if ($type eq "-p") { print "[!] Target: $t\n"; my $ua = LWP::UserAgent->new;      $ua->agent('Mozilla/5.0 ');        $ua->proxy([(http )] => 'socks://127.0.0.1:9050');         $ua->cookie_jar({}...

#!/usr/bin/perl ############################################ #           [+]  Get HTTP #       Created #              BY #                Pretorians # ########################################### use LWP::Simple; use Time::localtime; use LWP::UserAgent; use  IO::Socket; ## print "[+] GET Http \n"; ## ## if (@ARGV == 0) {&usg;} while (@ARGV > 0) { $type = shift(@ARGV); $t = shift(@ARGV); if ($type eq "-p") { print "[!] Target: $t\n"; my $ua = LWP::UserAgent->new;      $ua->agent('Mozilla/5.0 (X11; Ubuntu; Linux i686; rv:16.0) Gecko/20100101 Firefox/16.0');        $ua->proxy([(http )] => 'socks://127.0.0.1:9050');         $ua->cookie_...

#!/usr/bin/perl ############################################ #           [+]  Get HTTP #       Created #              BY #                Pretorians # ########################################### use LWP::Simple; use Time::localtime; use LWP::UserAgent; ## print "[+] GET Http Modem\n"; ## sub timestamp {   my $c = localtime;   return sprintf( "%04d-%02d-%02d_%02d-%02d-%02d",                   $c->year + 1900, $c->mon + 1, $c->mday,                   $c->hour, $c->min, $c->sec ); } print '[+] Date: [' . timestamp() . ']'. "\n"; ## ## if (@ARGV == 0) {&usg;} while (@ARGV...

#!/usr/bin/perl use LWP::Simple; use Time::localtime; use LWP::UserAgent; ## print "[+] GET Http Modem\n"; ## sub timestamp {   my $c = localtime;   return sprintf( "%04d-%02d-%02d_%02d-%02d-%02d",                   $c->year + 1900, $c->mon + 1, $c->mday,                   $c->hour, $c->min, $c->sec ); } print '[+] Date: [' . timestamp() . ']'. "\n"; ## ## if (@ARGV == 0) {&usg;} $t = shift(@ARGV); { print "[!] Target: $t\n"; } ## ## ## my $ua = LWP::UserAgent->new;      $ua->agent('Mozilla/5.0');        $ua->proxy([(http )] => 'socks://127.0.0.1:9050');         $ua->cookie_jar({});       my $r = $ua->get("http://$t/") or die ("Unable to get page!"); print $r-...

#!/usr/bin/perl use LWP::Simple; use Time::localtime; print "[+] GET Http Modem\n"; ## sub timestamp {   my $c = localtime;   return sprintf( "%04d-%02d-%02d_%02d-%02d-%02d",                   $c->year + 1900, $c->mon + 1, $c->mday,                   $c->hour, $c->min, $c->sec ); } print '[+] Date: [' . timestamp() . ']'. "\n"; ## ## if (@ARGV == 0) {&usg;} $t = shift(@ARGV); { print "[!] Target: $t\n"; my $r = getprint("http://$t/") or die ("Unable to get page!"); ## ## } sub usg(){ print "[!] usg: perl get.pl  \n"; } exit ;

#!/usr/bin/perl use IO::Socket; my $url = 'www.google.com'; my $socket = IO::Socket::INET->new( Proto => 'tcp', PeerAddr => $url, PeerPort => 80) || die "|!| Can not connect...\n"; print "connecting to $url\n"; print $socket "GET $url HTTP/1.0\n\n"; $socket->recv(my $data, 1024); print "$data \n"; close ($socket); Credit to BufferCode