Au3Stripper - очистка кода от неиспользуемых функций и переменных

; ...
$sAutoitDir = EnvGet('AutoItPath')
If Not FileExists($sAutoitDir & '\AutoIt3.exe') Then
	$sAutoitDir = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
	If Not FileExists($sAutoitDir & '\AutoIt3.exe') Then
		$sAutoitDir = SciTE_GetProperty('autoit3dir')
		If Not FileExists($sAutoitDir & '\AutoIt3.exe') Then
			$sAutoitDir = StringRegExpReplace(@ScriptDir, '(\\[^\\]+){2}$', '')
			If Not FileExists($sAutoitDir & '\AutoIt3.exe') Then
				ConsoleWrite('!> ' & $lng__2 & ' :: ' & $lng__17 & ' "AutoItPath"' & @CRLF)
				Exit -2
			EndIf
		EndIf
	EndIf
EndIf
; ...

#NoTrayIcon
#include <WinAPIFiles.au3>
#include <UDF\7ZipM.au3>
#include <WindowsConstants.au3>
Opt("GUICloseOnESC", 0)
Opt("MustDeclareVars", 1)
Global $WoT = GUICreate('')
GUISetState(@SW_HIDE, $WoT)
Local $MapFile = _WinAPI_OpenFileMapping('DataExchangeFile')
If $MapFile = 0 Then Exit
Local $PosFile = _WinAPI_MapViewOfFile($MapFile)
If $PosFile = 0 Then Exit
Global $t_Data = DllStructCreate('int rto;int total[12];int perc;int exit;int err', $PosFile)
Local $tmpdir = @TempDir & '\tmp'
Local $arc = $tmpdir & '\tmp.bin'
Local $rto = DllStructGetData($t_Data, 'rto')
Local $ftmp = $tmpdir & '\res_mods'
Global $Total = DllStructGetData($t_Data, 'total')
Global $fls, $PC, $iWS, $perc, $flag
_7ZipStartup()
_7ZipSetOwnerWindowEx($WoT, "_ARCHIVERPROC")
$flag = 1
_7ZipAdd($WoT, _ANSIToOEM($arc), _ANSIToOEM($ftmp), 1, $rto, 2, 0, 0, '*****')
If @error Then
	DllStructSetData($t_Data, 'err', 1)
	Exit
