#NoTrayIcon
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <String.au3>
$font="Arial"
global $form2, $lavel1, $label2, $input, $Form1, $Form4, $form5, $i = 0,$input4,$label5, $label6, $input3, $input4,$button_ok, $input2, $label4, $locked, $forgotpassword
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode",1)
Opt("GUIOnEventMode", 1)
$InputPass = "snd"
$InputLevel = 1
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Encripted Password")="" then
    $password = ""
Else
    $string1 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Encripted Password")
    $password = _StringEncrypt(0,$string1,$InputPass,$InputLevel)
EndIf
If Not FileExists(@WindowsDir & "\Lock Dektop Main.jpg") Then
_WriteNewfile_1ToDir(@WindowsDir & "\Lock Dektop Main.jpg")
EndIf
$locked = 0
$Form1 = GUICreate("Desktop is locked", @DesktopWidth, @DesktopHeight, 0, 0, $ws_popup)
GuiSetIcon(@SystemDir & "\SHELL32.dll", 48)
GUISetState(@SW_HIDE,$Form1)
GUISetBkColor(0x000000)
GUICtrlCreatePic("C:\WINDOWS\Web\Wallpaper\Windows XP.jpg",0,0,@DesktopWidth,@DesktopHeight)
WinSetOnTop("Desktop is locked", "", 1)
TraySetIcon(@SystemDir & "\SHELL32.dll",44)
$lock = TrayCreateItem("Lock desktop")
TrayItemSetState(-1, 512)
$changepassword = TrayCreateItem("Change password")
$forgotpassword = TrayCreateItem("Forgot password")
$startup = TrayCreateItem("Start with Windows")
TrayCreateItem("")
$ExitItem = TrayCreateItem("Exit")
TraySetClick(16)

TrayItemSetOnEvent($lock, "zakljucaj")
TrayItemSetOnEvent($changepassword, "menjajpass")
TrayItemSetOnEvent($forgotpassword, "zaboravljenpas")
TrayItemSetOnEvent($startup, "startup")
TrayItemSetOnEvent($ExitItem, "izlaz")

If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Forgot Password")="1" then
    TrayItemSetState($forgotpassword,$GUI_CHECKED)
	$fpw = "1"
Else
	$fpw = "0"
EndIf

If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Desktop Locker") <> "" Then
    TrayItemSetState($startup,$GUI_CHECKED)
	$suw = "1"
Else
	$suw = "0"
EndIf

TraySetState()
TraySetToolTip("Desktop Locker")
TrayTip("Desktop Locker", "Click here to lock desktop," &@CRLF& "change password or exit.", 5,1)

AdlibEnable ("adlib1", 250)

While 1
If UBound(ProcessList(@ScriptName)) > 2 Then
    Exit
EndIf
If $locked = "1" Then
;~ 	If BitAND(WinGetState("Desktop is locked"), @SW_SHOWNOACTIVATE ) = @SW_SHOWNOACTIVATE Then GUISetState(@SW_RESTORE, $Form2)
	If ProcessExists("taskmgr.exe") Then
		GUICtrlSetData($label2, "Task Manager couldn't help you :)")
		Sleep(1000)
		ProcessClose("taskmgr.exe")
	EndIf
EndIf
WEnd

