// popおよびpopsスキームの登録
PopWebRequestCreator.RegisterPrefix();

/*
 * ホスト"pop.example.net"のPOPSデフォルトポート(995)にSSL/TLSを用いて接続。
 * ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。
 */
var request1 = WebRequest.Create(new Uri("pops://user@pop.example.net/"));

request1.Credentials = new NetworkCredential("user", "pass");

/*
 * ホスト"pop.example.net"のポート10110に接続、可能ならSSL/TLSにアップグレード。
 * ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はAPOPを試行。
 */
var request2 = WebRequest.Create(new Uri("pop://user;AUTH=+APOP@pop.example.net:10110/")) as PopWebRequest;

request2.UseTlsIfAvailable = true;
request2.Credentials = new NetworkCredential("user", "pass");

/*
 * ホスト"pop.example.net"のポート10110にSSL/TLSを用いて接続。
 * ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。
 */
var request3 = WebRequest.Create(new Uri("pops://user;AUTH=DIGEST-MD5@pop.example.net:10110/")) as PopWebRequest;

request3.Credentials = new NetworkCredential("user", "pass");

/*
 * ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、SSL/TLSは使用しない。
 * ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5, CRAM-MD5, APOP, USER/PASSの順に試行。
 */
var request4 = WebRequest.Create(new Uri("pop://;AUTH=*@pop.example.net/")) as PopWebRequest;

request4.UseTlsIfAvailable = false;
request4.UsingSaslMechanisms = new[] {"DIGEST-MD5", "CRAM-MD5", "+APOP"};
request4.Credentials = new NetworkCredential("user", "pass");

/*
 * ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、可能ならSSL/TLSを使用する。
 * ユーザ名に"user"、パスワードに"pass"を使用。
 * 認証方式はCRAM-MD5, PLAIN, APOP, USER/PASSの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。
 */
var request5 = WebRequest.Create(new Uri("pop://user@pop.example.net/")) as PopWebRequest;

request5.UseTlsIfAvailable = true;
request5.UsingSaslMechanisms = new[] {"CRAM-MD5", "PLAIN"};
request5.AllowInsecureLogin = false;
request5.Credentials = new NetworkCredential("user", "pass");

/*
 * GMailのアカウント"user"にPOPで接続。　パスワードは"pass"を使用。
 */
var request6 = WebRequest.Create(new Uri("pops://user@pop.gmail.com/"));

request6.Credentials = new NetworkCredential("user", "pass");

' popおよびpopsスキームの登録
PopWebRequestCreator.RegisterPrefix()

'
' ホスト"pop.example.net"のPOPSデフォルトポート(995)にSSL/TLSを用いて接続。
' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式は対応しているものを順に試行。
'
Dim request1 As WebRequest = WebRequest.Create(New Uri("pops://user@pop.example.net/"))

request1.Credentials = New NetworkCredential("user", "pass")

'
' ホスト"pop.example.net"のポート10110に接続、可能ならSSL/TLSにアップグレード。
' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はAPOPを試行。
'
Dim request2 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pop://user;AUTH=+APOP@pop.example.net:10110/")), PopWebRequest)

request2.UseTlsIfAvailable = True
request2.Credentials = New NetworkCredential("user", "pass")

'
' ホスト"pop.example.net"のポート10110にSSL/TLSを用いて接続。
' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5を試行。
'
Dim request3 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pops://user;AUTH=DIGEST-MD5@pop.example.net:10110/")), PopWebRequest)

request3.Credentials = New NetworkCredential("user", "pass")

'
' ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、SSL/TLSは使用しない。
' ユーザ名に"user"、パスワードに"pass"を使用。　認証方式はDIGEST-MD5, CRAM-MD5, APOP, USER/PASSの順に試行。
'
Dim request4 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pop://;AUTH=*@pop.example.net/")), PopWebRequest)

request4.UseTlsIfAvailable = False
request4.UsingSaslMechanisms = New String() {"DIGEST-MD5", "CRAM-MD5", "+APOP"}
request4.Credentials = New NetworkCredential("user", "pass")

