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

* Sample to demonstrate generating/showing/checking a TOTP

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-01-28 11:37:19 +01:00
parent d5d9716916
commit 2391d317bc
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
packages/fcl-hash/examples/gentotp.pp Normal file
View File

@ -0,0 +1,33 @@
{$mode objfpc}
{$h+}
uses sysutils, onetimepass;
Var
aCount : Longint;
begin
If ParamCount=0 then
Writeln('New key: ',TOTPSharedSecret)
else If ParamCount=1 then
begin
if (ParamStr(1)='-h') or (ParamStr(1)='--help') then
begin
Writeln('Usage : ',ExtractFileName(Paramstr(0)),' [key [code]]');
Writeln('If no options are specified, generate key');
Writeln('If only key is specified, print current code');
Writeln('If both key and code are specified then check code');
end
else
Writeln('Current token : ',TOTPGenerateToken(ParamStr(1)));
end
else
begin
if TOTPValidate(Paramstr(1),StrToIntDef(ParamStr(2),-1),1,aCount) then
Writeln('Code OK')
else
begin
Writeln('Code wrong');
ExitCode:=1;
end;
end;
end.