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} {:See @inherited}
function GetPeerName: string; override; function GetPeerName: string; override;
{:See @inherited} {:See @inherited}
function GetPeerFingerprint: string; override; function GetPeerFingerprint: ansistring; override;
{:See @inherited} {:See @inherited}
function GetVerifyCert: integer; override; function GetVerifyCert: integer; override;
published published
@ -576,7 +576,7 @@ begin
cryptDestroyCert(cert); cryptDestroyCert(cert);
end; end;
function TSSLCryptLib.GetPeerFingerprint: string; function TSSLCryptLib.GetPeerFingerprint: ansistring;
var var
cert: CRYPT_CERTIFICATE; cert: CRYPT_CERTIFICATE;
begin begin

4
ssl_sbb.pas
View File

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

4
ssl_streamsec.pas
View File

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