Event "Verifizierung von SSL Zertifikat"

Der Event "Verifizierung von SSL Zertifikat" wird während des Algorithmus für Verifizierung eines SSL Zertifikat durchgeführt.
Es dient zum überschreiben die automatische Verifizierung-Logik von SSL durch Eigenschaft oCertificate.CbAccepted.

Parameter	Typ	Beschreibung
oCertificate	TbeCBCertificateInfo	Informationen von Zertifikat

Rückgabewert

keine

Beispiel

| nEvtNo:P1, oCertificate:P2,
  cMsg |
//################################################################################
// Event wird bei Versand / Empfang von Email mit IMAP Sever mit TLS Authentifizierung
//   für SSL-Verifizierung durchgeführt.
//
// oCertificate - Aktuell verifiziertes Zertifikat. Objekt der Klasse TbeCBCertificateInfo
// Rückgabe: keine, als Rückgabe dient Eigenschaft oCertificate.Accepted
//################################################################################


cMsg := 'Class of CbHttp: ' + ClassName(oCertificate.CbSender) + CrLf +
        'Depth: ' + Str(oCertificate.CbDepth) + CrLf +
        'Version: ' + Str(oCertificate.CbVersion) + CrLf +
        'SerialNumber: ' + oCertificate.CbSerialNumber + CrLf +
        'SignatureAlgorithmAsNID: ' + Str(oCertificate.CbSignatureAlgorithmAsNID) + CrLf +
        'SignatureAlgorithmAsString: ' + oCertificate.CbSignatureAlgorithmAsString + CrLf +
        'IssuerString: ' + oCertificate.CbIssuerString + CrLf +
        'ValidFromInGMT: ' + DToS(oCertificate.CbValidFromInGMT) + CrLf +
        'ValidToInGMT: ' + DToS(oCertificate.CbValidToInGMT) + CrLf +
        'SubjectString: ' + oCertificate.CbSubjectString + CrLf +
        'ThumbprintAsMD5: ' + oCertificate.CbThumbprintAsMD5 + CrLf +
        'ThumbprintAsSHA1: ' + oCertificate.CbThumbprintAsSHA1 + CrLf +
        'ThumbprintAsSHA256: ' + oCertificate.CbThumbprintAsSHA256 + CrLf +
        'Von SSL Accepted: ' + iif(oCertificate.CbAccepted, 'true', 'false') + CrLf +
        'Error: ' + Str(oCertificate.CbErrorValue) + CrLf +
        'ErrorString: ' + oCertificate.CbErrorString,


Meld(cMsg),

oCertificate.CbSaveToFile('C:\temp\cert\' + oCertificate.CbThumbprintAsMD5 + '.pem'),
//oCertificate.CbAccepted := true,

Weitere Verknüpfungen

TBeCbHTTP