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.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
