perl - 如何使用 perl 通过代理服务器连接 outlook IMAP 服务器

Question

我想连接 IMAP 服务器，但我无法直接连接 imap 服务器，这就是我使用代理但仍然无法连接和阅读电子邮件的原因。以下是我的代码，

#!/usr/intel/bin/perl
use strict;
use warnings;

# fill in your details here
my $username = 'username@companyname.com';
my $password = 'password';
my $mailhost = 'outlook.office365.com';#imap-mail.outlook.com
my $mailport = 993;
my $proxyhost = '121.244.253.5';
my $proxyport = 8080;

print "Proxy...\n";
use IO::Socket::Socks::Wrapper(
                                 {
                                    ProxyAddr => $proxyhost,
                                    ProxyPort => $proxyport,
                                    SocksDebug => 0,
                                    Timeout => 100000000
                                 }
                              );

# required modules
use Net::IMAP::Simple;
use Email::Simple;
use IO::Socket::SSL;

print "Connecting...\n";
$IO::Socket::SSL::DEBUG=2;
# Connect
my $imap = Net::IMAP::Simple->new(
    $mailhost,
    port    => $mailport,
    use_ssl => 1
) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr \n";

print "Logging In...\n";
# Log in
if ( !$imap->login( $username, $password ) ) {
    print STDERR "Login failed: " . $imap->errstr . "\n";
    exit(64);
}

print "Selecting Folder...\n";
# Look in the the INBOX
my $nm = $imap->select('Archive');

print "How Many Messages Are There...\n";
# How many messages are there?
my ($unseen, $recent, $num_messages) = $imap->status();
print "unseen: $unseen, recent: $recent, total: $num_messages\n\n";

print "Quickly Look for unseen messages...\n";
## Iterate through unseen messages
for ( my $i = 1 ; $i <= $nm ; $i++ ) {
    if ( $imap->seen($i) ) {
        next;
    } else {
        my $es = Email::Simple->new( join '', @{ $imap->top($i) } );

        printf( "[%03d] %s\n\t%s\n", $i, $es->header('From'), $es->header(+'Subject') );
    }
}

print "Disconnect...\n";
# Disconnect
$imap->quit;

print "Exit...\n";
exit;

以下是我的回复:-

Proxy...
Connecting...
DEBUG: .../IO/Socket/SSL.pm:332: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:334: socket connected
DEBUG: .../IO/Socket/SSL.pm:347: ssl handshake not started
DEBUG: .../IO/Socket/SSL.pm:377: set socket to non-blocking to enforce timeout=100000000

我不知道为什么它没有更进一步。请分享您的意见并纠正我。

请帮帮我...

Answer 1

正确的语法是:

my $proxyhost = '65.130.4.202';
my $proxyport = 24451;
use Net::IMAP::Simple;

print "Proxy...\n";
use IO::Socket::Socks::Wrapper(
                              Net::IMAP::Simple => {
                                    ProxyAddr => $proxyhost,
                                    ProxyPort => $proxyport,
                                    SocksDebug => 3,
                                    Timeout => 100000000
                                 }
                              );


use IO::Socket::SSL;

print "Connecting...\n";
$IO::Socket::SSL::DEBUG=2;
# Connect
my $imap = Net::IMAP::Simple->new(
    'imap.gmail.com',
    port    => 993,
    use_ssl => 1
) || die "Unable to connect to IMAP: $Net::IMAP::Simple::errstr \n";

print "Logging In...\n";

# Log in
if ( !$imap->login( 'pappucant@gmail.com', 'pappu123' ) ) {
    print STDERR "Login failed: " . $imap->errstr . "\n";
    exit(64);
}

对我来说工作正常，但不适用于代码中提到的代理服务器。

输出:

Proxy...
Connecting...
DEBUG: .../IO/Socket/SSL.pm:625: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:627: socket connected
DEBUG: .../IO/Socket/SSL.pm:649: ssl handshake not started
DEBUG: .../IO/Socket/SSL.pm:682: using SNI with hostname imap.gmail.com
DEBUG: .../IO/Socket/SSL.pm:738: set socket to non-blocking to enforce timeout=90
DEBUG: .../IO/Socket/SSL.pm:764: ssl handshake in progress
DEBUG: .../IO/Socket/SSL.pm:774: waiting for fd to become ready: SSL wants a read first
DEBUG: .../IO/Socket/SSL.pm:794: socket ready, retrying connect
DEBUG: .../IO/Socket/SSL.pm:764: ssl handshake in progress
DEBUG: .../IO/Socket/SSL.pm:774: waiting for fd to become ready: SSL wants a read first
DEBUG: .../IO/Socket/SSL.pm:794: socket ready, retrying connect
DEBUG: .../IO/Socket/SSL.pm:764: ssl handshake in progress
DEBUG: .../IO/Socket/SSL.pm:774: waiting for fd to become ready: SSL wants a read first
DEBUG: .../IO/Socket/SSL.pm:794: socket ready, retrying connect
DEBUG: .../IO/Socket/SSL.pm:809: ssl handshake done
Logging In...
Login failed: [AUTHENTICATIONFAILED] Invalid credentials (Failure)