Indy http.post with certificate: Could not load key

[José Antonio 0]

Good morning, in Delphi 10.3, when trying to make an https.post request with a certificate, I get the error: 

EIdOSSLLoadingKeyError with message: 'could not load key, check password. error: 0B080074:x509 certificate routines:X509_check_private_key:key values mismatch'.

Thanks for the help.

[DelphiUdIT 182]

I never use password with private key, but i think that you should use the OnGetPassword event of the IOSSLHandler that you use.

Assign the correct value to "Password" parameter of the event.

 

Bye

 

 

[José Antonio 0]

If I don't send the private key, I get the error 'HTTP/1.1 421 Misdirected Request'. My code:

 

  data := TIdMultiPartFormDataStream.Create;
   http := TIdHTTP.Create;
   IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
   try
     IdSSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
     IdSSLIOHandler.SSLOptions.Mode := sslmClient;
     IdSSLIOHandler.SSLOptions.Method := sslvSSLv23;
     IdSSLIOHandler.SSLOptions.CertFile := 'certificate.pem';
     //IdSSLIOHandler.SSLOptions.KeyFile := 'privatekey.pem';

     IdSSLIOHandler.OnStatusInfoEx := IdSSLIOHandlerSocketOpenSSL1StatusInfoEx;
     IdSSLIoHandler.OnGetPassword := getPassword;
     http.IOHandler := IdSSLIOHandler;

 

     http.ReadTimeout := READ_TIMEOUT;
     http.Request.ContentEncoding := 'utf-8';
     http.Request.ContentType := 'application/xml';
     http.Request.CharSet := 'utf-8';

     data.AddFile('UploadedXml', fileXml, '');
     try
       queAnswer := http.Post('https://xxxxxxxxxxxxxxxxx', data);

     except
       on e:Exception do begin
         ShowMessage(e.Message);
       end;
     end;

   finally
     http.Disconnect;
     http.Free;
     data.Free;
     IdSSLIOHandler.Free;
   end;

Edited November 27, 2023 by José Antonio

[DelphiUdIT 182]

Use a certificate with Http client is normally not needed, but If you must use it (like in authentication purpose) then you must use also use private key.

(uncommented //IdSSLIOHandler.SSLOptions.KeyFile := 'privatekey.pem'; ) and in the GetPassword event write:

procedure xxx.GetPassword(var Password: string);
begin
  Password = YourPasswordForPrivateKey;
end;

The private key and the password of course will NOT be sent to server.

Remember that the password should not hard coded in the executable, but should be ask to operator and used like a cache (expire with time or after N. use).

Bye

 

[José Antonio 0]

The private key does not have a password. If I try to send again with the KeyFile uncommented it still gives me the same error.

OnGetPassword event is never executed.

 

My code:

 

  data := TIdMultiPartFormDataStream.Create;
   http := TIdHTTP.Create;
   IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;
   try
     IdSSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
     IdSSLIOHandler.SSLOptions.Mode := sslmClient;
     IdSSLIOHandler.SSLOptions.Method := sslvSSLv23;
     IdSSLIOHandler.SSLOptions.CertFile := 'certificate.pem';
     IdSSLIOHandler.SSLOptions.KeyFile := 'privatekey.pem';

     IdSSLIOHandler.OnStatusInfoEx := IdSSLIOHandlerSocketOpenSSL1StatusInfoEx;
     IdSSLIoHandler.OnGetPassword := getPassword;
     http.IOHandler := IdSSLIOHandler;

 

     http.ReadTimeout := READ_TIMEOUT;
     http.Request.ContentEncoding := 'utf-8';
     http.Request.ContentType := 'application/xml';
     http.Request.CharSet := 'utf-8';

     data.AddFile('UploadedXml', fileXml, '');
     try
       queAnswer := http.Post('https://xxxxxxxxxxxxxxxxx', data);

     except
       on e:Exception do begin
         ShowMessage(e.Message);
       end;
     end;

   finally
     http.Disconnect;
     http.Free;
     data.Free;
     IdSSLIOHandler.Free;
   end;

 

The event:

procedure TTicketBai.getPassword(var Password: string);
begin
  Password := 'thepassword';
end;

 

[DelphiUdIT 182]

29 minutes ago, José Antonio said:

The private key does not have a password. If I try to send again with the KeyFile uncommented it still gives me the same error.

OnGetPassword event is never executed.

If the KeyFile not has any password, then event will not be trigger, but if you use a certificate you must use also the keyfile.

The error you'll refer here is the original (EIdOSSLLoadingKeyError with message: 'could not load key, check password. error: 0B080074:x509 certificate routines:X509_check_private_key:key values mismatch') ?

 

May be the KeyFile and and Certificate don't match ....

 

Also, suggestion for usage: don't use "Method" and "SSLVersions" of SSLIOHandler together, they override each others. Use only "SSLVersions".

[José Antonio 0]

I have created the files again from the .pfx and now I get the error: 'HTTP/1.1 421 Misdirected Request'

Any suggestions?
Thank you

[DelphiUdIT 182]

1 hour ago, José Antonio said:

I have created the files again from the .pfx and now I get the error: 'HTTP/1.1 421 Misdirected Request'

Any suggestions?
Thank you

For this I have no suggestions .... seems that something about server configuration (SAN reference of certificate wrong or with *) but i have not experience with this.

You can try this: https://www.ssllabs.com/ssltest/ to verify the site (they expose the anomalies).

 

Bye

Edited November 27, 2023 by DelphiUdIT