@ -2,62 +2,171 @@
#use diagnostics; #use diagnostics;
use strict ; use strict ;
use warnings ; use warnings ;
use utf8 ;
use File::Path qw( make_path ) ; use File::Path qw( make_path ) ;
use Net::EmptyPort qw( check_port ) ; use Net::Ping ;
use Net::DNS ; use Net::DNS ;
#use Selenium::Remote::Driver;
use Selenium::Firefox ; use Selenium::Firefox ;
use Selenium::Firefox::Profile ; use Selenium::Firefox::Profile ;
chomp ( my $ connectivity = `cat /sys/class/net/*/operstate|grep -m 1 '^up\$'` ) ; # Will do for now. my ( $ continue_from , $ ii1 , $ ii2 , $ ii3 , $ initvar ) ;
if ( $ ARGV [ 0 ] ) {
chomp ( $ continue_from = $ ARGV [ 0 ] ) ;
if ( $ continue_from !~ m/^[0-9]+([.][0-9]+){3}$/ ) { die $! , "\"$continue_from\" is not a valid ipv4 address:"
} else { ( $ ii1 , $ ii2 , $ ii3 ) = split /\./ , $ continue_from ; print 'Continuing from ipv4 address ' , $ continue_from , "\n" } } else { print "\n\n" ; foreach ( 0 .. 4 ) { print 'Starting a new tcp/udp 80/443 ipv4 scan in ' , ( 5 - $ { _ } ) , "s.\n" ; sleep 1 } ; print 'Starting...' , "\n" }
my $ ii = 0 ; my $ ii = 0 ;
my ( % args , % args2 ) ; my ( % args , % args2 , % hoa , @ host ) ;
$ args2 { 'profile_dir' } = '/home/miami/.Mozilla/Firefox/ud8j40yn.default' ; # Ghacks user.js is a good start. $ args2 { 'profile_dir' } = '/home/miami/.Mozilla3 /Firefox/ud8j40yn.default' ; # Ghacks user.js is a good start.
my $ profile = Selenium::Firefox::Profile - > new ( % args2 ) ; my $ profile = Selenium::Firefox::Profile - > new ( % args2 ) ;
my $ driver = Selenium::Firefox - > new ( 'firefox_profile' = > $ profile ) ; my $ driver = Selenium::Firefox - > new ( 'firefox_profile' = > $ profile ) ;
open my $ FILEH_A , '>>' , "./data/domains.txt" ; # Here, we'll store all the domains from all ipv4 addresses. $ driver - > set_timeout ( 'script' , 10000 ) ;
$ driver - > set_timeout ( 'implicit' , 20000 ) ;
$ driver - > set_timeout ( 'page load' , 15000 ) ;
my $ p = Net::Ping - > new ( "syn" , 3 ) ;
sub connectivity_check { sub connectivity_check {
my $ flag = 0 ;
my $ exp = 0 ; my $ exp = 0 ;
while ( 1 ) { unless ( $ connectivity eq 'up' ) { warn "$!: No wireless connectivity." ; sleep 2 ** $ exp ; $ exp + + ; if ( $ exp >= 10 ) { $ exp -= int ( rand ( 11 ) ) } ; next } ; last } chomp ( my $ connectivity = `ip a | grep -A 2 -Ei '^[0-9]+: wl[^:]+:' | grep -E '\\s+?inet\\b' | sed -E 's/^\\s+?inet\\s+?([^/]+).*\$/\\1/'` ) ; # Will do for now.
while ( 1 ) { eval open my $ TMP_FH , '<' , ( glob '/sys/class/net/wl*/carrier' ) [ 0 ] ; unless ( $ connectivity =~ m/^[0-9]+([.][0-9]+){3}$/ and <$TMP_FH> == 1 ) { warn "$!: No wireless connectivity on (lexicographically) first wireless network." ; $ flag = 1 ; sleep 2 ** $ exp ; $ exp + + ; chomp ( $ connectivity = `ip a | grep -A 2 -Ei '^[0-9]+: wl[^:]+:' | grep -E '\\s+?inet\\b' | sed -E 's/^\\s+?inet\\s+?([^/]+).*\$/\\1/'` ) ; if ( $ exp >= 10 ) { $ exp -= int ( rand ( 11 ) ) } ; next } ;
if ( $ flag == 1 ) {
if ( defined ( $ _ [ 1 ] ) ) { unlink "$_[1]" ; $ _ [ 1 ] =~ s , /[^/ ] + $, , ; unlink "$_[1]/title.txt" ; rmdir "$_[1]/" } # Delete potentially incomplete items from the last ipv4 address/domain, for unskipping.
if ( defined ( $ _ [ 0 ] ) ) { # If true, assume everything in $i4 failed before detection of the connectivity issue (i.e., redo /24).
my $ alpha = time ;
splice @ host , 0 , $# host ;
undef % hoa ;
$ args { 'port' } = '80' ; $ args { 'proto' } = 'tcp' ;
$ p - > port_number ( $ args { 'port' } ) ;
& connectivity_check ;
foreach my $ i4 ( 0 .. 254 ) {
$ args { 'host' } = $ _ [ 0 ] . '.' . $ i4 ;
$ p - > ping ( $ args { 'host' } ) ;
$ host [ $ i4 ] = $ args { 'host' } ;
}
while ( my ( $ host ) = $ p - > ack ) { push @ { $ hoa { '80' } } , $ host ; $ host =~ s/^[0-9.]+[.]// ; splice @ host , $ host }
& syn_ping_elmn ( 80 , 'udp' ) ;
& syn_ping_elmn ( 443 , 'udp' ) ;
& syn_ping_elmn ( 443 , 'tcp' ) ;
open my $ FILEH_A , '>>' , "./data/domains.txt" ; # Here, we'll store all the domains from all ipv4 addresses.
foreach my $ host ( @ { $ hoa { '80' } } ) {
next unless defined ( $ host ) ;
& connectivity_check ( $ _ [ 0 ] ) ;
print $ FILEH_A $ host . ':80' . "\n" ;
my @ rray = & reverse_dns_doms ( $ host ) ;
if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_80_screenshot ( $ host , $ _ [ 0 ] ) } else {
foreach ( @ rray ) { if ( - d "./data/$_/view-source:http:/$_/" or - d "./data/$_/view-source:https:/$_/" ) { print $ FILEH_A "\n" ; next } ;
sleep rand ( 1 ) / 10 ;
print $ FILEH_A $ _ . ',' ; & double_80_screenshot ( $ _ , $ _ [ 0 ] ) }
print $ FILEH_A "\n" }
print $ FILEH_A "\n" }
foreach my $ host ( @ { $ hoa { '443' } } ) {
next unless defined ( $ host ) ;
& connectivity_check ( $ _ [ 0 ] ) ;
print $ FILEH_A $ host . ':443' . "\n" ;
my @ rray = & reverse_dns_doms ( $ host ) ;
if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_443_screenshot ( $ host , $ _ [ 0 ] ) } else {
foreach ( @ rray ) { if ( - d "./data/$_/view-source:http:/$_/" or - d "./data/$_/view-source:https:/$_/" ) { print $ FILEH_A "\n" ; next } ;
sleep rand ( 1 ) / 10 ;
print $ FILEH_A $ _ . ',' ; & double_443_screenshot ( $ _ , $ _ [ 0 ] ) }
print $ FILEH_A "\n" }
print $ FILEH_A "\n" }
& connectivity_check ( $ _ [ 0 ] ) ; # TODO: Potential infinite recursion on __very__ unstable networks with parameter?
my $ beta = time ;
my $ delta = $ beta - $ alpha ;
my $ gamma = $ delta * 255 ** 3 - 255 * $ ii ;
while ( 0 > $ gamma ) { $ alpha = time ; & connectivity_check ( $ _ [ 0 ] ) ; $ beta = time ; $ delta = $ beta - $ alpha ; $ gamma = $ delta * 255 ** 3 - 255 * $ ii ; }
$ ii + + ; print 'Progress: ' , 0.00000603 * $ ii , "%\n" , 'ETA: ' , $ gamma , "s\n" ;
close $ FILEH_A ;
print "\n" , 'To continue after quitting, provide' , $ _ [ 0 ] . '.0' , 'as first argument.' , "\n" ;
} }
last }
} }
sub double_80_screenshot { sub double_80_screenshot {
if ( $# _ > 0 ) { die "$!: Too much arguments: \"$_[1]\"...\"$_[$#_]\"." } if ( $# _ > 1 ) { die "$!: Too much arguments: \"$_[1]\"...\"$_[$#_]\"." }
& connectivity_check ; & connectivity_check ;
my $ time_in_s = time ; my $ time_in_s = time ;
$ driver - > get ( "http://$_[0]" ) ; # Fetch the eye-candy. eval { $ driver - > get ( "http://$_[0]" ) } ; # Fetch the eye-candy.
my $ current_url = $ driver - > get_current_url ( ) ; eval { $ driver - > dismiss_alert } ;
eval { $ driver - > accept_alert } ; eval { $ driver - > accept_alert } ;
make_path ( "./data/$_[0]/$current_url/" ) or die "$!: Insufficient permissions." ; my $ current_url ;
eval { $ current_url = $ driver - > get_current_url ( ) } ;
if ( $ current_url ) {
eval { make_path ( "./data/$_[0]/$current_url/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ; open my $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ;
print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) ; open my $ FILEH_C , '>' , "./data/$_[0]/$current_url/title.txt" ;
& connectivity_check ; eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ) ;
} else { eval { make_path ( "./data/$_[0]/-/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ;
open my $ FILEH_C , '>' , "./data/$_[0]/-/title.txt" ;
eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ) ;
}
$ time_in_s = time ; $ time_in_s = time ;
$ driver - > get ( "view-source:http://$_[0]" ) ; # Fetch the page source for (partly) reproduction. eval { $ driver - > get ( "view-source:http://$_[0]" ) } ; # Fetch the page source for (partly) reproduction.
$ current_url = $ driver - > get_current_url ( ) ; undef $ current_url ;
make_path ( "./data/$_[0]/$current_url/" ) or die "$!: Insufficient permissions." ; eval { $ current_url = $ driver - > get_current_url ( ) } ;
open $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ; if ( $ current_url ) {
print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) ; eval { make_path ( "./data/$_[0]/$current_url/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ;
open my $ FILEH_C , '>' , "./data/$_[0]/$current_url/title.txt" ;
eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ) ;
} else { eval { make_path ( "./data/$_[0]/-/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ;
open my $ FILEH_C , '>' , "./data/$_[0]/-/title.txt" ;
eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ) ;
}
} }
sub double_443_screenshot { sub double_443_screenshot {
if ( $# _ > 0 ) { die "$!: Too much arguments: \"$_[1]\"...\"$_[$#_]\"." } if ( $# _ > 1 ) { die "$!: Too much arguments: \"$_[1]\"...\"$_[$#_]\"." }
& connectivity_check ; & connectivity_check ;
my $ time_in_s = time ; my $ time_in_s = time ;
$ driver - > get ( "https://$_[0]" ) ; eval { $ driver - > get ( "https://$_[0]" ) } ;
my $ current_url = $ driver - > get_current_url ( ) ; eval { $ driver - > dismiss_alert } ;
eval { $ driver - > accept_alert } ; eval { $ driver - > accept_alert } ;
make_path ( "./data/$_[0]/$current_url/" ) or die "$!: Insufficient permissions." ; my $ current_url ;
eval { $ current_url = $ driver - > get_current_url ( ) } ;
if ( $ current_url ) {
eval { make_path ( "./data/$_[0]/$current_url/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ; open my $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ;
print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) ; open my $ FILEH_C , '>' , "./data/$_[0]/$current_url/title.txt" ;
& connectivity_check ; eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ) ;
} else { eval { make_path ( "./data/$_[0]/-/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ;
open my $ FILEH_C , '>' , "./data/$_[0]/-/title.txt" ;
eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ) ;
}
$ time_in_s = time ; $ time_in_s = time ;
$ driver - > get ( "view-source:https://$_[0]" ) ; eval { $ driver - > get ( "view-source:https://$_[0]" ) } ;
$ current_url = $ driver - > get_current_url ( ) ; undef $ current_url ;
make_path ( "./data/$_[0]/$current_url/" ) or die "$!: Insufficient permissions." ; eval { $ current_url = $ driver - > get_current_url ( ) } ;
open $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ; if ( $ current_url ) {
print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) ; eval { make_path ( "./data/$_[0]/$current_url/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ;
open my $ FILEH_C , '>' , "./data/$_[0]/$current_url/title.txt" ;
eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/$current_url/screenshot-$time_in_s.png.base64" ) ;
} else { eval { make_path ( "./data/$_[0]/-/" ) } ;
open my $ FILEH_B , '>' , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ;
open my $ FILEH_C , '>' , "./data/$_[0]/-/title.txt" ;
eval { print $ FILEH_B $ driver - > screenshot ( { 'full' = > 1 } ) } ;
print $ FILEH_C $ driver - > get_title ( ) ;
& connectivity_check ( $ _ [ 1 ] , "./data/$_[0]/-/screenshot-$time_in_s.png.base64" ) ;
}
} }
sub reverse_dns_doms { sub reverse_dns_doms {
@ -66,58 +175,95 @@ my $res = Net::DNS::Resolver->new;
my $ reply = $ res - > search ( "$_[0]" , "PTR" ) ; my $ reply = $ res - > search ( "$_[0]" , "PTR" ) ;
if ( $ reply ) { if ( $ reply ) {
foreach my $ rr ( $ reply - > answer ) { foreach my $ rr ( $ reply - > answer ) {
push @ obj , $ rr - > ptrdname ; print $ rr - > ptrdname , ' <--- This shouldn' , "'" , 't happen.' , "\n" if $ rr - > ptrdname !~ m/^[a-z0-9.-]+$/ ;
eval { push @ obj , $ rr - > ptrdname } ; # Looped over a CNAME for 1.9.30.40?
} }
} }
return @ obj ; return @ obj ;
} }
foreach my $ i1 ( 1 .. 9 , 11 .. 126 , 128 .. 255 ) { # Skip huge private blocks. sub syn_ping_elmn {
foreach my $ i2 ( 0 .. 255 ) { $ p - > port_number ( $ _ [ 0 ] ) ;
foreach my $ i3 ( 0 .. 255 ) { foreach my $ host ( @ host ) {
next unless defined ( $ host ) ;
( my $ check = $ host ) =~ s/[.][0-9]+$// ;
& connectivity_check ( $ check ) ;
last }
foreach my $ host ( @ host ) {
#next unless defined($host);
$ args { 'host' } = $ host ;
$ p - > ping ( $ args { 'host' } ) ;
$ host =~ s/^[0-9.]+[.]// ;
$ host [ $ host ] = $ args { 'host' } ;
}
while ( my ( $ host ) = $ p - > ack ) { push @ { $ hoa { $ _ [ 0 ] } } , $ host ; $ host =~ s/^[0-9.]+[.]// ; splice @ host , $ host }
}
$ initvar = 1 ;
unless ( defined ( $ continue_from ) ) { ( $ ii1 , $ ii2 , $ ii3 ) = ( 1 , 0 , 0 ) }
LABEL1: foreach my $ i1 ( 1 .. 9 , 11 .. 126 , 128 .. 254 ) { # Skip large private blocks.
if ( $ initvar == 1 ) {
until ( $ i1 >= $ ii1 ) { next LABEL1 }
}
LABEL2: foreach my $ i2 ( 0 .. 254 ) {
if ( $ initvar == 1 ) {
until ( int ( $ i1 * 255 ** 3 + $ i2 * 255 ** 2 ) >= int ( $ ii1 * 255 ** 3 + $ ii2 * 255 ** 2 ) ) { next LABEL2 }
}
LABEL3: foreach my $ i3 ( 0 .. 254 ) {
if ( $ initvar == 1 ) {
until ( int ( $ i1 * 255 ** 3 + $ i2 * 255 ** 2 + $ i3 * 255 ) >= int ( $ ii1 * 255 ** 3 + $ ii2 * 255 ** 2 + $ ii3 * 255 ) ) { next LABEL3 }
}
$ initvar = 0 ;
my $ alpha = time ; my $ alpha = time ;
foreach my $ i4 ( 0 .. 255 ) { splice @ host , 0 , $# host ;
$ args { 'host' } = $ i1 . '.' . $ i2 . '.' . $ i3 . '.' . $ i4 ; undef % hoa ;
$ args { 'port' } = '80' ; $ args { 'proto' } = 'tcp' ; $ args { 'port' } = '80' ; $ args { 'proto' } = 'tcp' ;
$ p - > port_number ( $ args { 'port' } ) ;
& connectivity_check ; & connectivity_check ;
if ( check_port ( \ % args ) ) { foreach my $ i4 ( 0 .. 254 ) {
print $ FILEH_A $ args { 'host' } . ':' . $ args { 'port' } . ' is in use:' . "\n" ; $ args { 'host' } = $ i1 . '.' . $ i2 . '.' . $ i3 . '.' . $ i4 ;
my @ rray = & reverse_dns_doms ( $ args { 'host' } ) ; $ p - > ping ( $ args { 'host' } ) ;
if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_80_screenshot ( $ args { 'host' } ) } else { $ host [ $ i4 ] = $ args { 'host' } ;
foreach ( @ rray ) { print $ FILEH_A $ _ . ',' ; & double_80_screenshot ( $ _ ) } } }
print $ FILEH_A "\n\n" ; while ( my ( $ host ) = $ p - > ack ) { push @ { $ hoa { '80' } } , $ host ; $ host =~ s/^[0-9.]+[.]// ; splice @ host , $ host }
} else { $ args { 'proto' } = 'udp' ;
& connectivity_check ; & syn_ping_elmn ( 80 , 'udp' ) ;
if ( check_port ( \ % args ) ) { & syn_ping_elmn ( 443 , 'udp' ) ;
print $ FILEH_A $ args { 'host' } . ':' . $ args { 'port' } . ' is in use:' . "\n" ; & syn_ping_elmn ( 443 , 'tcp' ) ;
my @ rray = & reverse_dns_doms ( $ args { 'host' } ) ;
if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_80_screenshot ( $ args { 'host' } ) } else { open my $ FILEH_A , '>>' , "./data/domains.txt" ; # Here, we'll store all the domains from the ipv4 addresses.
foreach ( @ rray ) { print $ FILEH_A $ _ . ',' ; & double_80_screenshot ( $ _ ) } } foreach my $ host ( @ { $ hoa { '80' } } ) {
print $ FILEH_A "\n\n" ; next unless defined ( $ host ) ;
} else { $ args { 'port' } = '443' ; & connectivity_check ( $ i1 . '.' . $ i2 . '.' . $ i3 ) ;
& connectivity_check ; print $ FILEH_A $ host . ':80' . "\n" ;
if ( check_port ( \ % args ) ) { my @ rray = & reverse_dns_doms ( $ host ) ;
print $ FILEH_A $ args { 'host' } . ':' . $ args { 'port' } . ' is in use:' . "\n" ; if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_80_screenshot ( $ host , $ i1 . '.' . $ i2 . '.' . $ i3 ) } else {
my @ rray = & reverse_dns_doms ( $ args { 'host' } ) ; foreach ( @ rray ) { if ( - d "./data/$_/view-source:http:/$_/" or - d "./data/$_/view-source:https:/$_/" ) { print $ FILEH_A "\n" ; next } ;
if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_443_screenshot ( $ args { 'host' } ) } else { sleep rand ( 1 ) / 10 ;
foreach ( @ rray ) { print $ FILEH_A $ _ . ',' ; & double_443_screenshot ( $ _ ) } } print $ FILEH_A $ _ . ',' ; & double_80_screenshot ( $ _ , $ i1 . '.' . $ i2 . '.' . $ i3 ) }
print $ FILEH_A "\n\n" ; print $ FILEH_A "\n" }
} else { $ args { 'proto' } = 'tcp' ; print $ FILEH_A "\n" }
& connectivity_check ; foreach my $ host ( @ { $ hoa { '443' } } ) {
if ( check_port ( \ % args ) ) { next unless defined ( $ host ) ;
print $ FILEH_A $ args { 'host' } . ':' . $ args { 'port' } . ' is in use:' . "\n" ; & connectivity_check ( $ i1 . '.' . $ i2 . '.' . $ i3 ) ;
my @ rray = & reverse_dns_doms ( $ args { 'host' } ) ; print $ FILEH_A $ host . ':443' . "\n" ;
if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_443_screenshot ( $ args { 'host' } ) } else { my @ rray = & reverse_dns_doms ( $ host ) ;
foreach ( @ rray ) { print $ FILEH_A $ _ . ',' ; & double_443_screenshot ( $ _ ) } } if ( $# rray == 0 and $ rray [ 0 ] eq '' ) { & double_443_screenshot ( $ host , $ i1 . '.' . $ i2 . '.' . $ i3 ) } else {
print $ FILEH_A "\n\n" ; foreach ( @ rray ) { if ( - d "./data/$_/view-source:http:/$_/" or - d "./data/$_/view-source:https:/$_/" ) { print $ FILEH_A "\n" ; next } ;
} } } } } sleep rand ( 1 ) / 10 ;
print $ FILEH_A $ _ . ',' ; & double_443_screenshot ( $ _ , $ i1 . '.' . $ i2 . '.' . $ i3 ) }
print $ FILEH_A "\n" }
print $ FILEH_A "\n" }
& connectivity_check ( $ i1 . '.' . $ i2 . '.' . $ i3 ) ;
my $ beta = time ; my $ beta = time ;
my $ delta = $ beta - $ alpha ; my $ delta = $ beta - $ alpha ;
$ ii + + ; print 'Progress: ' , 0.00000603 * $ ii , "%\n" , 'ETA: ' , $ delta * 255 ** 3 - 255 * $ ii , "s\n" ; my $ gamma = $ delta * 255 ** 3 - 255 * $ ii ;
while ( 0 > $ gamma ) { print $ gamma , ' ETA shouldn' , "'" , 't be negative. Retrying from ' , $ i1 . '.' . $ i2 . '.' . $ i3 . '.' .0 ; $ alpha = time ; & connectivity_check ( $ _ [ 0 ] ) ; $ beta = time ; $ delta = $ beta - $ alpha ; $ gamma = $ delta * 255 ** 3 - 255 * $ ii ; }
$ ii + + ; print 'Progress: ' , 0.00000603 * $ ii , "%\n" , 'ETA: ' , $ gamma , "s\n" ;
close $ FILEH_A ;
print "\n" , 'To continue after quitting, provide ' , $ i1 . '.' . $ i2 . '.' . $ i3 . '.' . '0' , ' as first argument.' , "\n\n" ;
} } } } } }
print 'Cleaning up...' . "\n" ; print 'Cleaning up...' . "\n" ;
close $ FILEH_A ;
$ driver - > quit ( ) ; $ driver - > quit ( ) ;
`killall geckodriver` and print 'Done!' . "\n" ; `killall geckodriver` and print 'Done!' . "\n" ;
Roy
2 years ago