SSL mit TidPOP3

[OlloSoft]

Hi Dani,

Delphi-Quellcode:

// Properties der TIdPOP3 Komponente
IOHandler = IdSSLIOHandlerSocketOpenSSL
Port      = 995
UseTLS    = utUseImplicitTLS

// Properties der TIdSSLIOHandlerSocketOpenSSL Komponente
Port                   = 995
DefaultPort            = 0
SSLOptions.Method      = sslvSSLv3
SSLOptions.Mode        = sslmServer  // <- stelle ich dies auf sslmUnassigned funktioniert
                                     //    der ServerConnect, allerdings ohne TLS Handshake(?!?)
SSLOptions.VerifyMode  = []
SSLOptions.VerifyDepth = 0


// Sind die Einstellungen für einen TLS Handshake OK?
// Was müsste ich ändern?




// OnVerifyPeer Event
function TForm4.IdSSLIOHandlerSocketOpenSSLVerifyPeer(Certificate: TIdX509; AOk: Boolean): Boolean;
begin
  asm int 3 end;   // <- Dieser Haltepunkt wird nie erreicht. 
                   //    Die Exception "Error connecting with SSL" wird vorher schon ausgelöst.
  AOK    := True;
  Result := True;
end;