Use TSimpleWebSrv for localhost with certificate

[Fredrik Larsson 0]

I have an OAuth2 where the callback needs to make a callback to https://localhost:44300 with a signed certificate.

Optimal I would use RestOAuth but that doesn't support SSL callbacks so I need to tweak that a bit and use my own server for the SSL part.

 

But I can't really figure out how to use TSimpleWebSrv fully in SSL mode. I get that I can listen to WebSrvPortSSL and that works but then what certificate to use?

It's these properties I get: 

 

SimpleWebSrv1.WebSrvCertPassword := 'password';
SimpleWebSrv1.WebSrvCertBundle := 'whattouse.pem';

 

Is there a simple way to create a self signed localhost certificate?

How would I use it?

I can't really figure it out from demos either.

 

Any input is appreciated.

 

Regards, Fredrik

 

[Angus Robertson 574]

Look at StartDomSrv in OverbyteIcsSslX509Certs.pas which sets up the simple web server with a newly generated localhost certificate, and CreateAcmeAlpnCert which will create a normal non-ALPN certificate if you leave KeyAuth blank, but that does not matter for your purposes.  

 

Which OAuth2 system requires HTTPS for the callback?  Seems over the top since only your local browser displays the result.  We should probably handle that in the REST component properly.

 

Angus

 

 

 

[Fredrik Larsson 0]

Cool! I will look into that code and try it. Seems to make sense and fairly straight forward.

 

It's Visma which is a Swedish/Nordic accounting solution provider. I agree it's a bit over the top and I don't know why they have that requirement. Perhaps they are mostly considering online web applications.

 

For anyone else who needs it, this seems to work:

    SimpleWebSrv1.WebSrvCertPassword := '';
    SimpleWebSrv1.WebSrvCertBundle := '';

    lAppDir := ExtractFileDir(ParamStr(0));
    Log('Appdir=' + lAppDir);
    lCert := IncludeTrailingPathDelimiter(lAppDir) + 'cert-localhost.pem';

    if NOT FileExists(lCert) then
    begin
      if NOT SslX509Certs1.CreateAcmeAlpnCert(lCert, 'localhost', '') then
      begin

        Log('Failed to Create LocalHost Certificate: ' + lCert);
        Exit;
      end;

    end;

    SimpleWebSrv1.WebSrvCertBundle := lCert;

    if not SimpleWebSrv1.StartSrv then
      Log('Server not started)')
    else
      Log('Server started');

 

Edited April 4, 2020 by Fredrik Larsson

[Angus Robertson 574]

Using a self signed certificate for localhost is not going to be a very friendly OAuth2 user experience, since the browser will display certificate warnings, and not everyone can work out which buttons to click to display the real page. 

 

Does Visma have suggestions for that?  To me sounds like someone thought SSL would sound good without actually testing it.

 

Angus

 

[Fredrik Larsson 0]

Hi,

 

When I signed up it said:

 

Redirect URI: https://localhost:44300/callback

The redirect URI given above is only a temporary placeholder. Please contact us to register a redirect URI that is appropriate for your solution. Please keep in mind that we only support HTTPS protocol when you set up a redirect URI.

 

But I will write them an e-mail about desktop solutions.

 

Regards, Fredrik.