Benign perl Download

LWP-Protocol-https 6.17

Legitimate Perl library test suite

“Provide https support for LWP::UserAgent”

Perl IO::Socket listenerPerl fork child process

SHA-256361c7c1eee8cf66812958f975f26ef2e2272a0c6221d2043477cb9c22b8d1c23

URLhttps://cpan.metacpan.org/authors/id/O/OA/OALDERS/LWP-Protocol-https-6.17.tar.gz

MaleculeO(C)H₂(CmPo)

Evidence

Perl LWP HTTP client import https_proxy.t · lines 1–17

⋯10 lines
11use IO::Select;
12use Socket 'MSG_PEEK';
13use LWP::UserAgent;
14use LWP::Protocol::https;
15
16plan skip_all => "fork not implemented on this platform" if
17    grep { $^O =~m{$_} } qw( MacOS VOS v …

Perl IO::Socket listener https_proxy.t · lines 33–57

33:35… ---------------------------------------
34my (@server,@saddr);
35for my $i (0,1) {
36    my $server = IO::Socket::INET->new(
37	LocalAddr => '127.0.0.1',
38	LocalPort => 0, # let system pick port
⋯7 lines
46my @childs;
47END { kill 9,@childs if @childs };
48defined( my $pid = fork()) or die "fork failed: $!";
49
50# child process runs _server and exits
⋯7 lines

Perl LWP GET call https_proxy.t · lines 174–179

31… ~m{^proxy} ? "http://$saddr[0]":""
  }
176
  my $response = $ua->get($url) or die "no response";
  if ( $response->is_success
and ( my $body = $response->content()) =~m{^ID: *(\d+)\.(\S+)}m ) {

Generic 'cipher' crypto term https.pm · lines 76–81

31… SL-Version" => $sslversion);
  }
  $res->header("Client-SSL-Cipher" => $sock->get_cipher);
  my $cert = $sock->get_peer_certificate;
  if ($cert) {
$res->header("Client-SSL-Cert-Subject" => …

References a public code-forge URL https.pm · lines 99–102

18… be passed there only if it is not an IP address.
  # Details: https://github.com/libwww-perl/libwww-perl/issues/449#issuecomment-1896175509
my $host = $url->host() =~ m/:|^[\d.]+$/s ? undef : $url->host();
m …

No evidence locations were recorded for this file. Raw result