Indy: POP und SSL - wie?

[Assertor]

Hi,

also ich habe das gerade mal getestet: Es klappt bei mir mit gmail auch nicht. Mit z.B. 1&1 mit und ohne SSL keine Probleme... Wenn ich das Timeout im SSL IOHandler setzte (z.B. 2500), dann kommt auch irgendwann ein Timeout mit gmail.

Irgendwas stimmt da nicht, ich schau mir das mal genauer an. Danach poste ich wieder hier.

Gruß Assertor

[Assertor]

Hi,

so - da hast Du mich ja gerade ganz verrückt gemacht. Dachte schon, es sei ein Bug drin

Lösung mit einem TIdPOP3 und einem TIdSSLIOHandlerSockenOpenSSL (als IOHandler für TIdPOP3):

Delphi-Quellcode:

IdPOP31.Host := 'pop.gmail.com';
IdPOP31.Port := 995; // Port für Secure POP3
IdPOP31.UseTLS := utUseImplicitTLS; // wichtig, gmail akzeptiert nichts anderes!
IdPOP31.Username := '[e-mail]';
IdPOP31.Password := 'passwort';
IdPOP31.Connect;

Alles andere auf Default lassen.

Ergebnis (per StatusInfo ausgelesen):

Zitat:

Resolving hostname pop.gmail.com.
Connecting to 74.125.79.111.
SSL status: "before/connect initialization"
SSL status: "before/connect initialization"
SSL status: "SSLv3 write client hello A"
SSL status: "SSLv3 read server hello A"
SSL status: "SSLv3 read server certificate A"
SSL status: "SSLv3 read server done A"
SSL status: "SSLv3 write client key exchange A"
SSL status: "SSLv3 write change cipher spec A"
SSL status: "SSLv3 write finished A"
SSL status: "SSLv3 flush data"
SSL status: "SSLv3 read server session ticket A"
SSL status: "SSLv3 read finished A"
SSL status: "SSL negotiation finished successfully"
SSL status: "SSL negotiation finished successfully"
Cipher: name = RC4-MD5; description = RC4-MD5 SSLv3 Kx=RSA Au=RSA Enc=RC4(128) Mac=MD5
; bits = 128; version = TLSv1/SSLv3;
Connected.
Anzahl E-Mails:0
Disconnecting.
SSL status: "SSL negotiation finished successfully"
Disconnected.

Fürs das Checken hab ich noch eine TIdMessage Komponente auf die Form gezogen und diesen Code verwendet:

Delphi-Quellcode:

var
  i, MsgAnz: Integer;
begin
  IdPOP31.Host := 'pop.gmail.com';
  IdPOP31.Port := 995; // Port für Secure POP3
  IdPOP31.UseTLS := utUseImplicitTLS; // wichtig, gmail akzeptiert nichts anderes!
  IdPOP31.Username := '[e-mail]';
  IdPOP31.Password := 'passwort';
  IdPOP31.Connect;
  // mails checken
  MsgAnz := IdPOP31.CheckMessages;
  Memo1.Lines.Add('Anzahl E-Mails:' + IntToStr(MsgAnz));
  for i:= 1 to MsgAnz do
  begin
    idpop31.RetrieveHeader(i, IdMessage1);
    Memo1.Lines.Add('E-Mail Nr:' + IntToStr(i)+ sLineBreak +
      ' Von:' + IdMessage1.From.Text + sLineBreak +
      ' Betreff:' + IdMessage1.Subject);
    IdMessage1.Clear;
  end;
  IdPOP31.Disconnect;
end;

Natürlich muß POP3 in den GMail-Einstellungen per Webinterface explizit eingeschaltet werden. Dann geht das mit den aktuellen Indys und OpenSSL aber einwandfrei. Ich hoffe, es hilft Dir etwas weiter!

Gruß Assertor

[ManuMF]

Jupp, funktioniert einwandfrei!
Vielen Dank!

