Sub Process_Globals
Dim publicKey As String
publicKey = "MIIBI....."
Dim myvar_1 As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim lc As LicenseChecker
lc.Initialize("lc", GetDeviceId, publicKey, "asj...".GetBytes("UTF8"))
lc.SetVariableAndValue("myvar_1", "MyValue")
lc.CheckAccess
End Sub
Sub lc_Allow
Log("Licensed")
ToggleButton_Enable.Enabled = True
End Sub
Sub lc_DontAllow
Log("License: DontAllow")
ToggleButton_Enable.Enabled = False
Msgbox(TxTNoLicense,AppName)
End Sub
Sub lc_Error (ErrorCode As String)
Log("License error: " & ErrorCode)
Msgbox(TxTNoLicense & " " & ErrorCode,AppName)
ToggleButton_Enable.Enabled = False
End Sub
Sub GetDeviceId As String
Dim R As Reflector
Dim Api As Int
Api = R.GetStaticField("android.os.Build$VERSION", "SDK_INT")
If Api < 9 Then
'Old device
If File.Exists(File.DirInternal, "__id") Then
Return File.ReadString(File.DirInternal, "__id")
Else
Dim id As Int
id = Rnd(0x10000000, 0x7FFFFFFF)
File.WriteString(File.DirInternal, "__id", id)
Return id
End If
Else
'New device
Return R.GetStaticField("android.os.Build", "SERIAL")
End If
End Sub
