Build1=Default,shub.dpm
File1=About.bal
File10=Parameter.bal
File11=patient.png
File12=scan.png
File13=Settings.png
File14=stopscan.png
File2=arrowback.png
File3=BarcodeScanner.bal
File4=ChargeScan.png
File5=daten.png
File6=icon.png
File7=LData.bal
File8=LPat.bal
File9=MainPage.bal
FileGroup1=Default Group
FileGroup10=Default Group
FileGroup11=Default Group
FileGroup12=Default Group
FileGroup13=Default Group
FileGroup14=Default Group
FileGroup2=Default Group
FileGroup3=Default Group
FileGroup4=Default Group
FileGroup5=Default Group
FileGroup6=Default Group
FileGroup7=Default Group
FileGroup8=Default Group
FileGroup9=Default Group
Group=Default Group
Library1=audio
Library10=okhttputils2
Library11=stringutils
Library2=b4xpages
Library3=billscanner
Library4=byteconverter
Library5=core
Library6=dialogs
Library7=encryption
Library8=ime
Library9=json
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="29"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~'CreateResourceFromFile(Macro, Themes.DarkTheme)~\n~'End of default text.~\n~CreateResourceFromFile(Macro, Core.NetworkClearText)~\n~AddApplicationText(<meta-data~\n~            android:name="com.google.android.gms.version"~\n~            android:value="@integer/google_play_services_version" />~\n~        <meta-data~\n~            android:name="com.google.android.gms.vision.DEPENDENCIES"~\n~            android:value="barcode" />)~\n~	~\n~AddManifestText(<uses-feature android:name="android.hardware.camera" android:required="true" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.autofocus" android:required="false" />)~\n~AddManifestText(<uses-feature android:name="android.hardware.camera.flash" android:required="false" />)~\n~~\n~~\n~
Module1=About
Module10=Parameter
Module11=Starter
Module2=AllgFnkt
Module3=|relative|..\B4XMainPage
Module4=BarcodeScanner
Module5=EnDecodeTester
Module6=JobService
Module7=ListData
Module8=ListPat
Module9=MenuHandler
NumberOfFiles=14
NumberOfLibraries=11
NumberOfModules=11
Version=11
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: DPM Mobile
	#VersionCode: 1
	#VersionName: Initial
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
	#MultiDex: True

#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: true
#End Region

'#BridgeLogger: True

Sub Process_Globals
	
End Sub

Sub Globals
	Dim clsMenuHandler As MenuHandler
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Dim pm As B4XPagesManager
	pm.Initialize(Activity)
	Activity.LoadLayout("MainPage")
	Activity.Title="DPM Mobile"
	Activity.TitleColor=0xFF077AFF
	
End Sub

Private Sub BtnSetings_Click
	
	Dim Bconv As ByteConverter
	Dim clear As String
	Dim key(0) As Byte
	Dim data(0) As Byte
	Dim iv(0) As Byte

	Dim su As StringUtils
	clear = "3hba8fOumOPrMG0.G?-mkF-scGOkPwyW"
	data = Bconv.StringToBytes(clear, "UTF8")
	Dim x As String =su.EncodeBase64(data)
	Dim y() As Byte=su.DecodeBase64(x)
	Dim xx As String = Bconv.StringFromBytes(y,"UTF8")
	


	iv = "Q.6qYq0_C+mGmymX".GetBytes("UTF8")
	' use DES for variable length data using padding
	Dim kg As KeyGenerator
	Dim c As Cipher
	c.Initialize("AES/CBC/PKCS5Padding") ' replace "DES/" with "AES/" for Rijndael or "DESEDE/" for triple DES
   
	' CBC needs an initialisation vector
	c.InitialisationVector = iv
	kg.Initialize("AES") ' replace "DES" with "AES" for Rijndael or "DESEDE" for triple DES
	'kg.GenerateKey
	kg.Keyfrombytes("3hba8fOumOPrMG0.G?-mkF-scGOkPwyW".GetBytes("UTF8"))
	'key = kg.KeyToBytes
	'Msgbox(Bconv.HexFromBytes(key), "Key " & key.Length & " bytes")
   
	clear = "3hba8fOumOPrMG0.G?-mkF-scGOkPwyW"
	data = Bconv.StringToBytes(clear, "UTF8")
	data = c.Encrypt(data, kg.Key, True)
	Log("Encoding: " & Bconv.HexFromBytes(data))
	Msgbox(Bconv.HexFromBytes(data), "Encrypted is " & data.Length & " bytes")
	data = c.Decrypt(data, kg.Key, True)
	Log("Decoding: " & Bconv.StringFromBytes(data, "UTF8"))
	Msgbox(Bconv.StringFromBytes(data, "UTF8"), "Decrypted")
	
	
StartActivity("Parameter")	
End Sub

Private Sub Button1_Click
	StartActivity("BarcodeScanner")
	
End Sub
'Template version: B4A-1.01
#Region Delegates

Sub Activity_ActionBarHomeClick
'	ActionBarHomeClicked = True
'	B4XPages.Delegate.Activity_ActionBarHomeClick
'	ActionBarHomeClicked = False
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
End Sub

Sub Activity_Resume
	B4XPages.Delegate.Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	B4XPages.Delegate.Activity_Pause
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
	B4XPages.Delegate.Activity_PermissionResult(Permission, Result)
End Sub

Sub Create_Menu (Menu As Object)
	B4XPages.Delegate.Create_Menu(Menu)
End Sub

#if Java
public boolean _onCreateOptionsMenu(android.view.Menu menu) {
	 processBA.raiseEvent(null, "create_menu", menu);
	 return true;
	
}
#End If
#End Region

'Program code should go into B4XMainPage and other pages.

Private Sub ImageView1_Click
	StartActivity("About")
End Sub