Deutsches Lazarusforum

Ich habe unter Windows die DLL-Hell um OpenSSL satt und bin bei solchen einfachen Downloads dazu übergegangen, statt fphttpclient die Windows-internen Aufrufe zu verwenden:
uses
{$IFDEF MSWINDOWS}
windows, wininet,
{$ELSE}
{$IF FPC_FullVersion >= 30200}opensslsockets,{$IFEND}
fphttpclient ...

... aber nix.

War auch nur gedacht, das man weis, wie die richtigen Libs heissen, nicht als Code im Programm.


Habe auch schon im Internet nach OpenSSL.dll gesucht.
Habe aber nix gefunden.
Habe dafür die Software OpenSSL-Win64 downgeloadet und installiert.
Da sind folgende dll's drin: libcrypto-3 ...

Bei Indy gibt's auch was:
https://github.com/IndySockets/OpenSSL- ... penssl-3_x
Wie gesagt, ich bin nicht auf Windows.

... Dialogs, StdCtrls, Grids, ExtCtrls, Eingabe,
mvMapViewer, shellapi, System.UITypes, LCLIntf,
LCLType, MVTYPES, mvDrawingEngine, Math,
opensslsockets, fphttpclient, fpjson, jsonparser;

type

{ TForm1 }

TForm1 = class(TForm)
Memo1: TMemo;

private
function GetCoordinates(const ...

... auch nicht auf Win, aber früher gab es die Libs bei Synapse (Nur 32bit).
http://synapse.ararat.cz/files/crypt/
Vllt. diese?
http://synapse.ararat.cz/files/crypt/Openssl-0.9.8d-Win32.zip


Das mit JSON dekodieren hatte ich schon drinnen,

Das mit den Umlauten etc. hatte ich oben auch noch gemacht.

Die Libs die gesucht werden, stehen in openssl.pas vom FPC.
{$IF DEFINED(WIN64)}
SSL_DLL_Names: array[1..4] of string = ('libssl-3-x64', 'libssl-1_1-x64', 'ssleay32', 'libssl32');
Crypto_DLL_Names: array[1..4] of string = ('libcrypto-3-x64', 'libcrypto-1_1-x64', 'libeay32', 'libeay32');
{$ELSEIF ...

... ich habe es noch mal unter Windows 10 ausprobiert und bei mir hat es gelangt, den Inhalt des Archivs https://github.com/IndySockets/OpenSSL-Binaries/blob/master/openssl-3_x/openssl-3.3.2-win64.zip in dasselbe Verzeichnis zu legen wie den Server. Der startete danach ohne Probleme und lief unter ...

ups, sry überlesen.

Also mein Testuser hat das Win64 OpenSSL v3.6.0 Light installiert und neu gestartet, leider selbes verhalten. Auf meinem Windows 11 Testrechner hat es direkt ohne irgend etwas zu installieren funktioniert

... Thread nicht alles gelesen, kann sein das ist schon geklärt.

Um bei Synapse SSL überhaupt zu aktivieren müssen diese 2 Uses eingebunden sein:
ssl_openssl3, ssl_openssl3_lib
Es reicht wenn die nur eingebunden sind, man muss nichts extra aufrufen.

Die 2 DLL's müssen im gleichen Ordner wie die EXE ...

... inttostr(h.Sock.LastError) + ' ; ' + h.Sock.LastErrorDesc);
memo1.Append('HTTP.Sock.SSL.LastError: ' + inttostr(h.Sock.SSL.LastError) + ' ; ' + h.Sock.SSL.LastErrorDesc);
End;
h.free;
End;

Hat eine Verbesserung gebracht und gezeigt dass ich vergessen hatte die Unit ssl_Openssl ein zu binden ;)

... nun in Deinem Server:


...
Application.UseSSL := true;
Application.CertificateData.Certificate.FileName := 'server.crt';
Application.CertificateData.PrivateKey.FileName := 'server.key';
Writeln('Starte Webserver...');
...


Einmal kompilieren und starten. Was sagt danach 'openssl s_client' ?

Das Zertifikat erstellt man doch so ?

openssl req -x509 -newkey rsa:2048 -nodes \
-keyout server.key \
-out server.crt \
-days 365

... Metacity (Marco)
Theme: Mint-X-Blue [GTK2/3]
Terminal: mate-terminal

und der andere Befehl hat das hier zur Ausgabe:

corpsman@corpsman:~$ openssl s_client -connect localhost:8443
CONNECTED(00000003)
write:errno=104
---
no peer certificate available
---
No client certificate CA names sent ...

... ergründen, benötigen wir ein paar mehr Informationen. Kannst Du etwas genauer sagen, mit was für einer Linux-Variante / Distribution wir es bei Dir zu tun haben?

Was Du auch noch mal machen kannst, ist folgendes:


# openssl s_client -connect localhost:8443


Was bekommen wir da für eine Ausgabe?

... to localhost (127.0.0.1) port 8443
* ALPN: curl offers h2,http/1.1
} [5 bytes data]
* TLSv1.3 (OUT), TLS handshake, Client hello (1):
} [512 bytes data]
* Recv failure: Connection reset by peer
* OpenSSL SSL_connect: Connection reset by peer in connection to localhost:8443
* Closing connection