Created
September 21, 2024 02:12
-
-
Save m0rb/8d0479d7e3a5cdea7a92622675d72486 to your computer and use it in GitHub Desktop.
shodan safari bot for bluesky & mastodon
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 -w | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use lib "."; | |
| use Storable; | |
| use Config::File qw(read_config_file); | |
| use MyLib::ATProto qw(post_media); | |
| use Mastodon::Client; | |
| my $wd = "/home/morb/shodan_safari/"; | |
| my $exe = "shodan"; | |
| my $file = "shodan-latest.json.gz"; | |
| my $track = "hosts.track"; | |
| my $imgdir = $wd . substr( $file, 0, -8 ) . "-images"; | |
| my $cfg = read_config_file("config.cfg"); | |
| my ( @previous, $msg ); | |
| my $mt = Mastodon::Client->new( | |
| instance => $cfg->{masto}{instance}, | |
| client_id => $cfg->{masto}{ckey}, | |
| client_secret => $cfg->{masto}{csec}, | |
| access_token => $cfg->{masto}{at}, | |
| coerce_entities => 0 | |
| ); | |
| _setup(); | |
| @previous = @{retrieve( $wd . $track )}; | |
| my $fields = "ip_str,port,hostnames,location.city,\ | |
| location.country_code,asn,isp,timestamp,_shodan.id"; | |
| my @hosts = `$exe parse $file --fields '$fields' --separator '_-_-' --no-color`; | |
| chomp @hosts; | |
| START: | |
| my ( $ip, $port, $hostname, $city, $country, $asn, $isp, $timestamp, $id ) = | |
| split( /_-_-/, $hosts[ int( rand( scalar @hosts ) ) ] ); | |
| if ( grep( /$ip-$port/, @previous ) ) { goto START; } | |
| ($timestamp) ? $timestamp = substr( $timestamp, 0, -10 ) : undef; | |
| ($id) ? $msg .= "ID: $id\n" : undef; | |
| ( $ip && $port ) ? $msg .= "IP: $ip:$port\n" : undef; | |
| ($hostname) ? $msg .= "Hostname: $hostname\n" : undef; | |
| ($asn) ? $msg .= "ASN: $asn\n" : undef; | |
| ($isp) ? $msg .= "ISP: $isp\n" : undef; | |
| ( $city && $country ) ? $msg .= "Location: $city, $country\n" : undef; | |
| ($timestamp) ? $msg .= "Added: $timestamp\n" : undef; | |
| $msg .= "\n#shodansafari\n"; | |
| utf8::decode($msg); | |
| if ( -f $imgdir . "/$ip-$port\.jpg" ) { | |
| post_media( | |
| {account => "safari", text => $msg, fn => $imgdir . "/$ip-$port\.jpg"} ); | |
| eval { | |
| my $mm = $mt->upload_media( $imgdir . "/$ip-$port\.jpg" ); | |
| $mt->post_status( $msg, {media_ids => [ $mm->{'id'} ]} ); | |
| }; | |
| } | |
| push( @previous, $ip . "-" . $port ); | |
| store( \@previous, $wd . $track ); | |
| sub _setup { | |
| srand; | |
| unless ( -f $wd . $track ) { store( \@previous, $wd . $track ); } | |
| unless ( -f $wd . $file ) { die "No json bundle. Full stop.\n"; } | |
| unless ( -d $imgdir ) { `$exe convert $file images`; } | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment