webshell

Ghost Exploiter Team Official

C:/Program Files (x86)/Plesk/perl/lib/Net/DNS/Resolver/

File / Folder	Size	Action
.	-
Base.pm	39.064KB	edt ren
MSWin32.pm	3.112KB	edt ren
Programmable.pm	8.102KB	edt ren
Recurse.pm	9.229KB	edt ren
UNIX.pm	1.465KB	edt ren
android.pm	1.669KB	edt ren
cygwin.pm	4.112KB	edt ren
os2.pm	1.486KB	edt ren

package Net::DNS::Resolver::MSWin32;

#
# $Id: MSWin32.pm 1258 2014-09-04 12:23:18Z willem $
#
use vars qw($VERSION);
$VERSION = (qw$LastChangedRevision: 1258 $)[1];

=head1 NAME

Net::DNS::Resolver::MSWin32 - MS Windows Resolver Class

=cut

use strict;
use base qw(Net::DNS::Resolver::Base);

use Carp;

BEGIN {
	use vars qw($Registry);

use constant WINHLP => eval {	## use Win32::Helper;	# hidden from static analyser
		require Win32::IPHelper;
	} || 0;

Win32::IPHelper->import if WINHLP;

use constant WINREG => eval {	## use Win32::TieRegistry;
		require Win32::TieRegistry;
	} || 0;

Win32::TieRegistry->import(qw(KEY_READ REG_DWORD)) if WINREG;
}

sub _untaint { map defined && /^(.+)$/ ? $1 : (), @_; }

sub init {
	my $defaults = shift->defaults;

my $debug = 0;

my $FIXED_INFO = {};

if ( my $ret = Win32::IPHelper::GetNetworkParams($FIXED_INFO) ) {
		Carp::croak "GetNetworkParams() error %u: %s\n", $ret, Win32::FormatMessage($ret);
	} elsif ($debug) {
		require Data::Dumper;
		print Data::Dumper::Dumper $FIXED_INFO;
	}

my @nameservers = map { $_->{IpAddress} } @{$FIXED_INFO->{DnsServersList}};
	$defaults->nameservers( _untaint @nameservers );

my $devolution = 0;
	my @searchlist = _untaint lc $FIXED_INFO->{DomainName};
	$defaults->domain(@searchlist);

if (WINREG) {

# The Win32::IPHelper does not return searchlist.
		# Make best effort attempt to get searchlist from the registry.

my @root = qw(HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Services);

my $leaf = join '\\', @root, qw(Tcpip Parameters);
		my $reg_tcpip = $Registry->Open( $leaf, {Access => KEY_READ} );

unless ( defined $reg_tcpip ) {			# Didn't work, Win95/98/Me?
			$leaf = join '\\', @root, qw(VxD MSTCP);
			$reg_tcpip = $Registry->Open( $leaf, {Access => KEY_READ} );
		}

if ( defined $reg_tcpip ) {
			my $searchlist = lc $reg_tcpip->GetValue('SearchList') || '';
			push @searchlist, split m/[\s,]+/, $searchlist;

my ( $value, $type ) = $reg_tcpip->GetValue('UseDomainNameDevolution');
			$devolution = defined $value && $type == REG_DWORD ? hex $value : 0;
		}
	}

# fix devolution if configured, and simultaneously
	# make sure no dups (but keep the order)
	my @list;
	my %seen;
	foreach my $entry (@searchlist) {
		push( @list, $entry ) unless $seen{$entry}++;

next unless $devolution;

# as long there are more than two pieces, cut
		while ( $entry =~ m#\..+\.# ) {
			$entry =~ s#^[^\.]+\.(.+)$#$1#;
			push( @list, $entry ) unless $seen{$entry}++;
		}
	}
	$defaults->searchlist( _untaint @list );

$defaults->read_env;
}

1;
__END__

=head1 SYNOPSIS

use Net::DNS::Resolver;

=head1 DESCRIPTION

This class implements the OS specific portions of C<Net::DNS::Resolver>.

No user serviceable parts inside, see L<Net::DNS::Resolver|Net::DNS::Resolver>
for all your resolving needs.

=head1 COPYRIGHT

=head1 SEE ALSO

L<perl>, L<Net::DNS>, L<Net::DNS::Resolver>

=cut