pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

SSL.GetPeerFingerprint - bugfix - result must be ansistring for compatibility with Unicode Delphi. (Result is binary nonprintable string) Need to change it in some SSL plugins too!

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

6
blcksock.pas
View File

@@ -1338,8 +1338,8 @@ type
for fast remote side authentication.} for fast remote side authentication.}
function GetPeerNameHash: cardinal; virtual; function GetPeerNameHash: cardinal; virtual;
{:Return fingerprint of remote SSL peer.} {:Return fingerprint of remote SSL peer. (As binary nonprintable string!)}
function GetPeerFingerprint: string; virtual; function GetPeerFingerprint: AnsiString; virtual;
{:Return all detailed information about certificate from remote side of {:Return all detailed information about certificate from remote side of
SSL/TLS connection. Result string can be multilined! Each plugin can return SSL/TLS connection. Result string can be multilined! Each plugin can return
@@ -4328,7 +4328,7 @@ begin
Result := ''; Result := '';
end; end;
function TCustomSSL.GetPeerFingerprint: string; function TCustomSSL.GetPeerFingerprint: AnsiString;
begin begin
Result := ''; Result := '';
end; end;

4
ssl_openssl.pas
View File

@@ -155,7 +155,7 @@ type
{:See @inherited} {:See @inherited}
function GetPeerNameHash: cardinal; override; {pf} function GetPeerNameHash: cardinal; override; {pf}
{:See @inherited} {:See @inherited}
function GetPeerFingerprint: string; override; function GetPeerFingerprint: ansistring; override;
{:See @inherited} {:See @inherited}
function GetCertInfo: string; override; function GetCertInfo: string; override;
{:See @inherited} {:See @inherited}
@@ -819,7 +819,7 @@ begin
X509Free(cert); X509Free(cert);
end; end;
function TSSLOpenSSL.GetPeerFingerprint: string; function TSSLOpenSSL.GetPeerFingerprint: ansistring;
var var
cert: PX509; cert: PX509;
x: integer; x: integer;

4
ssl_openssl11.pas
View File

@@ -142,7 +142,7 @@ type
{:See @inherited} {:See @inherited}
function GetPeerNameHash: cardinal; override; {pf} function GetPeerNameHash: cardinal; override; {pf}
{:See @inherited} {:See @inherited}
function GetPeerFingerprint: string; override; function GetPeerFingerprint: ansistring; override;
{:See @inherited} {:See @inherited}
function GetCertInfo: string; override; function GetCertInfo: string; override;
{:See @inherited} {:See @inherited}
@@ -743,7 +743,7 @@ begin
X509Free(cert); X509Free(cert);
end; end;
function TSSLOpenSSL.GetPeerFingerprint: string; function TSSLOpenSSL.GetPeerFingerprint: ansistring;
var var
cert: PX509; cert: PX509;
x: integer; x: integer;