$Datum = @YEAR & '-' & @MON  & '-' & @MDAY

$Sprungmarke = True

#include <String.au3>

While $Sprungmarke
	
MsgBox(64+262144, "Exportieren einer Datenbank", "Mit diesem Programm können sie einen Dump eines Benutzer erstellen." )

;IniFileEncrypt(@ScriptDir & "\export.nrbt",@ScriptDir & "\export.ini",12345)
Local $servervar = IniRead(@ScriptDir & "\export.ini", "server", "server", "")

$server = InputBox ( "Export" , "Geben sie den Namen oder die IP-Adresse des Servers an:" , $servervar , "" , 250, 150 )
	If @Error = 1 then
		MsgBox(0+48, "Abbruch" , "Der Export wurde abgeborchen!" &@CRLF& "Das Programm wird geschlossen!" )
		IniWrite ( @ScriptDir & "\export.ini" , "server" , "server" , "" & $server & "" )
		;IniFileDecrypt(@ScriptDir & "\export.ini",@ScriptDir & "\export.nrbt",12345)
		Exit
	Endif

	IniWrite ( @ScriptDir & "\export.ini" , "server" , "server" , "" & $server & "" )
	;IniFileDecrypt(@ScriptDir & "\export.ini",@ScriptDir & "\export.nrbt",12345)		

	#include<GUIConstants.au3>
	GUICreate("Checkboxen", 325, 150) 

	$ok = GUICtrlCreateButton ("OK" , 25, 100, 125, 33, 0)
	$cancel = GUICtrlCreateButton ("Abbrechen" , 175, 100, 125, 33, 0)
	$orcl = GUICtrlCreateCheckbox("ORCL", 25, 25)
	$xe = GUICtrlCreateCheckbox("XE", 175, 25)

	GUISetState()

	While 1
		$msg = GUIGetMsg()
    
		If $msg = $GUI_EVENT_CLOSE Or $Msg = $ok Then ExitLoop
		If $msg = $cancel Then Exit
    
		Select
			Case $msg = $orcl
				If GUICtrlRead($orcl) = 1 Then
					$dbsys = "ORCL"
					GUICtrlSetState($orcl, $GUI_ENABLE)
					GUICtrlSetState($xe,   $GUI_DISABLE)
					IniWrite ( @ScriptDir & "\export.ini" , "dbsys" , "dbsys" , "" & $dbsys & "" )
				ElseIf GUICtrlRead($orcl) = 4 Then
					GUICtrlSetState($orcl, $GUI_ENABLE)
					GUICtrlSetState($xe,   $GUI_ENABLE)

				EndIf
				            
			Case $msg = $xe
				If GUICtrlRead($xe) = 1 Then
					$dbsys = "XE"
					GUICtrlSetState($orcl, $GUI_DISABLE)
					GUICtrlSetState($xe,   $GUI_ENABLE)
					IniWrite ( @ScriptDir & "\export.ini" , "dbsys" , "dbsys" , "" & $dbsys & "" )
				ElseIf GUICtrlRead($XE) = 4 Then
					GUICtrlSetState($orcl, $GUI_ENABLE)
					GUICtrlSetState($xe,   $GUI_ENABLE)

				EndIf

		EndSelect
	
		
	WEnd


	If MsgBox( 4+32+262144, "Export", "Möchten sie eine weitere Datenbank exportieren?" ) = 6 Then ContinueLoop
	$Sprungmarke = False
	
	;IniFileDecrypt(@ScriptDir & "\export.ini",@ScriptDir & "\export.nrbt",12345)

WEnd

	Func IniFileDecrypt($sFilepath,$sFilepathDecrypted,$sCryptkey)
			FileWrite($sFilepathDecrypted,_StringEncrypt(1,FileRead($sFilepath),$sCryptkey))
			FileDelete($sFilepath)
	EndFunc	
	
	Func IniFileEncrypt($sFilepath,$sFilepathDecrypted,$sCryptkey)
        FileDelete($sFilepathDecrypted)
        $sUncryptIniContent = _StringEncrypt(0,FileRead($sFilepath),$sCryptkey)
        FileDelete($sFilepath)
        FileWrite($sFilepathDecrypted,$sUncryptIniContent)
	EndFunc