71 lines
2.0 KiB
Perl
71 lines
2.0 KiB
Perl
package DDG::Goodie::Teredo;
|
|
# ABSTRACT: Provides the Teredo server IPv4 address,
|
|
# NAT IPv4 address, and port number encoded in a given
|
|
# Teredo tunnel IPv6 address.
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
use Net::IP;
|
|
use Math::BaseConvert;
|
|
|
|
triggers start => 'teredo';
|
|
|
|
zci answer_type => 'teredo';
|
|
zci is_cached => 1;
|
|
|
|
# Params: server, port, client
|
|
sub to_text {
|
|
return "Teredo Server IPv4: " . $_[0] . "\nNAT Public IPv4: " . $_[2]
|
|
. "\nClient Port: " . $_[1];
|
|
}
|
|
|
|
handle remainder => sub {
|
|
my @output = ();
|
|
|
|
# Create an IPv6 address from the query value
|
|
my $ip = new Net::IP ($_,6) if $_;
|
|
|
|
# Verify the query value is a valid Teredo IPv6 address
|
|
if ((defined $ip) && ($ip->version() == 6) && (substr($ip->ip(),0,9) eq "2001:0000")) {
|
|
my $binip = $ip->binip();
|
|
|
|
# bits 32 to 64 designate IPv4 address of the Teredo server used
|
|
my $netip = new Net::IP (Net::IP::ip_bintoip((substr $binip, 32, 32),4));
|
|
my $teredo = $netip->ip();
|
|
push @output, $teredo;
|
|
|
|
# negation of bits 80 to 96, converted to decimal, designate NAT port number
|
|
my $port = (65535 - cnv((substr $binip, 80, 16),2,10));
|
|
push @output, $port;
|
|
|
|
# negation of bits 96 to 128 designate IPv4 address of NAT device
|
|
$netip = new Net::IP (Net::IP::ip_bintoip(~(substr $binip, 96, 32),4));
|
|
my $nat = $netip->ip();
|
|
push @output, $netip->ip();
|
|
|
|
my %output = (
|
|
'Teredo Server IPv4:' => $teredo,
|
|
'Nat Public IPv4:' => $nat,
|
|
'Client Port:' => $port,
|
|
);
|
|
|
|
return to_text(@output),
|
|
structured_answer => {
|
|
data => {
|
|
title => 'Teredo Address Details',
|
|
record_data => \%output,
|
|
record_keys => ['Teredo Server IPv4:', 'Nat Public IPv4:', 'Client Port:'],
|
|
},
|
|
templates => {
|
|
group => 'list',
|
|
options => {
|
|
content => 'record',
|
|
}
|
|
}
|
|
};
|
|
}
|
|
return;
|
|
};
|
|
|
|
1;
|