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

fix for issue #39333

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-09-02 09:32:43 +02:00
parent 40dc7380dc
commit fe656ab4ef
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/hash/src/hmac.pp
View File

@ -142,6 +142,7 @@ var
PKey, POPad, PIPad: PChar;
VKey, VOPad, VIPad: string;
begin
// Set up masking block from key.
VLength := Length(AKey);
if VLength > SHA1_BLOCK_SIZE then
begin
@ -153,16 +154,17 @@ begin
begin
SetLength(VKey, SHA1_BLOCK_SIZE - VLength);
FillChar(Pointer(VKey)^, SHA1_BLOCK_SIZE - VLength, #0);
VKey := AKey + VKey;
VKey := AKey + VKey; // VKEY now has length SHA1_BLOCK_SIZE
end;
PKey := PChar(VKey);
// Padding blocks
SetLength(VOPad, SHA1_BLOCK_SIZE);
POPad := PChar(VOPad);
FillChar(POPad^, SHA1_BLOCK_SIZE, $5c);
SetLength(VIPad, SHA1_BLOCK_SIZE);
PIPad := PChar(VIPad);
FillChar(PIPad^, SHA1_BLOCK_SIZE, $36);
PKey := PChar(VKey);
for I := 1 to VLength do
for I := 1 to SHA1_BLOCK_SIZE do
begin
POPad^ := Char(Ord(POPad^) xor Ord(PKey^));
PIPad^ := Char(Ord(PIPad^) xor Ord(PKey^));