HA-2020-86 dettagli noti:

Pastebin con combinazione di indirizzo IP e password

#!/usr/bin/env perl

use strict;
use warnings;
use IO::Socket;
use JSON::PP;

# Voce Credentials
my %client =(
    'login'    => {
        'action'   => 'auth',
        'username' => 'name',
        'password' => 'pass',
        'idstring' => '93321253741944961',
        },
    'host'     => '33.22.433.222',
    'port'     => 7777,
    'handle'   => undef,
    'line_in'  => 0,
    'line_out' => 0,

);


# create a tcp connection to the specified host and port
my $handle = connect( $client{'host'}, $client{'port'} );

# Turn off buffering to STDOUT
$client{'handle'}->autoflush(1);

print STDERR "[Connected to ".$client{'host'}.":".$client{'port'}."]\n";

# send login credentials
$client{'line_out'} = decode_json( $client{'login'} );

print ($client{'handle'}, "$client{line_out}");


# copy the socket to standard output
while (defined ($client{'line_in'} = <$client{'handle'}>) ) {

    print $client{'line_in'}."\n\n";
}

sub connect{
    my ($host_ip, $host_port) = @_;
    my $fh = IO::Socket::INET->new(
                                Proto     => "tcp",
                                PeerAddr  => $host_ip,
                                PeerPort  => $host_port,
                                )
       or die "can't connect to port $client{'port'} on $client{'host'}: $!";
    return $fh;
}

ChangeLog

Proprietà