using System;
using System.IO;
using System.Net;
using System.Net.Security;
using System.Net.Sockets;
using System.Security.Cryptography.X509Certificates;
using System.Text;

class Sample {
  const string host = "pop.gmail.com"; // 接続先IMAPサーバーのホスト名
  const int port = 995; // 接続先のポート番号
  const string user = "user"; // ログインユーザー名
  const string pass = "pass"; // ログインパスワード
  const int mailNumber = 1; // 取得するメールの番号(1から始まるメールボックス内での通番)
  const bool deleteAfterRetrieve = false; // 取得後にメールを削除するか否か
  const string mailFilePath = "mail.eml"; // 取得したメールを保存するファイルのパス

  static void Main()
  {
    // POPサーバーに接続
    using (var client = new PopClient(host, port)) {
      // 接続をSSLにアップグレード
      client.UpgradeToSsl();

      /*
       * initial greetingを受信
       */
      var response = client.Receive(false);

      if (!response.StartsWith("+OK"))
        // レスポンスがOK以外の場合は例外をスローする
        throw new ApplicationException("unexpected or error response (greeting banner)");

      /*
       * USERコマンド・PASSコマンドを送信してログイン
       */
      client.Send(string.Format("USER {0}\r\n", user));

      response = client.Receive(false);

      if (!response.StartsWith("+OK"))
        // コマンドのレスポンスがOK以外の場合は例外をスローする
        throw new ApplicationException("unexpected or error response (USER)");

      client.Send(string.Format("PASS {0}\r\n", pass));

      response = client.Receive(false);

      if (!response.StartsWith("+OK"))
        throw new ApplicationException("unexpected or error response (PASS)");

      /*
       * RETRコマンドを送信してメール本文を取得する
       */
      client.Send(string.Format("RETR {0}\r\n", mailNumber));

      response = client.Receive(true);

      if (!response.StartsWith("+OK"))
        throw new ApplicationException("unexpected or error response (RETR)");

      /*
       * 受信したRETRレスポンスからメール本文を抽出する
       */
      var indexOfBodyStart = response.IndexOf("\r\n") + 2;
      var body = response.Substring(indexOfBodyStart, response.Length - indexOfBodyStart - 2).Replace("\r\n.", "\r\n");

      // 抽出したメール本文をファイルに保存する
      File.WriteAllText(mailFilePath, body, Encoding.ASCII);

      // 本文取得後にメールを削除する場合
      if (deleteAfterRetrieve) {
        /*
         * DELEコマンドを送信して削除予定にする
         */
        client.Send(string.Format("DELE {0}\r\n", mailNumber));

        response = client.Receive(false);

        if (!response.StartsWith("+OK"))
          throw new ApplicationException("unexpected or error response (DELE)");
      }

      /*
       * QUITコマンドを送信してログアウトする
       */
      client.Send("QUIT\r\n");

      client.Receive(false); // レスポンスの検証は省略
    }
  }
}

/// <summary>TcpClientを継承してSSL接続とPOPコマンドの送受信に最適化したクライアント。</summary>
class PopClient : TcpClient {
  private Stream stream;
  private string host;
  private byte[] receiveBuffer = new byte[1024];

  public PopClient(string host, int port)
    : base(host, port)
  {
    this.host = host;
    this.stream = GetStream();
  }

  /// <summary>現在の接続をSSLにアップグレードする。</summary>
  public void UpgradeToSsl()
  {
    var sslStream = new SslStream(stream, false, ValidateRemoteCertificate);

    sslStream.AuthenticateAsClient(host);

    stream = sslStream;
  }

  /// <summary>サーバー証明書の検証を行う。</summary>
  private static bool ValidateRemoteCertificate(object sender,
                                                X509Certificate certificate,
                                                X509Chain chain,
                                                SslPolicyErrors sslPolicyErrors)
  {
    // 証明書の検証を省略したい場合は、常にtrueを返す
    //return true;

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

  /// <summary>POPコマンドを送信する。</summary>
  public void Send(string command)
  {
    var commandBytes = Encoding.ASCII.GetBytes(command);

    stream.Write(commandBytes, 0, commandBytes.Length);

    // 送信した内容をコンソールに表示
    Console.Write("C:\t{0}", command);
  }

  /// <summary>POPレスポンスを受信する。</summary>
  public string Receive(bool expectMultiline)
  {
    var sb = new StringBuilder();

    for (;;) {
      var len = stream.Read(receiveBuffer, 0, receiveBuffer.Length);

      sb.Append(Encoding.ASCII.GetString(receiveBuffer, 0, len));

      // 読み取り可能なデータがある場合はさらに受信を続ける
      if (0 < Available)
        continue;

      if (expectMultiline) {
        // レスポンスが複数行の場合は、CRLF.CRLFで終端されるまで受信した時点で受信を終了する
        if (5 <= sb.Length && sb.ToString(sb.Length - 5, 5) == "\r\n.\r\n")
          break;
      }
      else {
        // レスポンスが一行の場合は、CRLFで終端されるまで受信した時点で受信を終了する
        if (2 <= sb.Length && sb[sb.Length - 2] == '\r' && sb[sb.Length - 1] == '\n')
          break;
      }
    }

    var response = sb.ToString();

    // 受信した内容を整形してコンソールに表示
    Console.Write("S:\t{0}", sb.Replace("\r\n", "\r\n\t").ToString(0, sb.Length - 1));

    return response;
  }
}

Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Security
Imports System.Net.Sockets
Imports System.Security.Cryptography.X509Certificates
Imports System.Text

Class Sample
  Const host As String = "pop.gmail.com" ' 接続先IMAPサーバーのホスト名
  Const port As Integer = 995 ' 接続先のポート番号
  Const user As String = "user" ' ログインユーザー名
  Const pass As String = "pass" ' ログインパスワード
  Const mailNumber As Integer = 1 ' 取得するメールの番号(1から始まるメールボックス内での通番)
  Const deleteAfterRetrieve As Boolean = False ' 取得後にメールを削除するか否か
  Const mailFilePath As String = "mail.eml" ' 取得したメールを保存するファイルのパス

