TCPServer/TCPClient SSL Verifizieren

[Klaus01]

vom Format sind die Client- und ServerZertifikate gleich.
Erstellen kannst Du sie mit openssl.

Delphi-Quellcode:

   cmdParameter := format('req -newkey rsa:2048 -new -nodes -x509 -days 3650 -keyout %s -out %s '+
                             '-subj "/C=DE/L=%s/O=%s/CN=%s" '+
                             '-config "%s"',[certFolder+keyFileName, certFolder+certFileName,
                                             '.', '.',
                                             '.'),
                                             openSslConfFile]);
    end;
  errorCode := shellExecute(0, 'open', pChar(openSslFolder+'openSSL.exe'), pchar(cmdParameter), nil, SW_Hide);

Grüße
Klaus