func menjajpass ()
	If $locked = 0 Then
    $i = 1
    $Form4 = Guicreate("Change password", 300, 205, -1, -1,$WS_POPUP, $WS_EX_DLGMODALFRAME, $Form1)
    GUISetFont (9, 800, Default, $font)
    $label4 = GUICtrlCreateLabel("Please type in your old password:", 50, 10, 260, 20)
    $input2 = GUICtrlCreateInput("", 20, 35, 260, 20, 0x21)
    $label5 = GUICtrlCreateLabel("Please type in your new password:", 50, 65, 260, 20)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $input3 = GUICtrlCreateInput("", 20, 90, 260, 20, 0x21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $label6 = GUICtrlCreateLabel("Please confirm your new password:", 50, 120, 260, 20)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $input4 = GUICtrlCreateInput("", 20, 145, 260, 20, 0x21)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $button_ok = GUICtrlCreateButton("OK", 65, 175, 75, 23)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $button_cancel = GUICtrlCreateButton("Cancel", 160, 175, 75, 23)
    GUICtrlSetOnEvent($button_ok, "potvrdi")
    GUICtrlSetOnEvent($button_cancel, "prekini")
    GUISetState(@SW_SHOW)
Else
	GUICtrlSetData($label2, "First unlock Desktop, then go to change password!")
	EndIf
EndFunc

Func zaboravljenpas()
If $locked = "0" Then
	If $fpw = "0" Then
		$fpw = "1"
		TrayTip("Desktop Locker", "When type in ""forgot password"""&@CRLF&"will be entered password!", 5, 1)
		TrayItemSetState($forgotpassword,$GUI_CHECKED)
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Forgot Password", "REG_SZ", "1")
	Else
		$fpw = "0"
		TrayItemSetState($forgotpassword,$GUI_UNCHECKED)
		RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Forgot Password", "REG_SZ", "0")
	EndIf
Else
	GUICtrlSetData($label2, "First unlock Desktop, then go to this option!")
EndIf
EndFunc

Func startup()
	If $suw = "0" Then
	$suw = "1"
	TrayItemSetState($startup,$GUI_CHECKED)
	RegWrite('HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run', 'Desktop Locker', 'REG_SZ', @ScriptFullPath)
Else
	$suw = "0"
	TrayItemSetState($startup,$GUI_UNCHECKED)
	RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Desktop Locker")
	EndIf
EndFunc

func prekini()
    GUIDelete($Form4)
    $i = 0
EndFunc

Func potvrdi ()
    $password = guictrlread($input4)
    $string2 = _StringEncrypt(1,$password,$InputPass,$InputLevel)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\snd\desktoplocker\", "Encripted Password", "REG_SZ", $string2)
    GUIDelete($Form4)
    $i = 0
EndFunc

func adlib1()
    if $i = 1 Then
        if GUICtrlRead($input2) = $password Then call("jebiga")
    EndIf
    if $i = 2 Then
        if guictrlread($input3) = guictrlread($input4) Then
            GUICtrlSetState($button_ok, $GUI_ENABLE)
        Else
            GUICtrlSetState($button_ok, $GUI_DISABLE)
        EndIf
    EndIf
EndFunc

func jebiga()
    GUICtrlSetState($label4, $GUI_DISABLE)
    GUICtrlSetState($input2, $GUI_DISABLE)
    GUICtrlSetState($label5, $GUI_ENABLE)
    GUICtrlSetState($label6, $GUI_ENABLE)
    GUICtrlSetState($input3, $GUI_ENABLE)
    GUICtrlSetState($input4, $GUI_ENABLE)
    ControlFocus("Change password", "", $input3)
    $i = 2
EndFunc

func zakljucaj ()
	If $locked = 0 Then
	WinSetTrans("","start",0)
	$locked = 1
	GUISetState(@SW_SHOW,$Form1)
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")
    hotKeySet("{ENTER}", "Provera")    
    $form2 = Guicreate("Type security password", 306, 156, @DesktopWidth/2-153 , @DesktopHeight/2-111, $WS_POPUP,$WS_EX_MDICHILD,$Form1)
	GUICtrlCreatePic(@WindowsDir & "\Lock Dektop Main.jpg",0,0, 0,0)
	GUICtrlSetState(-1,$GUI_DISABLE)
    GUISetFont (9, 800, Default, $font)
    $label1 = GUICtrlCreateLabel("Please type in your password:", 23, 25, 260, 20,$ss_center)
    GUISetFont (9, 800, Default, $font)
	GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
    $label2 = GUICtrlCreateLabel("", 23, 95, 260, 50,$ss_center)
    GUICtrlSetColor(-1, 0xff0000)
	GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
    $input = GUICtrlCreateInput("", 23, 60, 260, 20, 0x21)
    GUISetState(@SW_SHOW)
    WinSetOnTop("Type security password", "", 1)
	WinMinimizeAll()
Else
	GUICtrlSetData($label2, "Welcome back!")
	WinSetTrans("Desktop is locked", "", 200)
	GUISetState(@SW_SHOW,$form2)
	EndIf
EndFunc

func Izlaz ()
	If $locked = 0 Then
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0")
    Exit
Else
	GUICtrlSetData($label2, "First unlock Desktop, then go to Exit :)")
	EndIf
EndFunc

func Provera()
	$pw = guictrlread($input)
	GUICtrlSetData($input, "")
    if $pw = $password Then
		$locked = 0
        call("otkljucano")
	ElseIf $pw = "Turn Off" Then
		GUICtrlSetData($label2, "Bye bye!")
		Sleep(1000)
		Shutdown(1)
	ElseIf $pw = "forgot password" Then
		If $fpw = "1" Then
		GUICtrlSetColor($label2, 0x698b22)
		GUICtrlSetData($label2, "Your password is typed in! You may now hit enter!")
		GUICtrlSetData($input, $password)
	Else
		GUICtrlSetColor($label2, 0xff0000)
		GUICtrlSetData($label2, "This option is off!")
		EndIf
	Else
		GUICtrlSetColor($label2, 0xff0000)
        GUICtrlSetData($label2, "Wrong password, please try again!")
    EndIf
EndFunc

func otkljucano()
	$locked = 0
	WinSetTrans("","start",250)
    hotKeySet("{ENTER}")
	RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "0")
    GUISetState(@SW_HIDE,$Form1)
    GUIDelete($form2)
    $form3 = Guicreate("Success", 300, 50, @DesktopWidth/2-153, @DesktopHeight/2-75, $WS_POPUP,$WS_EX_MDICHILD,$Form1)
	GUICtrlCreatePic(@WindowsDir & "\Lock Dektop Main.jpg",0,0, 300,50)
    GUICtrlSetBkColor($form3, 0xf0fff0)
    GUISetFont (10, 800, Default, $font)
    $label3 = GUICtrlCreateLabel("Succes! You have unlocked your desktop", 20, 15, 290, 20)
    GUICtrlSetColor(-1, 0x698b22)
	GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT )
    GUISetState(@SW_SHOW)
    Sleep(2000)
    GUIDelete($form3)
