pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

fixed string result of GetPeerFingerprint (other SSL plugins)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@263 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2022-05-15 13:10:07 +00:00
parent 979665441a
commit 3e7ff1c043
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ssl_cryptlib.pas
View File

@ -146,7 +146,7 @@ type
{:See @inherited}
function GetPeerName: string; override;
{:See @inherited}
function GetPeerFingerprint: string; override;
function GetPeerFingerprint: ansistring; override;
{:See @inherited}
function GetVerifyCert: integer; override;
published
@ -576,7 +576,7 @@ begin
cryptDestroyCert(cert);
end;
function TSSLCryptLib.GetPeerFingerprint: string;
function TSSLCryptLib.GetPeerFingerprint: ansistring;
var
cert: CRYPT_CERTIFICATE;
begin

4
ssl_sbb.pas
View File

@ -131,7 +131,7 @@ type
{:See @inherited}
function GetPeerName: string; override;
{:See @inherited}
function GetPeerFingerprint: string; override;
function GetPeerFingerprint: ansistring; override;
{:See @inherited}
function GetCertInfo: string; override;
published
@ -325,7 +325,7 @@ begin
Result := FElSecureClient.CipherSuite;
end;
function TSSLSBB.GetPeerFingerprint: string;
function TSSLSBB.GetPeerFingerprint: ansistring;
begin
Result := '';
// if FServer then

4
ssl_streamsec.pas
View File

@ -137,7 +137,7 @@ type
{:See @inherited}
function GetPeerName: string; override;
{:See @inherited}
function GetPeerFingerprint: string; override;
function GetPeerFingerprint: ansistring; override;
{:See @inherited}
function GetCertInfo: string; override;
published
@ -470,7 +470,7 @@ begin
end;
end;
function TSSLStreamSec.GetPeerFingerprint: string;
function TSSLStreamSec.GetPeerFingerprint: ansistring;
var
Cert: PASN1Struct;
begin