Tja, kleines Wörtchen, großer Effekt (Implicit statt Explicit)

[Assertor]

Hi ManuMF,

Zitat von ManuMF:

Jupp, funktioniert einwandfrei!
Vielen Dank!

Tja, kleines Wörtchen, großer Effekt (Implicit statt Explicit)

Das freut mich zu hören, gerne! Ja, die Option hatte ich auch erst wieder übersehen



Gruß Assertor

[BBoy]

Ich nutze Delphi 2007, welche .dll brauche ich denn dafür? und woher bekomme ich die?
Denn bei mir kommt immer der fehler "EIdOSSLCouldNotLoadSSLLibrary". Die 2 dlls habe ich in den ordner kopiert indem das programm ist wo ich programmiere. ich denke es sind die falschen dll, oder?

[Assertor]

Hallo BBoy,

Zitat von BBoy:

Ich nutze Delphi 2007, welche .dll brauche ich denn dafür? und woher bekomme ich die?
Denn bei mir kommt immer der fehler "EIdOSSLCouldNotLoadSSLLibrary". Die 2 dlls habe ich in den ordner kopiert indem das programm ist wo ich programmiere. ich denke es sind die falschen dll, oder?

Richtig, die DLLs sind falsch bzw. Deine Indy Installation ist veraltet.

Wenn Du in diesem Forum in den Bereich Übersicht > "VCL / WinForms / Controls" gehst, findest Du einen Thread der sticky gemacht ist mit dem Titel "Indy OpenSSL Sicherheitsupdates". Dort gehst Du ganz zum Ende und findest den Link zu den aktuellen DLLs.

Ich rate, wie immer, davon ab andere DLLs zu verwenden: Unsere sind geprüft und gegen msvcrt.dll gelinkt, die etlichen im Internet gerne gegen das msvcrt 8+ (benötigen also sonst je nach Betriebssystem eigene Runtime DLLs).

Die DLLs funktionieren nur mit aktuellen Indy Versionen, weil sich etwas in OpenSSL geändert hat. Im Forum findest Du sicherlich nach kurzer Suche auch dazu Tipps. Indy liegt ebenfalls auf dem Fulgan Mirror (ein Verzeichnis hoch, ZIP, IndyTiburon.zip). Du könntest theoretisch ältere DLLs einsetzen, damit Du Indy nicht aktualisieren mußt (~ bis OpenSSL 0.9.8e) - aber davon rate ich wegen bekannter Sicherheitslücken ab.

Gruß Assertor

[BBoy]

Ich habe Indy Direct 10.1.5, und mir alle dll mal runtergeladen und probiert, aber keine davon funktioniert. Da ich einfach nur meine mails abragen will, würde ich gerne auf indy updates usw verzichten. Gibt es keine dll für meine version die ich einfach nutzen kann?

[Assertor]

Zitat von BBoy:

Ich habe Indy Direct 10.1.5, und mir alle dll mal runtergeladen und probiert, aber keine davon funktioniert. Da ich einfach nur meine mails abragen will, würde ich gerne auf indy updates usw verzichten. Gibt es keine dll für meine version die ich einfach nutzen kann?

Die aktuellen OpenSSL DLLs (0.9.8e bis 0.9.8k) benötigen - abgesehen von meinen früheren Backports - Indy 10.2.3 und neuer (z.B. in Delphi 2009).

Du kannst auf dem Fulgan Mirror in das Verzeichnis Archiv gehen - diese Dateien laufen auch mit den alten Indy Versionen. Aber: Ich empfehle dringen, dies nur zu machen, wenn man genau weiß, was man macht. Dies eröffnet u.U. ausnutzbare Sicherheitslücken für den Entwickler und eventuelle Kunden bzw. Nutzer. Also an alle anderen: Nicht nachmachen!

Gruß Assertor

[BBoy]

ok, danke das funktioniert jetzt.