[fpc-pascal] FPHTTPClient OpenSSL implementation

[Michael Van Canneyt]

On Mon, 28 Aug 2017, Pavol Stugel wrote:

> Hi,
>
> For years I'm working with synapse (Ararat) with OpenSSL and there  is 
> same openssl.pas lib. So problem is with:
>
> in InitSSLInterface:
>
>     if assigned(_RandScreen) then
>       _RandScreen;
>
> and method:
>
> procedure RandScreen;
> begin
>
> if InitSSLInterface and Assigned(_RandScreen) then
>     _RandScreen;
>
> end;
>
> This take "desktop screenshot" and generate some hash. BUT taking this 
> is 2 seconds long (I can load whole SW and prepare all data for our 
> system for less than 1 sec. or render 240 frames of nice graphics ...). 
> Problem is only on Windows (all versions). And some software warn about 
> "screen taking action software". So is there any requirements to have 
> this in opnessl in FPC? Problem is heavy visible on large screens (1440p 
> plus...).

I suppose this is not necessary; it is probably meant to generate some
randomness. There are 2 options:
1. Remove the call completely;
2. Add a parameter to InitSSLInterface to disable the call, using some
default value.

In view of backwards compatibility, the second is probably preferable.

Michael.