#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;###Info###
;Script by PrideRage
;Das Programm kopiert euer ausgewähltes .rar Archiev in ein anderes Verzeichnis in dem von euch ausgesuchten Format.
;Dabei wird aber das .rar Archiev aus dem Verzeichnis gelöscht.
;Wenn ihr eure Daten wiederherstellen wollt, einfach die Datei mit WinRAR(oder eurem bevorzugten Archievierer öffnen, und den Inhalt entpacken.
;Das Programm solltet ihr benutzten wenn ihr euren PC nicht alleine benutzt.
;Und zum abschluss noch etwas:
;Das Programm ändert lediglich die Dateiendung :) Also keine Kommentare die besagen, das die Datei immernoch zu öffnen ist.
;Das soll ja auch das Ziel dieses Programmes sein, denn die Daten im Archiev sollen nicht verloren gehen.
;Ich übernehme keine Haftung falls ihr eure Datei nicht mehr wiederfindet :P

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("RAR Verstecker", 240, 166, 192, 124)
$Button1 = GUICtrlCreateButton("RAR Verzeichnis aussuchen", 16, 8, 209, 49, $WS_GROUP)
$Input1 = GUICtrlCreateInput(".Dateiendung", 16, 72, 209, 21)
$Button2 = GUICtrlCreateButton("Verschlüsseln", 48, 112, 153, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			Global $RAR = FileOpenDialog("RAR aussuchen", @DesktopDir, "RAR Verzeiuchnisse(*.rar)")
			Global $Path = FileSaveDialog("Ziel aussuchen", @DesktopDir, "Alle(*.*)")
		Case $Button2
			_Encrypt()
	EndSwitch
WEnd

Func _Encrypt()
	Local $RFile = $RAR
	Local $end = GUICtrlRead($Input1)
	FileMove($RFile, $Path & $end)
	If FileExists($Path & $end) Then
		MsgBox(0, "Erfolg", "Die Datei wurde erfolgreich kopiert!")
	Else
		MsgBox(0, "Error", "Die Datei wurde nicht kopiert!")
	EndIf
EndFunc