Share My Creation GenKeys HASP5 - with APK

Hello All!
Today I want to present to everyone my application - Generator Keys - GHASP5.
The purpose of the tool presented here is to apply it to security
to their applications.

Thanks for shared version of the library: MLfiles
'<version>1.5</version>
'<author>Jem Miller - Missing Link Software</author>


Features of the program in this version TRIAL:
- Generates licenses and saves to the selected directory on your phone
in the form of a file with these extensions (.ini, .key, .hasp5);

- Read licenses already created. Directory for data sources
is the place: ../Android/data/.../files;

All key fields are required for valid key generation:
- (LcYourName): First and last name.
- (LcProgramm): Description license.
- Date of expiration: (date format: DD-MM-YYYY)
- (LcYourMail): E-mail address.
- (LcYourCode): Your 12 character code.

The program, after the correct generated license key, displays it
Also on the phone screen.

WARNING! GHASP5 v1.20 generates License Keys using PRIVATE KEY
This ensures us to use HASP5 keys securely for our own security applications.

'--- EXAMPLE -1-
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim Crypto As CryptoSHA        'v1.01
End Sub
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim CFS As TLMdroid            'v1.02
    Dim DialogFolders As String = ""
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
    ...
End Sub

    Try
        Private fd As FileDialog

        If DialogFolders.Length > 0 Then
            fd.FilePath = DialogFolders
        Else
            fd.FilePath = File.DirRootExternal & "/Android/data"
        End If

        fd.FastScroll = True
        fd.ShowOnlyFolders = False
        fd.FileFilter = ".ini,.key,.hasp5"
        fd.Show("Read Key of... DIR :", "OK","Cancel","",Null)

        If fd.Response <> DialogResponse.CANCEL Then
            objects.Initialize
            objects = File.ReadMap(fd.FilePath, fd.ChosenName)
            Label1.Text = objects.Get("LicenseKey")
            Crypto.Initialize(Label1.Text,"SHA-512") 'for TWOJEJ APP TRIAL!

            'U W A G A! Do zainicjowania funkcji 'Crypto' we własnej aplikacji, którą chcesz zabezpieczyć
            ' - posłuży ci kod zapamiętany w 'LicenseKey' (zobacz w wygenerowanym pliku: (.ini,.key,.hasp5).
            EditText1.Text = Crypto.Decrypt(objects.Get("LcYourName"))
            EditText2.Text = Crypto.Decrypt(objects.Get("LcProgramm"))
            EditText4.Text = Crypto.Decrypt(objects.Get("LcYourMail"))
            EditText5.Text = Crypto.Decrypt(objects.Get("LcYourCode")
           
            '
            CFS.Parameters(Crypto.Decrypt(objects.Get("LcYourName")),Crypto.Decrypt(objects.Get("LcProgramm")),Crypto.Decrypt(objects.Get("LcYourMail")),Crypto.Decrypt(objects.Get("LcYourCode")),Label1.Text,EditText3.Text)
            Label9.Text = "days: " & CFS.RegisteredVersion
            '
            objects.Clear
            objects.Initialize
            DialogFolders = fd.FilePath
            ToastMessageShow("Data read about!", False)
        End If
    Catch
        Label9.Text = ""
        If objects.IsInitialized Then objects.Clear
        ToastMessageShow("License Key Violates!", True)
    End Try
'---------------