mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
58 lines
1.3 KiB
ObjectPascal
58 lines
1.3 KiB
ObjectPascal
|
program hmacsample;
|
||
|
|
|
||
|
|
{$APPTYPE CONSOLE}
|
||
|
|
|
||
|
|
{$R *.res}
|
||
|
|
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.SysUtils,
|
||
|
|
MVCFramework.HMAC in '..\..\sources\MVCFramework.HMAC.pas',
|
||
|
|
MVCFramework.Commons in '..\..\sources\MVCFramework.Commons.pas';
|
||
|
|
|
||
|
|
var
|
||
|
|
lAlg: String;
|
||
|
|
lValue: String;
|
||
|
|
i: Integer;
|
||
|
|
AlgAndSign: array [0 .. 4] of array [0 .. 1] of string =
|
||
|
|
(
|
||
|
|
(
|
||
|
|
'md5',
|
||
|
|
'5256311089fa9c80f735fb8cc28bf4fe'
|
||
|
|
),
|
||
|
|
(
|
||
|
|
'sha1',
|
||
|
|
'323ff5f4e53c43f2d9342952299a9d35f9ee5dc2'
|
||
|
|
),
|
||
|
|
(
|
||
|
|
'sha224',
|
||
|
|
'2f42e18342d2d35afc9942364caec009e1ace1d1695c3e9178e65e35'
|
||
|
|
),
|
||
|
|
(
|
||
|
|
'sha256',
|
||
|
|
'1f75a969e2b9c43e6d06969dfad2088f9aab68d3aa440904d2ed8710e2f8e38b'
|
||
|
|
),
|
||
|
|
(
|
||
|
|
'sha512',
|
||
|
|
'22465b5f4138ab80801ff8eca8dd99a56844dd7dc54f76d38bb02bdd815596fc5859709ba4f7130c299a626864a84a4a79401f529d44c85a894fcd7e6192eee9'
|
||
|
|
)
|
||
|
|
);
|
||
|
|
|
||
|
|
begin
|
||
|
|
ReportMemoryLeaksOnShutdown := true;
|
||
|
|
try
|
||
|
|
for I := Low(AlgAndSign) to High(AlgAndSign) do
|
||
|
|
begin
|
||
|
|
lAlg := AlgAndSign[I][0];
|
||
|
|
lValue := AlgAndSign[I][1];
|
||
|
|
Assert(lValue = BytesToHex(HMAC(lAlg, 'Daniele Teti', 'daniele')));
|
||
|
|
WriteLn(Format('ALG NAME: %-15s '#13#10'VALUE: "%s"'#13#10#13#10,[lAlg, lValue]));
|
||
|
|
end;
|
||
|
|
Readln;
|
||
|
|
except
|
||
|
|
on E: Exception do
|
||
|
|
Writeln(E.ClassName, ': ', E.Message);
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|