UAuthenticator.pas

unit UAuthenticator;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,GoogleOTP, Vcl.StdCtrls, Vcl.WinXCtrls,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    tmAtualizaToken: TTimer;
    grTop: TGroupBox;
    TsManual: TToggleSwitch;
    lblinfo: TLabel;
    grbase: TGroupBox;
    btnGerarToken: TButton;
    lblToken: TLabel;
    edtSECRETKEYTOP: TEdit;
    lblSuaKey: TLabel;
    tsAutomatico: TToggleSwitch;
    lblCodigo: TLabel;
    btnValidar: TButton;
    lblValido: TLabel;
    procedure btnGerarTokenClick(Sender: TObject);
    procedure edtSECRETKEYTOPExit(Sender: TObject);
    procedure tsAutomaticoClick(Sender: TObject);
    procedure TsManualClick(Sender: TObject);
    procedure tmAtualizaTokenTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnValidarClick(Sender: TObject);
  private
    { Private declarations }
    var Fkey: String;
        Fcodigo: integer;
    function Validar( codigo : String) : String;
    function SetOTP_SECRET_KEY(Key : String): String;
    function GeraToken(OTPSECRET : String) : String;
  public
    { Public declarations }
    property key: String read FKey;
    property codigo: integer read FCodigo;
    procedure Create(); reintroduce;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.btnGerarTokenClick(Sender: TObject);
begin
   lblToken.Caption := GeraToken(Fkey);
end;

procedure TForm1.btnValidarClick(Sender: TObject);
begin
   lblValido.Caption:= Validar(IntToStr(Fcodigo));
end;

procedure TForm1.Create;
begin
   /// Caso já tenha a key informada, sem ser usada no evento OnExit()
   if not(edtSECRETKEYTOP.Text = EmptyStr) then
     SetOTP_SECRET_KEY(edtSECRETKEYTOP.Text);
end;

procedure TForm1.edtSECRETKEYTOPExit(Sender: TObject);
begin
   SetOTP_SECRET_KEY(edtSECRETKEYTOP.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Create;
end;

function TForm1.GeraToken(OTPSECRET: String): String;
var
  vToken : integer;
begin
  if OTPSECRET.IsEmpty then
  begin
    tmAtualizaToken.Enabled:= false;
    raise Exception.Create('Key não informada!');
  end;

  vToken := CalculateOTP(Fkey);
  Fcodigo := vToken;
  /// Formatação padrão Google
  Result := copy(Format('%.6d',[vToken]),1,3) + ' ' + copy(Format('%.6d',[vToken]),4,6)  ;
end;

function TForm1.SetOTP_SECRET_KEY(Key: String): String;
begin
  Fkey := Key;
end;

procedure TForm1.tmAtualizaTokenTimer(Sender: TObject);
begin
  lblToken.Caption := GeraToken(Fkey);
end;

procedure TForm1.tsAutomaticoClick(Sender: TObject);
begin
  if tsAutomatico.State = tssOn then
    edtSECRETKEYTOP.PasswordChar := '*'
  else
    edtSECRETKEYTOP.PasswordChar := #0 ;
end;

procedure TForm1.TsManualClick(Sender: TObject);
begin
  if TsManual.State = tssOn then
  begin
    tmAtualizaToken.Enabled := True;
    btnGerarToken.Visible := False;
  end
  else
  begin
    tmAtualizaToken.Enabled := False;
    btnGerarToken.Visible := True;
   end;
end;

function TForm1.Validar(codigo: String): String;
var
  vCodigo: String;
begin
  result := 'Código inválido';
  vCodigo := codigo;
  if ValidateTOPT(Fkey,vcodigo.ToInteger) then
  result := 'Código Válido';
end;

end.