3

这是我的第一个 Perl 脚本。我已经使用 CPAN 安装了 SOAP::Lite，它似乎一切正常。

我正在尝试访问一个简单的 HelloWorld .NET Web 服务。我收到一个似乎与 Perl 或 SOAP::Lite 无法验证 SSL 证书有关的错误。

虽然看起来它返回了 500 的代码，但我创建了一个能够很好地调用 Web 方法的 Java 客户端，所以我认为问题不在于 Web 服务端。

谁能指出我如何让​​这个工作正确的方向？

脚本：

#!/usr/bin/perl

use SOAP::Lite 'trace', 'debug';

$api_ns = "https://www.mydomain.com/edgedev/";
$api_url = "https://www.mydomain.com/edgedev/ws.asmx";
$action = "HelloWorld";

my $soap = SOAP::Lite
                -> readable(1)
                -> ns($api_ns, 'tns')
                -> proxy($api_url)
                -> on_action(sub { return "\"$action\""});

print $soap->HelloWorld()->result;

结果

<soap:Envelope 
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
    xmlns:tns="https://www.mydomain.com/edgedev/" 
    xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" 
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <tns:HelloWorld xsi:nil="true" />
      </soap:Body>
</soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: 500 Can't connect to www.mydomain.com:443 (certificate verify failed)
Content-Type: text/plain
Client-Date: Tue, 12 Feb 2013 16:40:28 GMT
Client-Warning: Internal response

Can't connect to www.mydomain.com:443 (certificate verify failed)

You can disable hostname check by setting environment variable PERL_LWP_SSL_VERIFY_HOSTNAME=0

LWP::Protocol::https::Socket: SSL connect attempt failed with unknown errorerror:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed at /usr/lib/perl5/vendor_perl/5.10.0/LWP/Protocol/http.pm line 57.
500 Can't connect to www.mydomain.com:443 (certificate verify failed) at ./soaptest.pl line 15
4

8 回答 8

7

以下是如何安全地进行这项工作，即不禁用 SSL 主机名检查。

如果您使用 CA 签名证书与公共系统通信，则需要将 LWP 指向您的发行版的根证书集合。在基于 Debian 的系统（Ubuntu 等）下，它保存在/etc/ssl/certs/.

BEGIN {
    $ENV{HTTPS_CA_DIR} = '/etc/ssl/certs'
}

如果您使用自签名证书与自己的服务器通信，则可以在客户端上保存该证书的副本，并将脚本指向该特定文件。

BEGIN {
    $ENV{HTTPS_CA_FILE} = '/path/to/my/server-certificate.crt'
}

您可以在运行脚本之前在环境中设置这些（例如，从您的 shell 中导出它们），或者您可以将设置直接应用到您的 UserAgent 对象。有关详细信息，请参阅LWP::UserAgent 文档；搜索ssl_opts.

于 2015-01-09T20:51:20.073 回答
3

$soap->{_transport}->{_proxy}->{ssl_opts}->{verify_hostname} = 0;

于 2013-12-17T13:23:29.333 回答
2

刚刚找到这个帖子，一切都对我非常有用，谢谢！

我想添加我的“解决方案”，这是对以前的一个变体，以防它帮助其他人。

添加

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

绝对是关键。但是，这会导致发出一个大警告IO::Socket::SLL：

*******************************************************************
 Using the default of SSL_verify_mode of SSL_VERIFY_NONE for client
 is deprecated! Please set SSL_verify_mode to SSL_VERIFY_PEER
 together with SSL_ca_file|SSL_ca_path for verification.
 If you really don't want to verify the certificate and keep the
 connection open to Man-In-The-Middle attacks please set
 SSL_verify_mode explicitly to SSL_VERIFY_NONE in your application.
*******************************************************************

摆脱该警告的方法是添加以下行：

use IO::Socket::SSL;
IO::Socket::SSL::set_defaults(SSL_verify_mode => "SSL_VERIFY_NONE");

除了原来的$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}，无论您使用什么客户端（LWP::UserAgent、RPC::XML::Client、SOAP::Lite等），它都应该可以工作。

希望对其他人有所帮助！

于 2016-04-01T19:15:07.437 回答
1

您需要告诉 LWP 不要进行主机名检查。对我来说，这只适用于使用环境变量，而不是通过在 SOAP::Lite 对象中设置选项：

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
于 2014-01-20T12:36:54.047 回答
1

在 perl v5.20.2 中，我需要两件事来禁用 ssl 证书验证：

在创建任何 SOAP 对象之前（我已将其放在顶部）

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

然后修改 SOAP 代理：

my $soap = SOAP::Lite
            -> readable(1)
            -> ns($api_ns, 'tns')
            -> proxy($api_url, ssl_opts => [ SSL_verify_mode => 0 ] )
            -> on_action(sub { return "\"$action\""});
于 2015-07-08T09:16:24.037 回答
0

由于 SOAP::Lite 重复 LWP 调用，它应该可以使用

$soap->ssl_opts( verify_hostname => 0 );
于 2013-02-12T21:14:58.017 回答
0

或者在调用 SOAP 方法之前添加你的代码：

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
于 2014-09-16T14:01:08.460 回答
0

男孩为我做了这项工作！我把它扔到 stubmaker.pl 和我的使用 stubmaker.pl 输出的脚本中。

IO::Socket::SSL::set_defaults(SSL_verify_mode => "SSL_VERIFY_NONE");
use SOAP::Lite +trace => qw( debug );

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
于 2017-06-08T13:54:57.543 回答