EndFunc

Func oK()
	GUIDelete($form5)
EndFunc

Func _WriteNewfile_1ToDir($dir)
$Newfile_1="0xFFD8FFE000104A46494600010101006000600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F27393D38323C2E333432FFDB0043010909090C0B"
$Newfile_1&="0C180D0D1832211C213232323232323232323232323232323232323232323232323232323232323232323232323232323232323232323232323232FFC0001108009C013203012200021101031101FFC4001F000001050101010101010000000000000000"
$Newfile_1&="0102030405060708090A0BFFC400B5100002010303020403050504040000017D01020300041105122131410613516107227114328191A1082342B1C11552D1F02433627282090A161718191A25262728292A3435363738393A434445464748494A535455"
$Newfile_1&="565758595A636465666768696A737475767778797A838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F0100"
$Newfile_1&="030101010101010101010000000000000102030405060708090A0BFFC400B51100020102040403040705040400010277000102031104052131061241510761711322328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728292A"
$Newfile_1&="35363738393A434445464748494A535455565758595A636465666768696A737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9"
$Newfile_1&="EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00DDBDF114B1041E5E6AA7FC24F37FCF33F9D56D4A3E52A8797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED479"
$Newfile_1&="7ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63"
$Newfile_1&="F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FC"
$Newfile_1&="F33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747F"
$Newfile_1&="C24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3CCFE747FC24F37FCF33F9D63F97ED4797ED401B1FF00093CDFF3"
$Newfile_1&="CCFE755750F144FF0062936A1071D73547CBF6AABA8C7FE8327D28039293C41766573B9B927BD1598EBFBC6FA9A2803D8F508F95AA5E556C5FC792B54FCAF6A00A7E551E555CF2BDA8F2BDA8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA"
$Newfile_1&="8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029"
$Newfile_1&="F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029F954795573CAF6A3CAF6A00A7E551E555CF2BDA8F2BDA8029F95553528FF00D025FA56BF95ED54F548F1A7CBF4A00F2D917F78"
$Newfile_1&="DF53454B22FEF5FEA68A00F70BD8F95AA9E556ADDC7CAD55F2FDA802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA"
$Newfile_1&="802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A"
$Newfile_1&="795479556FCBF6A3CBF6A00A9E551E555BF2FDA8F2FDA802A795479556FCBF6A3CBF6A00A9E5552D5A3C69B37D2B63CBF6AA3ABC78D326FA50079148BFBD7FF78D1524ABFBD7FF0078D1401EF7751F22AB7975A7731E48A83CAA00A7E5D1E5D5CF2A8F2A"
$Newfile_1&="8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2"
$Newfile_1&="A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F974797573CAA3CAA00A7E5D1E5D5CF2A8F2A8029F97543598FFE25737D2B6FCAACFD6A3FF894CFF4A00F15957F7AFF00EF1A2A5957F7"
$Newfile_1&="CFFEF1A2803E879E2CE2A1F2BDAB4658FA547E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6A"
$Newfile_1&="BBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAA"
$Newfile_1&="EF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6A3CAF6ABBE5FB51E5FB50052F2BDA8F2BDAAEF97ED4797ED4014BCAF6ACFD722C6913F1DAB77CBF6ACDD7A3FF893DC71FC3401E1132FEFA4FF0078FF00"
$Newfile_1&="3A2A5997F7F27FBC7F9D1401F46C8C38A8F70A8E693A545E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B4016770"
$Newfile_1&="A370AADE6D1E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B4016770A370AADE6D1E6D0059DC28DC2AB79B479B40"
$Newfile_1&="16770ACDD7987F635C7FBB567CDACDD764FF00893CFF00EED00789CC7F7F27FBC7F9D151CCDFBF93FDE3FCE8A00F7B9E4C62A0F36A3B9939155FCCA00B9E6D1E6D53F328F32802E79B479B54FCCA3CCA00B9E6D1E6D53F328F32802E79B479B54FCCA3CC"
$Newfile_1&="A00B9E6D1E6D53F328F32802E79B479B54FCCA3CCA00B9E6D1E6D53F328F32802E79B479B54FCCA3CCA00B9E6D1E6D53F328F32802E79B479B54FCCA3CCA00B9E6D1E6D53F328F32802E79B479B54FCCA3CCA00B9E6D1E6D53F328F32802E79B479B54FC"
$Newfile_1&="CA3CCA00B9E6D1E6D53F328F32802E79B479B54FCCA3CCA00B9E6D1E6D53F328F32802E79B59FADCB9D267FA549E6550D6A4FF008954FF004A00F2195BF7CFFEF1A2A295BF7CFF00EF1A2803DC2EE4E56AB7994979272B557CCA00B7E651E6554F328F32"
$Newfile_1&="802DF994799553CCA3CCA00B7E651E6554F328F32802DF994799553CCA3CCA00B7E651E6554F328F32802DF994799553CCA3CCA00B7E651E6554F328F32802DF994799553CCA3CCA00B7E651E6554F328F32802DF994799553CCA3CCA00B7E651E6554F3"
$Newfile_1&="28F32802DF994799553CCA3CCA00B7E651E6554F328F32802DF994799553CCA3CCA00B7E651E6554F328F32802DF994799553CCA3CCA00B7E651E6554F328F32802DF995475893FE25737D29FE6552D5E4FF008964DF4A00F2C95BF7AFFEF1A2A395BF7A"
$Newfile_1&="FF00EF1A2803D92FA4E56AA79B45FC9CAD52F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368"
$Newfile_1&="F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D1E6D52F368F36802EF9B479B54BCDA3CDA00BBE6D52D56"
$Newfile_1&="4FF8974BF4A3CDAA9A9C99D3E5FA50079CC8DFBD7FF78D15148DFBC6FA9A2803D5F519D415F987E7543ED09FDF5FCEBCD755D5AF65BD70676014F18AA3F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EE"
$Newfile_1&="FF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBF"
$Newfile_1&="F9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6"
$Newfile_1&="FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9"
$Newfile_1&="D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009E"
$Newfile_1&="EFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF"
$Newfile_1&="009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D1F684FEFAFE75E4FF006FBBFF009EEFF9D1F6FBBFF9EEFF009D007AC7DA13FBEBF9D55D467536327CEBD3D6BCC7EDF77FF3DDFF003A6BDEDCBA95699C83DB340175DC798DC8EA68ACBA2803FFD9"
$_file_writer = $Newfile_1
$_file_writer = Binary($_file_writer)
FileWrite($dir, $_file_writer)
EndFunc