This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
# Horrible shell hack to check for enabled SSLv3 on port 443 of a CIDR mask. | |
# | |
# This is pretty slow because it does them in series. Sticking a '&' on the end | |
# of the for loop (so "done &" instead of "done") will execute openssl against | |
# every IP:443 at once. If there's too many to do at once then I suggest | |
# lashing something up with GNU parallel. | |
# | |
# Note also that nmap itself can check for SSLv3 with something like: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
for disk in `find /sys/block -maxdepth 1 -name 'sd*' | xargs -n 1 basename` | |
do | |
smartctl -q errorsonly -l scterc,70,70 /dev/${disk} | |
if test $? -eq 4 | |
then | |
echo "/dev/${disk} doesn't support scterc, setting timeout to 180s /o\\" | |
echo 180 > /sys/block/${disk}/device/timeout |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use DBI; | |
use URI::Escape; | |
use Term::UI; | |
use Term::ReadLine; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use Net::IP; | |
use Net::DNS; | |
use IO::Select; | |
use Getopt::Long; | |
use Pod::Usage; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Net::IP qw(:PROC); | |
use Net::DNS; | |
use Getopt::Long; | |
use Pod::Usage; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
foreach my $cidr (qw(2001:ba8:1f1:f004::/64 4:2::/32 2001:ba8:1f1:400::/56)) { | |
print "$cidr reverses to ", v6_cidr_to_reverse($cidr), "\n"; | |
} | |
sub v6_cidr_to_reverse |