Private Sub GetPassword As ResumableSub
Dim password As B4XInputTemplate
Try
Do While True
password.Initialize
password.lblTitle.Text = "Enter Password:"
Wait For (Dialog.ShowTemplate(password, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
If DecryptText(PasswordMatch, password.Text) = password.text Then
Return True
End If
Else
Exit
End If
Loop
Catch
Log(LastException.Message)
End Try
Return False
End Sub