Event "Verifizierung von SSL Zertifikat"
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
CODE
| 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,