(DataFlex) Google Authenticator Algorithm

Example code implementing the Google Authenticator algorithm.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    String sSecretBase32
    Handle hoCrypt
    String sOtp

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    // Generating TOTP Base32 Secret: 
    // When you enable 2FA with a TOTP-based authenticator app, Google will provide you with a QR code
    // that you can scan using the app. This QR code contains a TOTP base32 secret.
    // You can also choose to view and copy the secret manually.

    Move "JBSWY3DPEHPK3PXP" To sSecretBase32

    // Do the following to calculate the 6-digit decimal Google authenticator token for a base32 secret,
    // given the current system date/time.
    Get Create (RefClass(cComChilkatCrypt2)) To hoCrypt
    If (Not(IsComObjectCreated(hoCrypt))) Begin
        Send CreateComObject of hoCrypt
    End
    Get ComTotp Of hoCrypt sSecretBase32 "base32" "0" "" 30 6 -1 "sha1" To sOtp

    Showln "6-digit decimal token = " sOtp


End_Procedure