'
' ホスト"pop.example.net"のPOPデフォルトポート(110)に接続、可能ならSSL/TLSを使用する。
' ユーザ名に"user"、パスワードに"pass"を使用。
' 認証方式はCRAM-MD5, PLAIN, APOP, USER/PASSの順に試行。　ただしSSL/TLSが使用できない場合、平文による認証を許可しない。
'
Dim request5 As PopWebRequest = DirectCast(WebRequest.Create(New Uri("pop://user@pop.example.net/")), PopWebRequest)

request5.UseTlsIfAvailable = True
request5.UsingSaslMechanisms = New String() {"CRAM-MD5", "PLAIN"}
request5.AllowInsecureLogin = False
request5.Credentials = New NetworkCredential("user", "pass")

'
' GMailのアカウント"user"にPOPで接続。　パスワードは"pass"を使用。
'
Dim request6 As WebRequest = WebRequest.Create(New Uri("pops://user@pop.gmail.com/"))

request6.Credentials = New NetworkCredential("user", "pass")

using System;
using System.Net;
using System.Net.Security;
using System.Security.Cryptography.X509Certificates;
using Smdn.Net.Pop3;
using Smdn.Net.Pop3.WebClients;

public class ValidateServerCerts {
  static void Main(string[] args)
  {
    PopWebRequestCreator.RegisterPrefix();

    // 証明書の検証を行うコールバックメソッドを指定
    PopSessionManager.ServerCertificateValidationCallback += ValidateRemoteCertificate;

    using (var client = new WebClient()) {
      client.Credentials = new NetworkCredential("user", "pass");
      client.DownloadFile("pops://user@localhost/;MSG=1", "sample.eml");
    }
  }

  private static bool ValidateRemoteCertificate(object sender,
                                                X509Certificate certificate,
                                                X509Chain chain,
                                                SslPolicyErrors sslPolicyErrors)
  {
#if DEBUG
    // デバッグ時のみSslPolicyErrors.RemoteCertificateNameMismatchを無視
    if ((int)(sslPolicyErrors & SslPolicyErrors.RemoteCertificateNameMismatch) != 0)
      sslPolicyErrors &= ~SslPolicyErrors.RemoteCertificateNameMismatch;
#endif

    if (sslPolicyErrors == SslPolicyErrors.None) {
      return true;
    }
    else {
      // エラーがあれば標準エラーに表示
      Console.Error.WriteLine(sslPolicyErrors);
      return false;
    }
  }
}

Imports System
Imports System.Net
Imports System.Net.Security
Imports System.Security.Cryptography.X509Certificates
Imports Smdn.Net.Pop3
Imports Smdn.Net.Pop3.WebClients

Public Class ValidateServerCerts
  Shared Sub Main(ByVal args As String())
    PopWebRequestCreator.RegisterPrefix()

    ' 証明書の検証を行うコールバックメソッドを指定
    PopSessionManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateRemoteCertificate)

    Using client As New WebClient
      client.Credentials = New NetworkCredential("user", "pass")
      client.DownloadFile("pops://user@localhost/;MSG=1", "sample.eml")
    End Using
  End Sub

  Private Shared Function ValidateRemoteCertificate(ByVal sender As Object, _
                                                    ByVal certificate As X509Certificate, _
                                                    ByVal chain As X509Chain, _
                                                    ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
#If DEBUG Then
    ' デバッグ時のみSslPolicyErrors.RemoteCertificateNameMismatchを無視
    if (CInt(sslPolicyErrors & SslPolicyErrors.RemoteCertificateNameMismatch) <> 0 then
      sslPolicyErrors = sslPolicyErrors And Not sslPolicyErrors.RemoteCertificateNameMismatch
    End If
#End If

    If sslPolicyErrors = sslPolicyErrors.None Then
      Return True
    Else
      ' エラーがあれば標準エラーに表示
      Console.Error.WriteLine(sslPolicyErrors)
      Return False
    End If
  End Function
End Class