B4J Question Google Authenticator

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
 
   Private Auth As ABGoogleAuth
   Private Button1 As Button
   Private Button2 As Button
   Private TextField1 As TextField
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   Auth.Initialize("YOURAPPNAME", "YOURGMAILADDRESS")
 
   MainForm = Form1
   MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
   MainForm.Show
End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
   Return True
End Sub

' first run this once to get your secret key from google
' you also get a url link to a QR code you can give to your user to scan in the Google Authenticator
Sub Button1_Action
   Dim credentials As ABGACredentials
   credentials = Auth.CreateCredentials
   Log("QRCodeURL: " & credentials.QRCodeURL)
   Log("Secret key: " & credentials.Secret)
   Log("Scratch Codes: ")
   For i = 0 To credentials.ScratchCodes.Size - 1
       Log(credentials.ScratchCodes.Get(i))
   Next
End Sub

' in your real app, you can then use this secret key to check the users 6 digit code
Sub Button2_Action
   If Auth.Authorize("YOURSECRETKEY", TextField1.Text) Then
       fx.Msgbox(MainForm, "You are allowed to access this application!", "Demo")
   Else
       fx.Msgbox(MainForm, "You are NOT allowed! Get a valid 6 digit code from the Google Authenticate App.", "Demo")
   End If
End Sub

If Auth.Authorize("YOURSECRETKEY", TextField1.Text) Then ' replace YOURSECRETKEY with the value of credentials.Secret