paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 09:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-hash: added rsa test

Browse Source
This commit is contained in:
mattias 2022-04-28 19:26:02 +02:00
parent 60c967f255
commit 7664b32e5f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-hash/tests/utestpem.pp
View File

@ -5,7 +5,7 @@ unit utestpem;
interface
uses
Classes, SysUtils, fpcunit, testregistry, fpasn, fppem;
Classes, SysUtils, fpcunit, testregistry, fpasn, fppem, fprsa;
Type
@ -14,13 +14,13 @@ Type
TTestPEM = Class(TTestCase)
Published
Procedure TestLoad;
Procedure TestRSA_RS256Verify;
end;
implementation
uses basenenc, fphashutils, fpecc;
{ TTestPEM }
Const
PrivateKeyFile = 'private-key.pem';
@ -55,7 +55,7 @@ begin
try
Res:=FileExists(PrivateKeyFile) and PemIsECDSA(PrivateKeyFile, List);
if Res then
PemLoadPublicKey64FromList(List, PrivateKey, PublicKey, PublicKeyX64, PublicKeyY64);
PemLoadPublicKey64FromList(List, PrivateKey, PublicKey, PublicKeyX64, PublicKeyY64);
AssertEquals('Private key',resprivatekey,BytesToHexStr(BytesFromVar(@PrivateKey,Sizeof(PrivateKey))));
AssertEquals('Public key',respublickey,BytesToHexStr(BytesFromVar(@PublicKey,Sizeof(PublicKey))));
AssertEquals('X',resX,PublicKeyX64);
@ -71,6 +71,12 @@ begin
end;
end;
procedure TTestPEM.TestRSA_RS256Verify;
begin
if not fprsa.TestRS256Verify then
Fail('TestRS256Verify');
end;
initialization
RegisterTest(TTestPEM);
end.