; Author: GoravG
; Script Name: Exe Lock Script creator
; AutoIt v3.3.12.0
#NoTrayIcon
Global Const $mb_systemmodal = 4096
Global Const $gui_event_close = -3
Global Const $gui_checked = 1
$mgui = GUICreate("Exe Lock Script creator by GoravG", 358, 165)
GUISetBkColor(16777215)
$input1 = GUICtrlCreateInput("", 96, 24, 193, 20, 2048)
GUICtrlSetBkColor(-1, 16777215)
$input2 = GUICtrlCreateInput("", 96, 60, 193, 20, 32)
$button1 = GUICtrlCreateButton("Browse", 296, 24, 43, 25)
$button2 = GUICtrlCreateButton("Lock", 136, 90, 83, 25)
$checkbox1 = GUICtrlCreateCheckbox("Add administrator", 8, 120, 97, 17)
$label1 = GUICtrlCreateLabel("Source (.exe file):", 8, 32, 83, 17)
$label2 = GUICtrlCreateLabel("Enter Password:", 8, 63, 81, 17)
$menu = GUICtrlCreateMenu("File")
$mi1 = GUICtrlCreateMenuItem("Exit", $menu)
$help = GUICtrlCreateMenu("Help")
$mi2 = GUICtrlCreateMenuItem("About", $help)
$form2 = GUICreate("About", 321, 159, 302, 218)
GUISetStyle(12582912)
GUISetBkColor(16777215)
$groupbox1 = GUICtrlCreateGroup("", 8, 8, 305, 105)
$label1 = GUICtrlCreateLabel("Product Name: Exe Lock Script creator", 44, 54, 258, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$buttonok = GUICtrlCreateButton("OK", 116, 120, 75, 25)
GUISetState(@SW_SHOW, $mgui)
While 1
	$nmsg = GUIGetMsg()
	Switch $nmsg
		Case $gui_event_close, $mi1
			Exit
		Case $button1
			GUISetState(@SW_DISABLE, $mgui)
			$fo = FileOpenDialog("Choose file", "", "(*.exe)")
			GUICtrlSetData($input1, $fo)
			FileChangeDir(@ScriptDir)
			GUISetState(@SW_ENABLE, $mgui)
		Case $button2
			If _ischecked($checkbox1) AND GUICtrlRead($input1) AND GUICtrlRead($input2) Then
				GUISetState(@SW_HIDE, $mgui)
				FileWriteLine(GUICtrlRead($input1) & ".au3", "#NoTrayIcon")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "#RequireAdmin")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "Global Const $MB_SYSTEMMODAL = 4096")
				FileWriteLine(GUICtrlRead($input1) & ".au3", 'Local $iLoop = 1, $sText = ""')
				FileWriteLine(GUICtrlRead($input1) & ".au3", "While $iLoop = 1")
				FileWriteLine(GUICtrlRead($input1) & ".au3", '$sText = InputBox("Password", "Please Enter Password","","*")')
				FileWriteLine(GUICtrlRead($input1) & ".au3", "If @error = 1 Then")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "Exit")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "Else")
				FileWriteLine(GUICtrlRead($input1) & ".au3", 'If $sText <> "' & GUICtrlRead($input2) & '" Then')
				FileWriteLine(GUICtrlRead($input1) & ".au3", 'MsgBox($MB_SYSTEMMODAL, "Error", "You Enter Wrong Password - Try Again!")')
				FileWriteLine(GUICtrlRead($input1) & ".au3", "Else")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "$iLoop = 0")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "EndIf")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "EndIf")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "WEnd")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "$Date=@mon&@mday&@hour&@min&@sec")
				FileWriteLine(GUICtrlRead($input1) & ".au3", "$ins = FileInstall(" & '"' & GUICtrlRead($input1) & '"' & ', @ScriptDir & "\" & $Date&".exe", 1)')
				FileWriteLine(GUICtrlRead($input1) & ".au3", "ProcessWaitClose($ins)")
				FileWriteLine(GUICtrlRead($input1) & ".au3", '$SA = FileSetAttrib(@ScriptDir & "\" & $Date&".exe","+SH")')
				FileWriteLine(GUICtrlRead($input1) & ".au3", "ProcessWaitClose($SA)")
				FileWriteLine(GUICtrlRead($input1) & ".au3", '$idRun = Run(@ScriptDir & "\" & $Date&".exe")')
				FileWriteLine(GUICtrlRead($input1) & ".au3", "ProcessWaitClose($idRun)")
				$wl = FileWriteLine(GUICtrlRead($input1) & ".au3", 'FileDelete(@ScriptDir & "\" & $Date&".exe")')
				ProcessWaitClose($wl)
				FileMove(@TempDir & "\PE.au3", GUICtrlRead($input1) & ".au3", 1)
				GUISetState(@SW_SHOW, $mgui)
			Else
				If GUICtrlRead($input1) AND GUICtrlRead($input2) Then
					GUISetState(@SW_HIDE, $mgui)
					FileWriteLine(GUICtrlRead($input1) & ".au3", "#NoTrayIcon")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "Global Const $MB_SYSTEMMODAL = 4096")
					FileWriteLine(GUICtrlRead($input1) & ".au3", 'Local $iLoop = 1, $sText = ""')
					FileWriteLine(GUICtrlRead($input1) & ".au3", "While $iLoop = 1")
					FileWriteLine(GUICtrlRead($input1) & ".au3", '$sText = InputBox("Password", "Please Enter Password","","*")')
					FileWriteLine(GUICtrlRead($input1) & ".au3", "If @error = 1 Then")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "Exit")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "Else")
					FileWriteLine(GUICtrlRead($input1) & ".au3", 'If $sText <> "' & GUICtrlRead($input2) & '" Then')
					FileWriteLine(GUICtrlRead($input1) & ".au3", 'MsgBox($MB_SYSTEMMODAL, "Error", "You Enter Wrong Password - Try Again!")')
					FileWriteLine(GUICtrlRead($input1) & ".au3", "Else")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "$iLoop = 0")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "EndIf")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "EndIf")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "WEnd")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "$Date=@mon&@mday&@hour&@min&@sec")
					FileWriteLine(GUICtrlRead($input1) & ".au3", "$ins = FileInstall(" & '"' & GUICtrlRead($input1) & '"' & ', @ScriptDir & "\" & $Date&".exe", 1)')
					FileWriteLine(GUICtrlRead($input1) & ".au3", "ProcessWaitClose($ins)")
					FileWriteLine(GUICtrlRead($input1) & ".au3", '$SA = FileSetAttrib(@ScriptDir & "\" & $Date&".exe","+SH")')
					FileWriteLine(GUICtrlRead($input1) & ".au3", "ProcessWaitClose($SA)")
					FileWriteLine(GUICtrlRead($input1) & ".au3", '$idRun = Run(@ScriptDir & "\" & $Date&".exe")')
					FileWriteLine(GUICtrlRead($input1) & ".au3", "ProcessWaitClose($idRun)")
					$wl = FileWriteLine(GUICtrlRead($input1) & ".au3", 'FileDelete(@ScriptDir & "\" & $Date&".exe")')
					ProcessWaitClose($wl)
					GUISetState(@SW_SHOW, $mgui)
				Else
				EndIf
			EndIf
		Case $mi2
			GUISetState(@SW_DISABLE, $mgui)
			GUISetState(@SW_SHOW, $form2)
		Case $buttonok
			GUISetState(@SW_HIDE, $form2)
			GUISetState(@SW_ENABLE, $mgui)
	EndSwitch
WEnd

Func _ischecked($idcontrolid)
	Return BitAND(GUICtrlRead($idcontrolid), $gui_checked) = $gui_checked
EndFunc