Delphi TOTP 2단계 인증

uses
  sgcAuth_TOTP;

var
  TOTP: TsgcTOTPAuthenticator;
  vSecret, vURI: string;
begin
  TOTP := TsgcTOTPAuthenticator.Create(nil);
  TOTP.Issuer := 'Example App';

  // 등록: 새 Base32 비밀 키와 QR 코드용 otpauth:// URI
  vSecret := TOTP.GenerateSecret;
  vURI := TOTP.GetProvisioningURI('alice@example.com', vSecret);
  // vSecret을 사용자 레코드와 함께 저장하고, vURI를 QR 코드로 렌더링해요

  // 로그인: 사용자가 입력한 코드를 확인해요
  if TOTP.VerifyCode(vSecret, edtCode.Text) then
    ShowMessage('Code accepted');

  // 휴대폰을 분실했을 때를 위한 일회용 복구 코드
  TOTP.GenerateRecoveryCodes(memoRecovery.Lines, 10);
end;