  Shared Sub Main()
    ' POPサーバーに接続
    Using client As New PopClient(host, port)
      ' 接続をSSLにアップグレード
      client.UpgradeToSsl()

      '
      ' initial greetingを受信
      '
      Dim response As String = client.Receive(False)

      If Not response.StartsWith("+OK") Then
        ' レスポンスがOK以外の場合は例外をスローする
        Throw New ApplicationException("unexpected or error response (greeting banner)")
      End If

      '
      ' USERコマンド・PASSコマンドを送信してログイン
      '
      client.Send("USER " + user + vbCrLf)

      response = client.Receive(False)

      If Not response.StartsWith("+OK") Then
        ' コマンドのレスポンスがOK以外の場合は例外をスローする
        Throw New ApplicationException("unexpected or error response (USER)")
      End If

      client.Send("PASS " + pass + vbCrLf)

      response = client.Receive(False)

      If Not response.StartsWith("+OK") Then
        Throw New ApplicationException("unexpected or error response (PASS)")
      End If

      '
      ' RETRコマンドを送信してメール本文を取得する
      '
      client.Send("RETR " + mailNumber.ToString() + vbCrLf)

      response = client.Receive(True)

      If Not response.StartsWith("+OK") Then
        Throw New ApplicationException("unexpected or error response (RETR)")
      End If

      '
      ' 受信したRETRレスポンスからメール本文を抽出する
      '
      Dim indexOfBodyStart As Integer = response.IndexOf(vbCrLf) + 2
      Dim body As String = response.Substring(indexOfBodyStart, response.Length - indexOfBodyStart - 2).Replace(vbCrLf + ".", vbCrLf)

      ' 抽出したメール本文をファイルに保存する
      File.WriteAllText(mailFilePath, body, Encoding.ASCII)

      ' 本文取得後にメールを削除する場合
      If deleteAfterRetrieve Then
        '
        ' DELEコマンドを送信して削除予定にする
        '
        client.Send("DELE " + mailNumber.ToString() + vbCrLf)

        response = client.Receive(False)

        If Not response.StartsWith("+OK") Then
          Throw New ApplicationException("unexpected or error response (DELE)")
        End If
      End If

      '
      ' QUITコマンドを送信してログアウトする
      '
      client.Send("QUIT" + vbCrLf)

      client.Receive(False) ' レスポンスの検証は省略
    End Using
  End Sub
End Class

''' <summary>TcpClientを継承してSSL接続とPOPコマンドの送受信に最適化したクライアント。</summary>
Class PopClient
  Inherits TcpClient

  Private stream As Stream
  Private host As String
  Private receiveBuffer(1023) As Byte

  Public Sub New(ByVal host As String, ByVal port As Integer)
    MyBase.New(host, port)

    Me.host = host
    Me.stream = GetStream()
  End Sub

  ''' <summary>現在の接続をSSLにアップグレードする。</summary>
  Public Sub UpgradeToSsl()
    Dim sslStream As New SslStream(stream, False, AddressOf ValidateRemoteCertificate)

    sslStream.AuthenticateAsClient(host)

    stream = sslStream
  End Sub

  ''' <summary>サーバー証明書の検証を行う。</summary>
  Private Shared Function ValidateRemoteCertificate(ByVal sender As Object, _
                                                    ByVal certificate As X509Certificate, _
                                                    ByVal chain As X509Chain, _
                                                    ByVal sslPolicyErrors As SslPolicyErrors) As Boolean
    ' 証明書の検証を省略したい場合は、常にTrueを返す
    'Return True

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

  ''' <summary>POPコマンドを送信する。</summary>
  Public Sub Send(ByVal command As String)
    Dim commandBytes() As Byte = Encoding.ASCII.GetBytes(command)

    stream.Write(commandBytes, 0, commandBytes.Length)

    ' 送信した内容をコンソールに表示
    Console.Write("C:" + vbTab + command)
  End Sub

  ''' <summary>POPレスポンスを受信する。</summary>
  Public Function Receive(ByVal expectMultiline As Boolean) As String
    Dim sb As New StringBuilder()

    Do
      Dim len As Integer = stream.Read(receiveBuffer, 0, receiveBuffer.Length)

      sb.Append(Encoding.ASCII.GetString(receiveBuffer, 0, len))

      ' 読み取り可能なデータがある場合はさらに受信を続ける
      If (0 < Available) Then Continue Do

      If expectMultiline Then
        ' レスポンスが複数行の場合は、CRLF.CRLFで終端されるまで受信した時点で受信を終了する
        If 5 <= sb.Length AndAlso sb.ToString(sb.Length - 5, 5) = vbCrLf + "." + vbCrLf Then Exit Do
      Else
        ' レスポンスが一行の場合は、CRLFで終端されるまで受信した時点で受信を終了する
        If 2 <= sb.Length AndAlso sb.ToString(sb.Length - 2, 2) = vbCrLf Then Exit Do
      End If
    Loop

    Dim response As String = sb.ToString()

    ' 受信した内容を整形してコンソールに表示
    Console.Write("S:" + vbTab + sb.Replace(vbCrLf, vbCrLf + vbTab).ToString(0, sb.Length - 1))

    Return response
  End Function
End Class