Roy
/
senicup
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update 256^4 loops en wat probeer wat uit met eval blocks.

Browse Source
main
Roy 2 years ago
parent ed02a67945
commit 9455c6e0d0
1 changed files with 47 additions and 45 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 92
      senicup.pl

92
senicup.pl
Unescape View File

@ -9,14 +9,14 @@ use Net::DNS;
use Selenium::Firefox; use Selenium::Firefox;
use Selenium::Firefox::Profile; use Selenium::Firefox::Profile;
my ($continue_from, $ii1, $ii2, $ii3, $initvar); #eval {
my ($continue_from, $ii1, $ii2, $ii3, $ii4, $iii1, $iii2, $iii3, $initvar);
if ($ARGV[0]) { if ($ARGV[0]) {
chomp($continue_from = $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:" 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"} } else {($ii1, $ii2, $ii3, $ii4) = 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 (%args, %args2, %hoa, @host); my (%args, %args2, %hoa, @host);
$args2{'profile_dir'} = '/home/miami/.Mozilla3/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);
$driver->set_timeout('script', 10000); $driver->set_timeout('script', 10000);
@ -27,22 +27,23 @@ sub connectivity_check {
my $flag = 0; my $flag = 0;
my $exp = 0; my $exp = 0;
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. 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.
#if (eval open my $TMP_FH, '<', (glob '/sys/class/net/wl*/carrier')[0] and $connectivity =~ m/^[0-9]+([.][0-9]+){3}$/) {if (<$TMP_FH> == 1) {return 5}};
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}; 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 ($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($_[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). if (defined($_[0])) { # If true, assume everything in $i1 failed before detection of the connectivity issue (i.e., redo /24).
my $alpha = time; my $alpha = time;
splice @host, 0, $#host; splice @host, 0, $#host;
undef %hoa; undef %hoa;
$args{'port'} = '80'; $args{'proto'} = 'tcp'; $args{'port'} = '80'; $args{'proto'} = 'tcp';
$p->port_number($args{'port'}); $p->port_number($args{'port'});
&connectivity_check; &connectivity_check;
foreach my $i4 (0..254) { foreach my $i1 (1..9,11..126,128..254) {
$args{'host'} = $_[0].'.'.$i4; $args{'host'} = $i1.'.'.$_[0];
$p->ping($args{'host'}); $p->ping($args{'host'});
$host[$i4] = $args{'host'}; $host[$i1] = $args{'host'};
} }
while (my ($host) = $p->ack) {push @{$hoa{'80'}}, $host; $host =~ s/^[0-9.]+[.]//; splice @host, $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(80, 'udp');
&syn_ping_elmn(443, 'udp'); &syn_ping_elmn(443, 'udp');
@ -56,7 +57,7 @@ foreach my $host (@{$hoa{'80'}}) {
my @rray = &reverse_dns_doms($host); my @rray = &reverse_dns_doms($host);
if ($#rray == 0 and $rray[0] eq '') {&double_80_screenshot($host, $_[0])} else { 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}; foreach (@rray) {if (-d "./data/$_/view-source:http:/$_/" or -d "./data/$_/view-source:https:/$_/") {print $FILEH_A "\n"; next};
sleep rand(1)/10; sleep rand(1)/(rand(10)+1);
print $FILEH_A $_.','; &double_80_screenshot($_, $_[0])} print $FILEH_A $_.','; &double_80_screenshot($_, $_[0])}
print $FILEH_A "\n"} print $FILEH_A "\n"}
print $FILEH_A "\n"} print $FILEH_A "\n"}
@ -67,20 +68,18 @@ foreach my $host (@{$hoa{'443'}}) {
my @rray = &reverse_dns_doms($host); my @rray = &reverse_dns_doms($host);
if ($#rray == 0 and $rray[0] eq '') {&double_443_screenshot($host, $_[0])} else { 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}; foreach (@rray) {if (-d "./data/$_/view-source:http:/$_/" or -d "./data/$_/view-source:https:/$_/") {print $FILEH_A "\n"; next};
sleep rand(1)/10; sleep rand(1)/(rand(10)+1);
print $FILEH_A $_.','; &double_443_screenshot($_, $_[0])} print $FILEH_A $_.','; &double_443_screenshot($_, $_[0])}
print $FILEH_A "\n"} print $FILEH_A "\n"}
print $FILEH_A "\n"} print $FILEH_A "\n"}
&connectivity_check($_[0]); # TODO: Potential infinite recursion on __very__ unstable networks with parameter? &connectivity_check($_[0]); # TODO: Potential infinite recursion on __very__ unstable networks with parameter?
my $beta = time; my $beta = time;
my $delta = $beta-$alpha; my $delta = $beta-$alpha;
my $gamma = $delta*255**3-255*$ii; while (3 > $delta) {print "$delta < 3. Retrying.\n"; $alpha = time; my $returni = &connectivity_check($_[0]); $beta = time; last if $returni == 5}
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; close $FILEH_A;
print "\n", 'To continue after quitting, provide', $_[0].'.0', 'as first argument.', "\n";
}} }}
last} last}
return 5;
} }
sub double_80_screenshot { sub double_80_screenshot {
@ -174,9 +173,8 @@ my (@obj);
my $res = Net::DNS::Resolver->new; 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 (grep { $_->type eq "PTR" } $reply->answer) { # Do not assume rr-objects are of the same type as requested.
print $rr->ptrdname, ' <--- This shouldn', "'", 't happen.', "\n" if $rr->ptrdname !~ m/^[a-z0-9.-]+$/; eval {push @obj, $rr->ptrdname};
eval {push @obj, $rr->ptrdname}; # Looped over a CNAME for 1.9.30.40?
} }
} }
return @obj; return @obj;
@ -186,33 +184,36 @@ sub syn_ping_elmn {
$p->port_number($_[0]); $p->port_number($_[0]);
foreach my $host (@host) { foreach my $host (@host) {
next unless defined($host); next unless defined($host);
(my $check = $host) =~ s/[.][0-9]+$//; (my $check = $host) =~ s/^[0-9]+[.]//;
&connectivity_check($check); &connectivity_check($check);
last} last}
foreach my $host (@host) { foreach my $host (@host) {
#next unless defined($host); next unless defined($host);
$args{'host'} = $host; $args{'host'} = $host;
$p->ping($args{'host'}); $p->ping($args{'host'});
$host =~ s/^[0-9.]+[.]//; $host =~ s/[.][0-9.]+$//;
$host[$host] = $args{'host'}; $host[$host] = $args{'host'};
} }
while (my ($host) = $p->ack) {push @{$hoa{$_[0]}}, $host; $host =~ s/^[0-9.]+[.]//; splice @host, $host} while (my ($host) = $p->ack) {push @{$hoa{$_[0]}}, $host; $host =~ s/[.][0-9.]+$//; splice @host, $host}
} }
$initvar=1; $initvar=1;
unless (defined($continue_from)) {($ii1, $ii2, $ii3) = (1, 0, 0)} unless (defined($continue_from)) {($ii1, $ii2, $ii3, $ii4) = (1, 0, 0, 0)}
LABEL1: foreach my $i1 (1..9,11..126,128..254) { # Skip large private blocks. LABEL4: foreach my $i4 (0..254) {
if ($initvar == 1) { if ($initvar == 1) {
until ($i1 >= $ii1) {next LABEL1} until ($i4 >= $ii4) {next LABEL4}
} }
LABEL2: foreach my $i2 (0..254) { LABEL3: foreach my $i3 (0..254) {
if ($initvar == 1) { if ($initvar == 1) {
until (int($i1*255**3+$i2*255**2) >= int($ii1*255**3+$ii2*255**2)) {next LABEL2} until (int($i4*255**3+$i3*255**2) >= int($ii4*255**3+$ii3*255**2)) {next LABEL3}
} }
LABEL3: foreach my $i3 (0..254) { LABEL2: foreach my $i2 (0..254) {
if ($initvar == 1) { if ($initvar == 1) {
until (int($i1*255**3+$i2*255**2+$i3*255) >= int($ii1*255**3+$ii2*255**2+$ii3*255)) {next LABEL3} until (int($i4*255**3+$i3*255**2+$i2*255) >= int($ii4*255**3+$ii3*255**2+$ii2*255)) {next LABEL2}
} }
if ($initvar == 1) {
if ($ii1 > 127) {$iii1 = 1; $iii2 = 11; $iii3 = $ii1} elsif ($ii1 > 10) {$iii1 = 1; $iii2 = $ii1; $iii3 = 128} elsif ($ii1 > 0) {$iii1 = $ii1; $iii2 = 11; $iii3 = 128}
} else {$iii1 = 1; $iii2 = 11; $iii3 = 128}
$initvar=0; $initvar=0;
my $alpha = time; my $alpha = time;
splice @host, 0, $#host; splice @host, 0, $#host;
@ -220,12 +221,12 @@ undef %hoa;
$args{'port'} = '80'; $args{'proto'} = 'tcp'; $args{'port'} = '80'; $args{'proto'} = 'tcp';
$p->port_number($args{'port'}); $p->port_number($args{'port'});
&connectivity_check; &connectivity_check;
foreach my $i4 (0..254) { foreach my $i1 ($iii1..9,$iii2..126,$iii3..254) { # Skip large private blocks.
$args{'host'} = $i1.'.'.$i2.'.'.$i3.'.'.$i4; $args{'host'} = $i1.'.'.$i2.'.'.$i3.'.'.$i4;
$p->ping($args{'host'}); $p->ping($args{'host'});
$host[$i4] = $args{'host'}; $host[$i1] = $args{'host'};
} }
while (my ($host) = $p->ack) {push @{$hoa{'80'}}, $host; $host =~ s/^[0-9.]+[.]//; splice @host, $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(80, 'udp');
&syn_ping_elmn(443, 'udp'); &syn_ping_elmn(443, 'udp');
@ -234,36 +235,37 @@ while (my ($host) = $p->ack) {push @{$hoa{'80'}}, $host; $host =~ s/^[0-9.]+[.]/
open my $FILEH_A, '>>', "./data/domains.txt"; # Here, we'll store all the domains from the ipv4 addresses. open my $FILEH_A, '>>', "./data/domains.txt"; # Here, we'll store all the domains from the ipv4 addresses.
foreach my $host (@{$hoa{'80'}}) { foreach my $host (@{$hoa{'80'}}) {
next unless defined($host); next unless defined($host);
&connectivity_check($i1.'.'.$i2.'.'.$i3); &connectivity_check($i2.'.'.$i3.'.'.$i4);
print $FILEH_A $host.':80'."\n"; print $FILEH_A $host.':80'."\n";
my @rray = &reverse_dns_doms($host); my @rray = &reverse_dns_doms($host);
if ($#rray == 0 and $rray[0] eq '') {&double_80_screenshot($host, $i1.'.'.$i2.'.'.$i3)} else { if ($#rray == 0 and $rray[0] eq '') {&double_80_screenshot($host, $i2.'.'.$i3.'.'.$i4)} else {
foreach (@rray) {if (-d "./data/$_/view-source:http:/$_/" or -d "./data/$_/view-source:https:/$_/") {print $FILEH_A "\n"; next}; foreach (@rray) {if (-d "./data/$_/view-source:http:/$_/" or -d "./data/$_/view-source:https:/$_/") {print $FILEH_A "\n"; next};
sleep rand(1)/10; sleep rand(1)/(rand(10)+1);
print $FILEH_A $_.','; &double_80_screenshot($_, $i1.'.'.$i2.'.'.$i3)} print $FILEH_A $_.','; &double_80_screenshot($_, $i2.'.'.$i3.'.'.$i4)}
print $FILEH_A "\n"} print $FILEH_A "\n"}
print $FILEH_A "\n"} print $FILEH_A "\n"}
foreach my $host (@{$hoa{'443'}}) { foreach my $host (@{$hoa{'443'}}) {
next unless defined($host); next unless defined($host);
&connectivity_check($i1.'.'.$i2.'.'.$i3); &connectivity_check($i2.'.'.$i3.'.'.$i4);
print $FILEH_A $host.':443'."\n"; print $FILEH_A $host.':443'."\n";
my @rray = &reverse_dns_doms($host); my @rray = &reverse_dns_doms($host);
if ($#rray == 0 and $rray[0] eq '') {&double_443_screenshot($host, $i1.'.'.$i2.'.'.$i3)} else { if ($#rray == 0 and $rray[0] eq '') {&double_443_screenshot($host, $i2.'.'.$i3.'.'.$i4)} else {
foreach (@rray) {if (-d "./data/$_/view-source:http:/$_/" or -d "./data/$_/view-source:https:/$_/") {print $FILEH_A "\n"; next}; foreach (@rray) {if (-d "./data/$_/view-source:http:/$_/" or -d "./data/$_/view-source:https:/$_/") {print $FILEH_A "\n"; next};
sleep rand(1)/10; sleep rand(1)/(rand(10)+1);
print $FILEH_A $_.','; &double_443_screenshot($_, $i1.'.'.$i2.'.'.$i3)} print $FILEH_A $_.','; &double_443_screenshot($_, $i2.'.'.$i3.'.'.$i4)}
print $FILEH_A "\n"} print $FILEH_A "\n"}
print $FILEH_A "\n"} print $FILEH_A "\n"}
&connectivity_check($i1.'.'.$i2.'.'.$i3); &connectivity_check($i2.'.'.$i3.'.'.$i4);
my $beta = time; my $beta = time;
my $delta = $beta-$alpha; my $delta = $beta-$alpha;
my $gamma = $delta*255**3-255*$ii; my $gamma = $i4*255**2+$i3*255**1+$i2;
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;} while (3 > $delta) {print "$delta < 3. Retrying.\n"; $alpha = time; my $returni = &connectivity_check($i2.'.'.$i3.'.'.$i4); $beta = time; last if $returni == 5}
$ii++; print 'Progress: ', 0.00000603*$ii, "%\n", 'ETA: ', $gamma, "s\n"; print 'Progress: ', $gamma/255**3*100, "%\n", 'ETA: ', (255**3-$gamma)*$delta, "s\n";
close $FILEH_A; close $FILEH_A;
print "\n", 'To continue after quitting, provide ', $i1.'.'.$i2.'.'.$i3.'.'.'0', ' as first argument.', "\n\n"; print "\n", 'To continue after quitting, provide ', '1.'.$i2.'.'.$i3.'.'.$i4, ' as first argument.', "\n\n";
}}} }}}
print 'Cleaning up...'."\n"; print 'Cleaning up...'."\n";
$driver->quit(); $driver->quit();
`killall geckodriver` and print 'Done!'."\n"; `killall geckodriver` and print 'Done!'."\n";
#}

Write Preview
Loading…
Cancel
Save