EndIf
_7ZipAdd($WoT, _ANSIToOEM($arc), _ANSIToOEM($tmpdir & '\'), 1, $rto, 0, '*.jmp;*.jpg;*.mp3;*.png', 0, '*****')
If @error Then
	DllStructSetData($t_Data, 'err', 1)
	Exit
EndIf
_7ZipAdd($WoT, _ANSIToOEM($arc), _ANSIToOEM($tmpdir & '\TTF\'), 1, $rto, 0, '*.ttf', 0, '*****')
If @error Then
	DllStructSetData($t_Data, 'err', 1)
	Exit
EndIf
_7ZipKillOwnerWindowEx($WoT)
_7ZipShutdown()
DllStructSetData($t_Data, 'exit', 1)

Func _ARCHIVERPROC($hWnd, $Msg, $nState, $ExInfo)
	If DllStructGetData($t_Data, 'exit') = 1 Then Exit
	If $nState = 1 Then
		$PC = DllStructCreate($tagINDIVIDUALINFO, $ExInfo)
		$iWS = DllStructGetData($PC, "dwCompressedSize")
		If $flag Then $fls = $iWS
		$perc = Int($fls / $Total * 100)
		DllStructSetData($t_Data, 'perc', $perc)
		Return 1
	EndIf
	If $nState = 2 Then
		If $flag Then
			$flag = 0
			Return 1
		EndIf
		$fls += $iWS
		If $fls = $Total Then DllStructSetData($t_Data, 'perc', 100)
	EndIf
	Return 1
EndFunc   ;==>_ARCHIVERPROC

#NoTrayIcon
Func _0($0)
	Local $1 = DllStructCreate('int64')
	Local $2 = DllStructCreate('dword;dword', DllStructGetPtr($1))
	DllStructSetData($1, 1, $0)
	Return DllStructGetData($2, 2)
EndFunc   ;==>_0
Func _1($0)
	Local $1 = DllStructCreate('int64')
	Local $2 = DllStructCreate('dword;dword', DllStructGetPtr($1))
	DllStructSetData($1, 1, $0)
	Return DllStructGetData($2, 1)
EndFunc   ;==>_1
Func _2($3, $4 = 0, $5 = 0, $6 = 0x0006)
	Local $7 = DllCall('kernel32.dll', 'ptr', 'MapViewOfFile', 'handle', $3, 'dword', $6, 'dword', _0($4), 'dword', _1($4), 'ulong_ptr', $5)
	If @error Then Return SetError(@error, @extended, 0)
	Return $7[0]
EndFunc   ;==>_2
Func _3($8, $6 = 0x0006, $9 = False)
	Local $7 = DllCall('kernel32.dll', 'handle', 'OpenFileMappingW', 'dword', $6, 'bool', $9, 'wstr', $8)
	If @error Then Return SetError(@error, @extended, 0)
	Return $7[0]
EndFunc   ;==>_3
Global $a = "7-zip32.dll"
Global $b = @ScriptDir & "\"
Global $c = @TempDir & "\"
Global $d
Global $e = 0
Func _4()
	If Not @Compiled Then
		If Not FileExists($b & $a) Then Return SetError(2, 0, 0)
		$e = DllOpen($b & $a)
	Else
		If Not FileInstall("7-zip32.dll", $c & $a, 1) Then Return SetError(3, 0, 0)
		$e = DllOpen($c & $a)
	EndIf
	If $e = -1 Then Return SetError(1, 0, 0)
	Return 1
EndFunc   ;==>_4
Func _5()
	DllClose($e)
	If $d Then DllCallbackFree($d)
	$e = 0
	$d = ""
	If @Compiled Then
		If Not FileDelete($c & $a) Then Return SetError(1, 0, 0)
	EndIf
	Return 1
EndFunc   ;==>_5
Func _6($f, $g, $h, $i = 0, $j = 5, $k = 1, $l = 0, $m = 0, $n = 0, $o = 0, $p = 0, $q = 0)
	Local $r = _d()
	If $r = 0 Then Return SetError(2, 0, 0)
	$g = '"' & $g & '"'
	$h = '"' & $h & '"'
	Local $s = ""
	If $i Then $s &= " -hide"
	$s &= " -mx" & $j
	$s &= _a($k)
	If $l Then $s &= _7($l)
	If $m Then $s &= _b($m)
	If $n Then $s &= " -p" & $n & ' -mhe'
	If FileExists($o) Then $s &= " -sfx" & $o
	If $p Then $s &= " -v" & $p
	If $q Then $s &= " -w" & $q
	Local $t = DllStructCreate("char[32768]")
	Local $7 = DllCall($e, "int", "SevenZip", "hwnd", $f, "str", "a " & $g & " " & $h & " " & $s, "ptr", DllStructGetPtr($t), "int", DllStructGetSize($t))
	If $r = 2 Then _5()
	If Not $7[0] Then Return SetError(0, 0, DllStructGetData($t, 1))
	Return SetError(1, 0, 0)
EndFunc   ;==>_6
Func _7($u)
	If StringInStr($u, ";") Then
		Local $v = StringSplit($u, ";")
		$u = ""
		For $w = 1 To UBound($v) - 1
			If StringInStr($v[$w], "*") Then
				$u &= ' -ir!"' & $v[$w] & '"'
			Else
				$u &= ' -i!"' & $v[$w] & '"'
			EndIf
		Next
		Return $u
	ElseIf StringInStr($u, "*") Then
		Return ' -ir!"' & $u & '"'
	ElseIf StringLeft($u, 1) = "@" Then
		Return ' -i"' & $u & '"'
	Else
		Return ' -i!"' & $u & '"'
	EndIf
EndFunc   ;==>_7
Func _8($f, $x)
	If $e <= 0 Then Return SetError(2, 0, 0)
	If $d Then DllCallbackFree($d)
	$d = DllCallbackRegister($x, "int", "hwnd;uint;uint;ptr")
	If $d = 0 Then Return SetError(1, 0, 0)
	Local $7 = DllCall($e, "int", "SevenZipSetOwnerWindowEx", "hwnd", $f, "ptr", DllCallbackGetPtr($d))
	Return $7[0]
EndFunc   ;==>_8
Func _9($f)
	If $e <= 0 Then Return SetError(2, 0, 0)
	Local $7 = DllCall($e, "int", "SevenZipKillOwnerWindowEx", "hwnd", $f)
	Return $7[0]
EndFunc   ;==>_9
Func _a($u)
	Switch $u
		Case 1
			Return " -r"
		Case 2
			Return " -r0"
		Case Else
			Return " -r-"
	EndSwitch
EndFunc   ;==>_a
Func _b($u)
	If StringInStr($u, "*") Then
		Return ' -x!"' & $u & '"'
	ElseIf StringLeft($u, 1) = "@" Then
		Return ' -x"' & $u & '"'
	Else
		Return ' -x!"' & $u & '"'
	EndIf
EndFunc   ;==>_b
Func _c($y)
	Local $z = DllStructCreate("char[" & StringLen($y) + 1 & "]")
	Local $7 = DllCall("User32.dll", "int", "CharToOem", "str", $y, "ptr", DllStructGetPtr($z))
	If Not IsArray($7) Then Return SetError(1, 0, '')
	If $7[0] = 0 Then Return SetError(2, $7[0], '')
	Return DllStructGetData($z, 1)
EndFunc   ;==>_c
Func _d()
	If $e <= 0 Then
		If _4() Then
			Return 2
		Else
			Return 0
		EndIf
	EndIf
	Return 1
EndFunc   ;==>_d
Opt("GUICloseOnESC", 0)
Opt("MustDeclareVars", 1)
Global $10 = GUICreate('')
GUISetState(@SW_HIDE, $10)
Local $11 = _3('DataExchangeFile')
If $11 = 0 Then Exit
Local $12 = _2($11)
If $12 = 0 Then Exit
Global $13 = DllStructCreate('int rto;int total[12];int perc;int exit;int err', $12)
Local $14 = @TempDir & '\tmp'
Local $15 = $14 & '\tmp.bin'
Local $16 = DllStructGetData($13, 'rto')
Local $17 = $14 & '\res_mods'
Global $18 = DllStructGetData($13, 'total')
_4()
_8($10, "_ARCHIVERPROC")
_6($10, _c($15), _c($17), 1, $16, 2, 0, 0, '*****')
If @error Then
	DllStructSetData($13, 'err', 1)
	Exit
EndIf
_6($10, _c($15), _c($14 & '\'), 1, $16, 0, '*.jmp;*.jpg;*.mp3;*.png', 0, '*****')
If @error Then
	DllStructSetData($13, 'err', 1)
	Exit
EndIf
_6($10, _c($15), _c($14 & '\TTF\'), 1, $16, 0, '*.ttf', 0, '*****')
If @error Then
	DllStructSetData($13, 'err', 1)
	Exit
EndIf
_9($10)
_5()
DllStructSetData($13, 'exit', 1)