Vichingo455-RePacks
/
xtool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity
xtool/contrib/DelphiEncryptionCompendium/Unit Tests/Tests/TestDECHashSHA3.pas

996 lines
44 KiB
ObjectPascal
Raw Blame History

{*****************************************************************************
The DEC team (see file NOTICE.txt) licenses this file
to you under the Apache License, Version 2.0 (the
"License"); you may not use this file except in compliance
with the License. A copy of this licence is found in the root directory of
this project in the file LICENCE.txt or alternatively at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing,
software distributed under the License is distributed on an
"AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
KIND, either express or implied. See the License for the
specific language governing permissions and limitations
under the License.
*****************************************************************************}
{$M+} // DUnitX would add it anyway
unit TestDECHashSHA3;
interface
// Needs to be included before any other statements
{$INCLUDE TestDefines.inc}
{$INCLUDE ..\..\Source\DECOptions.inc}
{$IF CompilerVersion >= 24.0} // Too many local constants for Delphi XE2 and older
uses
System.SysUtils, System.Classes, Generics.Collections,
{$IFDEF DUnitX}
DUnitX.TestFramework,DUnitX.DUnitCompatibility,
{$ELSE}
TestFramework,
{$ENDIF}
TestDECTestDataContainer,
DECTypes, DECBaseClass, DECHash, DECHashBase, DECHashAuthentication, DECUtil,
DECFormatBase, DECHashBitBase, TestDECHash;
type
/// <summary>
/// Base class for the SHA3 tests, provides loading the test data from files
/// </summary>
TestTHash_SHA3_Base = class(THash_TestBase)
strict private
/// <summary>
/// Load the data of all test files specified for the test class
/// </summary>
procedure LoadTestFiles; inline;
/// <summary>
/// Calculate the Unicode hash value of the given test data
/// </summary>
/// <param name="TestData">
/// Test data as lower case Hex-Value
/// </param>
/// <param name="HashInst">
/// Instance of the hash algorithm used
/// </param>
/// <returns>
/// Calculated lower case hex formatted hash over the test data
/// </returns>
function CalcUnicodeHash(TestData : string;
HashInst : TDECHashAuthentication): RawByteString; inline;
strict protected
/// <summary>
/// List of test data files to laod
/// </summary>
FTestFileNames : TStringList;
/// <summary>
/// Overridden so that loading of the test data file only happens here
/// and not also for the metadata etc. tests as well
/// </summary>
procedure DoTestCalcBuffer(HashClass:TDECHash); override;
/// <summary>
/// Overridden so that loading of the test data file only happens here
/// and not also for the metadata etc. tests as well
/// </summary>
procedure DoTestCalcBytes(HashClass:TDECHash); override;
/// <summary>
/// Overridden so that loading of the test data file only happens here
/// and not also for the metadata etc. tests as well
/// </summary>
procedure DoTestCalcStream(HashClass:TDECHash); override;
/// <summary>
/// Overridden so that loading of the test data file only happens here
/// and not also for the metadata etc. tests as well
/// </summary>
procedure DoTestCalcUnicodeString(HashClass:TDECHash); override;
/// <summary>
/// Overridden so that loading of the test data file only happens here
/// and not also for the metadata etc. tests as well
/// </summary>
procedure DoTestCalcRawByteString(HashClass:TDECHash); override;
/// <summary>
/// Loads data stored in the rsp files provided by NIST into the test
/// data lists. Any exceptions will be caught and entries with wrong format
/// ignored.
/// </summary>
/// <param name="FileName">
/// Namne of the file to load
/// </param>
/// <param name="TestData">
/// Interface to the test data management instance
/// </param>
/// <param name="HashInst">
/// Instance of the hashing class to be tested for calculating the UTF-string
/// test data.
/// </param>
procedure LoadTestDataFile(FileName : string;
TestData : IHashTestDataContainer;
HashInst : TDECHashAuthentication);
public
/// <summary>
/// Create test file list
/// </summary>
procedure SetUp; override;
/// <summary>
/// Free test file lsit
/// </summary>
procedure TearDown; override;
end;
// Test methods for class THash_SHA3_224
{$IFDEF DUnitX} [TestFixture] {$ENDIF}
TestTHash_SHA3_224 = class(TestTHash_SHA3_Base)
strict protected
/// <summary>
/// Some tests need to set the SHA3 specific padding byte and final bit length
/// parameters
/// </summary>
procedure ConfigHashClass(HashClass: TDECHash; IdxTestData:Integer); override;
public
procedure SetUp; override;
published
procedure TestDigestSize;
procedure TestBlockSize;
procedure TestIsPasswordHash;
procedure TestClassByName;
procedure TestIdentity;
end;
// Test methods for class THash_SHA3_256
{$IFDEF DUnitX} [TestFixture] {$ENDIF}
TestTHash_SHA3_256 = class(TestTHash_SHA3_Base)
strict protected
/// <summary>
/// Some tests need to set the SHA3 specific padding byte and final bit length
/// parameters
/// </summary>
procedure ConfigHashClass(HashClass: TDECHash; IdxTestData:Integer); override;
public
procedure SetUp; override;
published
procedure TestDigestSize;
procedure TestBlockSize;
procedure TestIsPasswordHash;
procedure TestClassByName;
procedure TestIdentity;
end;
// Test methods for class THash_SHA3_384
{$IFDEF DUnitX} [TestFixture] {$ENDIF}
TestTHash_SHA3_384 = class(TestTHash_SHA3_Base)
strict protected
/// <summary>
/// Some tests need to set the SHA3 specific padding byte and final bit length
/// parameters
/// </summary>
procedure ConfigHashClass(HashClass: TDECHash; IdxTestData:Integer); override;
public
procedure SetUp; override;
published
procedure TestDigestSize;
procedure TestBlockSize;
procedure TestIsPasswordHash;
procedure TestClassByName;
procedure TestIdentity;
end;
// Test methods for class THash_SHA3_512
{$IFDEF DUnitX} [TestFixture] {$ENDIF}
TestTHash_SHA3_512 = class(TestTHash_SHA3_Base)
strict protected
/// <summary>
/// Some tests need to set the SHA3 specific padding byte and final bit length
/// parameters
/// </summary>
procedure ConfigHashClass(HashClass: TDECHash; IdxTestData:Integer); override;
public
procedure SetUp; override;
published
procedure TestDigestSize;
procedure TestBlockSize;
procedure TestIsPasswordHash;
procedure TestClassByName;
procedure TestIdentity;
end;
implementation
uses
DECFormat;
{ TestTHash_SHA3_Base }
procedure TestTHash_SHA3_Base.SetUp;
begin
inherited;
FTestFileNames := TStringList.Create;
end;
procedure TestTHash_SHA3_Base.TearDown;
begin
inherited;
FTestFileNames.Free;
end;
procedure TestTHash_SHA3_Base.LoadTestFiles;
var
FileName : string;
begin
for FIleName in FTestFIleNames do
LoadTestDataFile(FileName, FTestData, FHash);
end;
procedure TestTHash_SHA3_Base.DoTestCalcBuffer(HashClass:TDECHash);
begin
LoadTestFiles;
inherited;
end;
procedure TestTHash_SHA3_Base.DoTestCalcBytes(HashClass:TDECHash);
begin
LoadTestFiles;
inherited;
end;
procedure TestTHash_SHA3_Base.DoTestCalcStream(HashClass:TDECHash);
begin
LoadTestFiles;
inherited;
end;
procedure TestTHash_SHA3_Base.DoTestCalcUnicodeString(HashClass:TDECHash);
begin
LoadTestFiles;
inherited;
end;
procedure TestTHash_SHA3_Base.DoTestCalcRawByteString(HashClass:TDECHash);
begin
LoadTestFiles;
inherited;
end;
procedure TestTHash_SHA3_Base.LoadTestDataFile(FileName : string;
TestData : IHashTestDataContainer;
HashInst : TDECHashAuthentication);
var
Contents : TStringList;
FileRow,
FileRowTrim,
s1 : string;
Len : Int32;
FinalByteLen : Int16;
lDataRow : IHashTestDataRowSetup;
begin
Len := 0;
Contents := TStringList.Create;
try
Contents.LoadFromFile(FileName);
for FileRow in Contents do
begin
FileRowTrim := LowerCase(Trim(FileRow));
if (Pos('len', FileRowTrim) = 1) then
begin
lDataRow := FTestData.AddRow;
s1 := FileRowTrim;
Delete(s1, 1, 6);
Len := StrToInt(s1);
FinalByteLen := Len mod 8;
lDataRow.FinalBitLength := FinalByteLen;
THash_SHA3Base(HashInst).FinalByteLength := FinalByteLen;
Continue;
end;
if (Pos('msg', FileRowTrim) = 1) then
begin
s1 := FileRowTrim;
Delete(s1, 1, 6);
if (Len > 0) then
begin
lDataRow.AddInputVector(TFormat_HexL.Decode(RawByteString(s1)));
lDataRow.ExpectedOutputUTFStrTest := CalcUnicodeHash(s1, HashInst);
end
else
begin
lDataRow.AddInputVector('');
lDataRow.ExpectedOutputUTFStrTest := CalcUnicodeHash('', HashInst);
end;
Continue;
end;
if (Pos('md', FileRowTrim) = 1) then
begin
s1 := FileRowTrim;
Delete(s1, 1, 5);
lDataRow.ExpectedOutput := RawByteString(s1);
Continue;
end;
end;
finally
Contents.Free;
end;
end;
function TestTHash_SHA3_Base.CalcUnicodeHash(TestData : string;
HashInst : TDECHashAuthentication): RawByteString;
begin
Result := BytesToRawString(TFormat_HEXL.Encode(
System.SysUtils.BytesOf(HashInst.CalcString(
string(TFormat_HexL.Decode(RawByteString(TestData)))))));
end;
{ TestTHash_SHA3_224 }
procedure TestTHash_SHA3_224.ConfigHashClass(HashClass: TDECHash;
IdxTestData: Integer);
begin
inherited;
THash_SHA3_224(FHash).FinalByteLength := FTestData[IdxTestData].FinalByteLength;
THash_SHA3_224(FHash).PaddingByte := FTestData[IdxTestData].PaddingByte;
end;
procedure TestTHash_SHA3_224.SetUp;
var
lDataRow : IHashTestDataRowSetup;
i : Integer;
s : RawByteString;
begin
// All specified data sources are for the non unicode expected outputs
inherited;
FHash := THash_SHA3_224.Create;
//Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Algorithm-
// Validation-Program/documents/sha3/sha-3bittestvectors.zip
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_224ShortMsg.rsp');
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_224LongMsg.rsp');
// SourceEnd
// Source: https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-224_1600.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '9376816aba503f72f96ce7eb65ac095deee3be4b' +
'f9bbc2a1cb7e11e0';
lDataRow.ExpectedOutputUTFStrTest := '28a4a80fded04a676674687c8330422eedeb18c9' +
'dba976234a9e007a';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3), 1, 20);
lDataRow.FinalBitLength := 0;
// Source: https://emn178.github.io/online-tools/sha3_224.html
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '32eb6a4121daebe223db1987740814e1dd9d9ddb' +
'ddfd466feff5c9b4';
lDataRow.ExpectedOutputUTFStrTest := '0f1ad8cd5a85fe68319b67427e1f0b685498bc24' +
'6a81a1f595c89e4e';
lDataRow.AddInputVector(RawByteString('e21et2e2et1208e7t12e07812te08127et1028e' +
'7t1208e7gd81d872t178r02tr370823'), 1, 10);
lDataRow.FinalBitLength := 0;
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'f7fc914c8fe4827d866b02df2459840260f4adb0' +
'db4deb9fa661756c';
lDataRow.ExpectedOutputUTFStrTest := 'e4d44bbda0b8fc8a73b421f6795c6380c0e21d50' +
'539a7b43c20a7529';
for i := 1 to 10 do
s := s + 'e21et2e2et1208e7t12e07812te08127et1028e7t1208e7gd81d872t178r02tr370823';
s := s + 'TurboMagic';
s := s + s + s;
lDataRow.AddInputVector(s);
lDataRow.FinalBitLength := 0;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-224_Msg5.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'ffbad5da96bad71789330206dc6768ecaeb1b32d' +
'ca6b3301489674ab';
lDataRow.ExpectedOutputUTFStrTest := '3d0e88c1e4fe0f6577e921e50805155b0748b40a' +
'3ab368c96b63f686';
lDataRow.AddInputVector(#$13);
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-224_Msg30.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'd666a514cc9dba25ac1ba69ed3930460deaac985' +
'1b5f0baab007df3b';
lDataRow.ExpectedOutputUTFStrTest := '098526f4e121e977c325078374bf13ee9b0f2ed3' +
'14ce743c5641cebe';
lDataRow.AddInputVector(#$53#$58#$7B#$19);
lDataRow.FinalBitLength := 6;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-224_Msg1605.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '22d2f7bb0b173fd8c19686f9173166e3ee627380' +
'47d7eadd69efb228';
lDataRow.ExpectedOutputUTFStrTest := 'a6871aef1c16c4c0fcaef97636711fb6216b1586' +
'26d4e2b7e9e7e962';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3));
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-224_1630.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '4e907bb1057861f200a599e9d4f85b02d88453bf' +
'5b8ace9ac589134c';
lDataRow.ExpectedOutputUTFStrTest := '30a15a07d7f0a34e5b36de3bec18c31eac2c9495' +
'2b50820095c8807e';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3));
lDataRow.FinalBitLength := 6;
end;
procedure TestTHash_SHA3_224.TestBlockSize;
begin
CheckEquals(144, FHash.BlockSize);
end;
procedure TestTHash_SHA3_224.TestClassByName;
begin
DoTestClassByName('THash_SHA3_224', THash_SHA3_224);
end;
procedure TestTHash_SHA3_224.TestDigestSize;
begin
CheckEquals(28, FHash.DigestSize);
end;
procedure TestTHash_SHA3_224.TestIdentity;
begin
CheckEquals($D0579DA9, FHash.Identity);
end;
procedure TestTHash_SHA3_224.TestIsPasswordHash;
begin
CheckNotEquals(true, FHash.IsPasswordHash);
end;
{ TestTHash_SHA3_256 }
procedure TestTHash_SHA3_256.ConfigHashClass(HashClass: TDECHash;
IdxTestData: Integer);
begin
inherited;
THash_SHA3_256(FHash).FinalByteLength := FTestData[IdxTestData].FinalByteLength;
THash_SHA3_256(FHash).PaddingByte := FTestData[IdxTestData].PaddingByte;
end;
procedure TestTHash_SHA3_256.SetUp;
var
lDataRow:IHashTestDataRowSetup;
begin
// All specified data sources are for the non unicode expected outputs
inherited;
FHash := THash_SHA3_256.Create;
//Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Algorithm-
// Validation-Program/documents/sha3/sha-3bittestvectors.zip
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_256ShortMsg.rsp');
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_256LongMsg.rsp');
// SourceEnd
// Source: https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-256_Msg0.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'a7ffc6f8bf1ed76651c14756a061d662f580ff4d' +
'e43b49fa82d80a4b80f8434a';
lDataRow.ExpectedOutputUTFStrTest := 'a7ffc6f8bf1ed76651c14756a061d662f580ff4d' +
'e43b49fa82d80a4b80f8434a';
lDataRow.AddInputVector('');
// Source: https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-224_1600.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '79f38adec5c20307a98ef76e8324afbfd46cfd81' +
'b22e3973c65fa1bd9de31787';
lDataRow.ExpectedOutputUTFStrTest := '06ea5e186dab1b3f99bcf91918b53748367674c0' +
'5baa627010fba06edb67f0ba';
lDataRow.AddInputVector(RawByteString(
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3), 1, 20);
lDataRow.FinalBitLength := 0;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-256_Msg5.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '7b0047cf5a456882363cbf0fb05322cf65f4b705' +
'9a46365e830132e3b5d957af';
lDataRow.ExpectedOutputUTFStrTest := 'f2771aed86eba40f0f20c80aed2efb2ccdcd2a45' +
'14a89642353dc4ab6f31a0a1';
lDataRow.AddInputVector(#$13);
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-256_Msg30.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'c8242fef409e5ae9d1f1c857ae4dc624b92b1980' +
'9f62aa8c07411c54a078b1d0';
lDataRow.ExpectedOutputUTFStrTest := '0264f8f24160a1c2336453338772637b64864ce1' +
'3c3c4207c40b34d28d68cd23';
lDataRow.AddInputVector(#$53#$58#$7B#$19);
lDataRow.FinalBitLength := 6;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-256_Msg1605.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '81ee769bed0950862b1ddded2e84aaa6ab7bfdd3' +
'ceaa471be31163d40336363c';
lDataRow.ExpectedOutputUTFStrTest := '7a4185574238ca2e2550a9fa85a0c5a327811698' +
'c3a05531a70e0a7ec369e2e5';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3));
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-256_1630.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '52860aa301214c610d922a6b6cab981ccd06012e' +
'54ef689d744021e738b9ed20';
lDataRow.ExpectedOutputUTFStrTest := '8f0bb49b3327e5a03dd69bded05a86c9e7d72a7d' +
'719dd354a873cf2a70c30354';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3));
lDataRow.FinalBitLength := 6;
end;
procedure TestTHash_SHA3_256.TestBlockSize;
begin
CheckEquals(136, FHash.BlockSize);
end;
procedure TestTHash_SHA3_256.TestClassByName;
begin
DoTestClassByName('THash_SHA3_256', THash_SHA3_256);
end;
procedure TestTHash_SHA3_256.TestDigestSize;
begin
CheckEquals(32, FHash.DigestSize);
end;
procedure TestTHash_SHA3_256.TestIdentity;
begin
CheckEquals($71186A42, FHash.Identity);
end;
procedure TestTHash_SHA3_256.TestIsPasswordHash;
begin
CheckNotEquals(true, FHash.IsPasswordHash);
end;
{ TestTHash_SHA3_384 }
procedure TestTHash_SHA3_384.ConfigHashClass(HashClass: TDECHash;
IdxTestData: Integer);
begin
inherited;
THash_SHA3_384(FHash).FinalByteLength := FTestData[IdxTestData].FinalByteLength;
THash_SHA3_384(FHash).PaddingByte := FTestData[IdxTestData].PaddingByte;
end;
procedure TestTHash_SHA3_384.SetUp;
var
lDataRow:IHashTestDataRowSetup;
begin
inherited;
FHash := THash_SHA3_384.Create;
//Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Algorithm-
// Validation-Program/documents/sha3/sha-3bittestvectors.zip
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_384ShortMsg.rsp');
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_384LongMsg.rsp');
// SourceEnd
// Source: https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-384_Msg0.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '0c63a75b845e4f7d01107d852e4c2485c51a50aa' +
'aa94fc61995e71bbee983a2ac3713831264adb47' +
'fb6bd1e058d5f004';
lDataRow.ExpectedOutputUTFStrTest := '0c63a75b845e4f7d01107d852e4c2485c51a50aa' +
'aa94fc61995e71bbee983a2ac3713831264adb47' +
'fb6bd1e058d5f004';
lDataRow.AddInputVector('');
// Source: https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-384_1600.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '1881de2ca7e41ef95dc4732b8f5f002b189cc1e4' +
'2b74168ed1732649ce1dbcdd76197a31fd55ee98' +
'9f2d7050dd473e8f';
lDataRow.ExpectedOutputUTFStrTest := '50dd07a64dc6ff190db60e612d8511742baa8eb5' +
'a499a0a02e51cea3f4b922f8ecf72785dc0a2ef3' +
'8230340378d3d104';
lDataRow.AddInputVector(RawByteString(
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3), 1, 20);
lDataRow.FinalBitLength := 0;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-384_Msg5.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '737c9b491885e9bf7428e792741a7bf8dca96534' +
'71c3e148473f2c236b6a0a6455eb1dce9f779b4b' +
'6b237fef171b1c64';
lDataRow.ExpectedOutputUTFStrTest := 'c2ab721500b00f70be1f5adfcbe70cdf22581c35' +
'ed47d265538c1cbd939f1fe8290e58d096eb3378' +
'f3a75818d623ebb8';
lDataRow.AddInputVector(#$13);
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-384_Msg30.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '955b4dd1be03261bd76f807a7efd432435c41736' +
'2811b8a50c564e7ee9585e1ac7626dde2fdc030f' +
'876196ea267f08c3';
lDataRow.ExpectedOutputUTFStrTest := '20243fac26472f874f31539f8b26c1eb226f0c02' +
'3f7f3affa688a471a1943c6fb00dbcbb928b5234' +
'e19423670f34c328';
lDataRow.AddInputVector(#$53#$58#$7B#$19);
lDataRow.FinalBitLength := 6;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-384_Msg1605.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'a31fdbd8d576551c21fb1191b54bda65b6c5fe97' +
'f0f4a69103424b43f7fdb835979fdbeae8b3fe16' +
'cb82e587381eb624';
lDataRow.ExpectedOutputUTFStrTest := 'f3c3516f2b9d8a07233fc3dd427f8aba27d8e2e5' +
'793a6054f5bcdf005ce6de90d8dc6c69a833f5a7' +
'9da35504fc3ea8bc';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3));
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-384_1630.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '3485d3b280bd384cf4a777844e94678173055d1c' +
'bc40c7c2c3833d9ef12345172d6fcd31923bb879' +
'5ac81847d3d8855c';
lDataRow.ExpectedOutputUTFStrTest := '63f5d9652bc5a4619ea4b3baf70a43e9d43d0620' +
'20109c162265f84c95eeb5768a4ce055dbe64385' +
'324650c2cd9091d5';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3));
lDataRow.FinalBitLength := 6;
end;
procedure TestTHash_SHA3_384.TestBlockSize;
begin
CheckEquals(104, FHash.BlockSize);
end;
procedure TestTHash_SHA3_384.TestClassByName;
begin
DoTestClassByName('THash_SHA3_384', THash_SHA3_384);
end;
procedure TestTHash_SHA3_384.TestDigestSize;
begin
CheckEquals(48, FHash.DigestSize);
end;
procedure TestTHash_SHA3_384.TestIdentity;
begin
CheckEquals($2B7A1F14, FHash.Identity);
end;
procedure TestTHash_SHA3_384.TestIsPasswordHash;
begin
CheckNotEquals(true, FHash.IsPasswordHash);
end;
{ TestTHash_SHA3_512 }
procedure TestTHash_SHA3_512.ConfigHashClass(HashClass: TDECHash;
IdxTestData: Integer);
begin
inherited;
THash_SHA3_512(FHash).FinalByteLength := FTestData[IdxTestData].FinalByteLength;
THash_SHA3_512(FHash).PaddingByte := FTestData[IdxTestData].PaddingByte;
end;
procedure TestTHash_SHA3_512.SetUp;
var
lDataRow : IHashTestDataRowSetup;
begin
inherited;
FHash := THash_SHA3_512.Create;
//Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Algorithm-
// Validation-Program/documents/sha3/sha-3bittestvectors.zip
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_512ShortMsg.rsp');
FTestFileNames.Add('..\..\Unit Tests\Data\SHA3_512LongMsg.rsp');
// SourceEnd
// Source: https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-512_1600.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'e76dfad22084a8b1467fcf2ffa58361bec7628ed' +
'f5f3fdc0e4805dc48caeeca81b7c13c30adf52a3' +
'659584739a2df46be589c51ca1a4a8416df6545a' +
'1ce8ba00';
lDataRow.ExpectedOutputUTFStrTest := '54ab223a7cee7603f2b89596b54f8d838845e0a0' +
'af2be3e9ad2cd7acb111757cb0c41b3564c07778' +
'47684435da78577781eef8e6a6652c9844a85882' +
'e0fa8b28';
lDataRow.AddInputVector(RawByteString(
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3), 1, 20);
lDataRow.FinalBitLength := 0;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-512_Msg5.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'a13e01494114c09800622a70288c432121ce7003' +
'9d753cadd2e006e4d961cb27544c1481e5814bdc' +
'eb53be6733d5e099795e5e81918addb058e22a9f' +
'24883f37';
lDataRow.ExpectedOutputUTFStrTest := '6961fe7f75e0ad35aead16be49c711b373d22226' +
'ea2b7b2897df24048287a1b6d7b43bad246c8a44' +
'ddccb49263a688343fa60142650a3e06af2a87c9' +
'296438a8';
lDataRow.AddInputVector(#$13);
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-512_Msg30.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := '9834c05a11e1c5d3da9c740e1c106d9e590a0e53' +
'0b6f6aaa7830525d075ca5db1bd8a6aa981a2861' +
'3ac334934a01823cd45f45e49b6d7e6917f2f167' +
'78067bab';
lDataRow.ExpectedOutputUTFStrTest := '7e59a0c8fca17a79c748f927c85408bfda1b158d' +
'7ab95df59f650a3bb773e1eb6c1112cd2c351b24' +
'b99a2f8e08688ec19816bfc292fba63305307571' +
'ce9360cf';
lDataRow.AddInputVector(#$53#$58#$7B#$19);
lDataRow.FinalBitLength := 6;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-512_Msg1605.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'fc4a167ccb31a937d698fde82b04348c9539b28f' +
'0c9d3b4505709c03812350e4990e9622974f6e57' +
'5c47861c0d2e638ccfc2023c365bb60a93f52855' +
'0698786b';
lDataRow.ExpectedOutputUTFStrTest := '7e65803342ce242fdc8cfd27019516669615327f' +
'679ced86453df7ee0a745267a453e7b94568c2ea' +
'dc4ce7a7de02f48a5c2204d03418542f1a64f7db' +
'78026218';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3));
lDataRow.FinalBitLength := 5;
// Source https://csrc.nist.gov/CSRC/media/Projects/Cryptographic-Standards-
// and-Guidelines/documents/examples/SHA3-512_1630.pdf
lDataRow := FTestData.AddRow;
lDataRow.ExpectedOutput := 'cf9a30ac1f1f6ac0916f9fef1919c595debe2ee8' +
'0c85421210fdf05f1c6af73aa9cac881d0f91db6' +
'd034a2bbadc1cf7fbcb2ecfa9d191d3a5016fb3f' +
'ad8709c9';
lDataRow.ExpectedOutputUTFStrTest := '55971e2e5d0182f25bc453364f9d3a77fef05e7e' +
'32c99e630a8586c37815aea5087a51aa3730f855' +
'df963c7740f4e6bd2b73f5079cf317031ed120c3' +
'3df4054d';
lDataRow.AddInputVector(RawByteString(#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3#$A3 +
#$A3#$A3#$A3#$A3));
lDataRow.FinalBitLength := 6;
end;
procedure TestTHash_SHA3_512.TestBlockSize;
begin
CheckEquals(72, FHash.BlockSize);
end;
procedure TestTHash_SHA3_512.TestClassByName;
begin
DoTestClassByName('THash_SHA3_512', THash_SHA3_512);
end;
procedure TestTHash_SHA3_512.TestDigestSize;
begin
CheckEquals(64, FHash.DigestSize);
end;
procedure TestTHash_SHA3_512.TestIdentity;
begin
CheckEquals($17567DDA, FHash.Identity);
end;
procedure TestTHash_SHA3_512.TestIsPasswordHash;
begin
CheckNotEquals(true, FHash.IsPasswordHash);
end;
initialization
// Register any test cases with the test runner
{$IFDEF DUnitX}
TDUnitX.RegisterTestFixture(TestTHash_SHA3_224);
TDUnitX.RegisterTestFixture(TestTHash_SHA3_256);
TDUnitX.RegisterTestFixture(TestTHash_SHA3_384);
TDUnitX.RegisterTestFixture(TestTHash_SHA3_512);
{$ELSE}
RegisterTests('DECHash', [TestTHash_SHA3_224.Suite,
TestTHash_SHA3_256.Suite,
TestTHash_SHA3_384.Suite,
TestTHash_SHA3_512.Suite]);
{$ENDIF}
{$ELSE}
implementation
{$IFEND}
end.
Reference in New Issue View Git Blame Copy Permalink