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

fcl-hash: fixed HOTPCalculateToken on non utf8 platform

Browse Source
This commit is contained in:
mattias 2023-03-07 10:52:52 +01:00
parent bfa3e156d2
commit d383f6102d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-hash/src/onetimepass.pp
View File

@ -65,7 +65,7 @@ var
Offset: Longint;
Part1, Part2, Part3, Part4: UInt32;
SecretBinBuf: TBytes;
STime: String;
STime, SSecretBin: String;
Time: Longint;
begin
@ -74,7 +74,9 @@ begin
Time := DateTimeToUnix(Now,False) div TOTP_KeyRegeneration;
SecretBinBuf:=Base32.Decode(aSecret);
STime:=Int64ToRawString(Time);
Digest:=HMACSHA1Digest(TEncoding.UTF8.GetAnsiString(SecretBinBuf), STime);
SetLength(SSecretBin{%H-},length(SecretBinBuf));
Move(SecretBinBuf[0],SSecretBin[1],length(SecretBinBuf));
Digest:=HMACSHA1Digest(SSecretBin, STime);
Offset := Digest[19] and $0F;
Part1 := (Digest[Offset + 0] and $7F);
Part2 := (Digest[Offset + 1] and $FF);