HotKeySet ( '{ESC}', '_Exit' ) ; uFMOD constants : Global Const $XM_RESOURCE = 0 Global Const $XM_MEMORY = 1 Global Const $XM_FILE = 2 Global Const $XM_NOLOOP = 8 Global Const $XM_SUSPENDED = 16 Global Const $uFMOD_MIN_VOL = 0 Global Const $uFMOD_MAX_VOL = 25 Global Const $uFMOD_DEFAULT_VOL = 25 ;~ uFMOD Functions : ;~ uFMOD_GetRowOrder ;~ uFMOD_GetStats ;~ uFMOD_GetTime ;~ uFMOD_GetTitle ;~ uFMOD_Jump2Pattern ;~ uFMOD_Pause ;~ uFMOD_PlaySong ;~ uFMOD_Resume ;~ uFMOD_SetVolume Global $hUfmodDll = _uFMOD_Startup() $xmfile = Smurfesquexm() _uFMOD_PlaySong ( $xmfile, 1 ) While 1 Sleep ( 250 ) WEnd Func _Base64Decode ( $input_string ) ; by trancexx Local $struct = DllStructCreate ( 'int' ) Local $a_Call = DllCall ( 'Crypt32.dll', 'int', 'CryptStringToBinary', 'str', $input_string, 'int', 0, 'int', 1, 'ptr', 0, 'ptr', DllStructGetPtr ( $struct, 1 ), 'ptr', 0, 'ptr', 0 ) If @error Or Not $a_Call[0] Then Return SetError ( 1, 0, '' ) Local $a = DllStructCreate ( 'byte[' & DllStructGetData ( $struct, 1 ) & ']' ) $a_Call = DllCall ( 'Crypt32.dll', 'int', 'CryptStringToBinary', 'str', $input_string, 'int', 0, 'int', 1, 'ptr', DllStructGetPtr ( $a ), 'ptr', DllStructGetPtr ( $struct, 1 ), 'ptr', 0, 'ptr', 0 ) If @error Or Not $a_Call[0] Then Return SetError ( 2, 0, '' ) Return DllStructGetData ( $a, 1 ) EndFunc ;==> _Base64Decode() Func _Exit() HotKeySet ( '{ESC}' ) _uFMOD_FadeOut() _uFMOD_StopSong() _uFMOD_Shutdown() Exit EndFunc ;==> _Exit() Func _LzntDecompress ( $bBinary ); by trancexx $bBinary = Binary ( $bBinary ) Local $tInput = DllStructCreate ( 'byte[' & BinaryLen ( $bBinary ) & ']' ) DllStructSetData ( $tInput, 1, $bBinary ) Local $tBuffer = DllStructCreate ( 'byte[' & 16*DllStructGetSize ( $tInput ) & ']' ) Local $a_Call = DllCall ( 'ntdll.dll', 'int', 'RtlDecompressBuffer', 'ushort', 2, 'ptr', DllStructGetPtr ( $tBuffer ), 'dword', DllStructGetSize ( $tBuffer ), 'ptr', DllStructGetPtr ( $tInput ), 'dword', DllStructGetSize ( $tInput ), 'dword*', 0 ) If @error Or $a_Call[0] Then Return SetError ( 1, 0, '' ) Local $tOutput = DllStructCreate ( 'byte[' & $a_Call[6] & ']', DllStructGetPtr ( $tBuffer ) ) Return SetError ( 0, 0, DllStructGetData ( $tOutput, 1 ) ) EndFunc ;==> _LzntDecompress() Func _uFMOD_FadeOut ( $iVol = $uFMOD_DEFAULT_VOL ) For $i = $iVol To 0 Step -1 _uFMOD_SetVolume ( $i ) Sleep ( 200 ) Next EndFunc ;==> _uFMOD_FadeOut() Func _uFMOD_Pause() Local $aRet = DllCall ( $hUfmodDll, 'int', 'uFMOD_Pause' ) If @error Or Not $aRet[0] Then Return SetError ( 1, 0, 0 ) Return 1 EndFunc ;==> _uFMOD_Pause() Func _uFMOD_PlaySong ( $Xm, $iLoop=1 ) _XmCheckHeader ( $Xm ) If @error Then Return SetError ( 1, 0, 0 ) Local $aRet, $tXm If $iLoop Then $iLoop = 0 Else $iLoop = $XM_NOLOOP EndIf If Not IsBinary ( $Xm ) Then If Not FileExists ( $Xm ) Then Return SetError ( -1, 0, 0 ) $aRet = DllCall ( $hUfmodDll, 'int', 'uFMOD_PlaySong', 'STR', $xmfile, 'uint', 0, 'uint', $XM_FILE + $iLoop ) If @error Or Not $aRet[0] Then Return SetError ( 2, 0, 0 ) Else $tXm = DllStructCreate ( 'byte[' & BinaryLen ( $Xm ) & ']') DllStructSetData ( $tXm, 1, $Xm ) $aRet = DllCall ( $hUfmodDll, 'int', 'uFMOD_PlaySong', 'ptr', DllStructGetPtr ( $tXm ), 'int', DllStructGetSize ( $tXm ), 'int', $XM_MEMORY + $iLoop ) If @error Or Not $aRet[0] Then Return SetError ( 3, 0, 0 ) $tXm = 0 EndIf Return 1 EndFunc ;==> _uFMOD_PlaySong() Func _uFMOD_Resume() Local $aRet = DllCall ( $hUfmodDll, 'int', 'uFMOD_Resume' ) If @error Or Not $aRet[0] Then Return SetError ( 1, 0, 0 ) Return 1 EndFunc ;==> _uFMOD_Resume() Func _uFMOD_SetVolume ( $iVol = $uFMOD_DEFAULT_VOL ) If $iVol < $uFMOD_MIN_VOL Then $iVol = $uFMOD_MIN_VOL If $iVol > $uFMOD_MAX_VOL Then $iVol = $uFMOD_MAX_VOL Local $aRet = DllCall ( $hUfmodDll, 'int', 'uFMOD_SetVolume', 'int', $iVol ) If @error Or Not $aRet[0] Then Return SetError ( 1, 0, 0 ) Return 1 EndFunc ;==> _uFMOD_SetVolume() Func _uFMOD_Shutdown() _uFMOD_StopSong() DllClose ( $hUfmodDll ) FileDelete ( @TempDir & '\ufmod.dll' ) EndFunc ;==> _uFMOD_Shutdown() Func _uFMOD_Startup() UfmodDll ( 'ufmod.dll', @TempDir ) Local $hOpen = DllOpen ( @TempDir & '\ufmod.dll' ) If $hOpen = -1 Then Return SetError ( 1, 0, 0 ) Return SetError ( 0, 0, $hOpen ) EndFunc ;==> _uFMOD_Startup() Func _uFMOD_StopSong() Local $aRet = DllCall ( $hUfmodDll, 'int', 'uFMOD_PlaySong', 'ptr', 0, 'int', 0, 'int', 0 ) If @error Or Not $aRet[0] Then Return SetError ( 1, 0, 0 ) Return 1 EndFunc ;==> _uFMOD_StopSong() Func _XmCheckHeader ( $Xm ) Local $bXm If Not IsBinary ( $Xm ) Then If Not FileExists ( $Xm ) Then Return SetError ( -1, 0, 0 ) Local $hFileOpen = FileOpen ( $Xm, 0 ) If $hFileOpen = -1 Then Return SetError ( 1, 0, 0 ) $bXm = FileRead ( $hFileOpen ) FileClose ( $hFileOpen ) Else $bXm = $Xm EndIf If StringTrimLeft ( BinaryMid ( $bXm, 1, 15 ), 2 ) = '457874656E646564204D6F64756C65' Then Return SetError ( 0, 0, 1 ) ;~ Some people clear or scramble 'Extended module' text in their XM files when embedding into an EXE to prevent others from ripping the track. Local $StrippedFlag = StringTrimLeft ( BinaryMid ( $bXm, 38, 1 ), 2 ) ;~ At offset 37 there is a hex value 0x1A in a normal XM file or 0x00 in a Stripped on. If $StrippedFlag = '1A' Or $StrippedFlag = '00' Then Return SetError ( 0, 0, 2 ) Return SetError ( 2, 0, 0 ) EndFunc ;==> _XmCheckHeader() Func Smurfesquexm() ; Code Generated by BinaryToAu3Kompressor. Local $sFileBin = 'OLQARXh0ZW5kZWQAIE1vZHVsZToAIFNtdXJmLUUAc3F1ZSAnOTgCAAEAGk1PRDJYYE0gMS4wAjwCAARAARQBAAATARIACAwAHwAOBgB9AAAHCQoGBgMBBQAFBAQAAAIAAlgFCwgHZOAACQECQAAAfgODPQWTPQACN4MxDptEBgAKCoCQN5sxDhAME5tAAAaDRAcAkz0EN4M9DptKPYQNPYYNRguAGyc1gRtCgg0niBuBDQQn/YcbJ4gbxDcBGEgORBVFDgOBEcscOQJHgzkORJtFwhVHmznJHDkQBEeDRcUcR5tFvckcOcAcwA3CKgAKJ0wOX0AVRQ6BEcgOwBw7QAcvUcVHR5svyRU7wBw7hcccO9ANPwYEgsUN5IgEBw2IBEUMQAW/U/+/b79vv2/fN9833zffN983k8k3xHCkAuAGiAygI6iAgIDCIoDAE4DgIUvhAQEhgOEHMQYBL4DjhTVhBJMxCgE1YAIDJrdgBkAp8AQ97QTpCSDpCdog4wQw5gkAEzkCEWEnnQMTReIBoSUCCTkGoTPngAYjMwIJOQphK2IC4wTdBBMvgxChIgQTN4AiYgJ7YSLiCTvgCeIEoyfiBDv/4AniBGMnBBM/Jj8mPyY/JsEwJptGCwwFpCZhAbYJJCdhAQykJ2EBEOJb2yIowQEV5luAARknKcEBvhzmW4ABoA4lKsEBJaUqbYEBKScrwQEspSuBATC3YlQiLMEBNWZbgAE5Jy2twQE8ZluAAUBqxj/AdXYzgAQEfTOBBCFlAQg/bYCAPwFgYwM/ZgMgKD/3AHLgBoOHJ+gGYQOAjuYG3ifoBv8N/wb/BoABBpgD31QFlQNhBDsHhDxHCUA1B7sPQDcHOzAHwRVSBTswB7+bA1AFlQNhBLgDYlBHx1W2RyNSdQU9MAfGVUcDUv18A0FER3EDQ0dDA0NHEQP/M2PvFO8U7xTvG+8b7xv/Bv//Bv8G/wbvG+8b7xvvG+8b/+8b7xvvG+8b7xvvG+8b7xsX7xvoG2Q4fTZjmz0BGxAFU1CY4ERzUJs4AUQMILRQmAwF10ubiDEBDAZ/mAwCN1EYmywBEEv0TpgMAfmXUYgMr1GvUa9Rr1HPZP/PZM9kz2TPZM9kz2TPZM9k/89kz2TPZM9kHxMfEx8THxP/HxMfEx8THxMfEx8THxMfE/tzAlQogVYoICK1EiEKuRScRguxFBGeJAKQNzIBejEwAQQxAWECMAEhCgn35SaFEjEKDIQSw6YBBSAH7RIFJ9UD4BUFFAUxAVIGgTEBk0AJJ4M0BCyyQBUFQAxBASIaNBcF8EAOkzQSBTEB0ANxDF40MAESBbEDEwU/MAovOzQKNhM/MAq6FWIROw6n8ULQAzEBkEdSDy8wAf4EMQGxAzABcwvvE+8T7xP/7xPvE+8T7xPvE+sT8Qb/E///E/8T/xP0EyIFDxQPFAIUgrQAmy8ODBOQR4MARguAgy8OkztABEeAgJs7ApgJAgAAAEAA9AKDPQAFkz0CN4MxDoCIDICQN5sxAHgAgINEB5M9BDdQgz0OgAEmPQImRgoLAFAnAFCTMQY3SICQJwJUkCcCLgTCJwBWkzEKJwEuAVxGkAB4BbCDQAgFWZjkDCAHW4M/AhcBLgEXtwtfAVMDYSAFSQJhIAEZCQM0kDABGTkCR4MiOQK8R5s5Bbw5BIhHg0UBvEebRQVeAjkALjkOkzkGR3qAgA8nAhYAjoEWACFFvYAMCoIMAxmADAAuO4AMOi8DYEeCpgRUAKWDO3gOg0KCC4GogQuGF5OeO4AxBBgCv4QXkzuAMP8EGIMv/7x/Xn9eWF4BKlFeFj15XgS/wQi/mz0BFAoKx0oQx0qbOAEUDCBHSwVHS5sxAUYMwAwDS5gMAsdjmxAsAQwFBWSYDAH1sHqAx2GAh2FCBcUKhmD/QltgYKAHxS8jBaIvogJlBf8mKeIHwSjiB6MoYgJBKP8E/+gEAx9iHP8eYQKlHsYpYgJ/Zh7/Cf8o/yj/KP8o4SOb9iUCS2VYEKckgEQjA6NYahBoBjF2BjhrBiRZkcEhTJgPBIgM4EsAABibPQdgVgMAgz0HcSATMQk3YAFig6EBDHukASDDgEMGwgQEBkEEPX0KBj0FBqEEBQYAAygMNv0KBjY6DIECFQahAb8YvxjHvxi/GLAYm0YLjBJGBmejGkQGJDN7AUNRYVUKkA+bPQinjJs4gAHtwQkwZFHgAzTkAwFTggXpwg2IDAEGIAIGIBBgAbYQIgWBAxDAJOEBMWMDtWABBOAEDAAT4QQKcALltQADMAIMBHEMAQKAANqAwQECcQCAAQFxAHAB7gFhDqMOcAAPlA4PAA8A/w8ADwAPAA8ADwAPAA8ADwC8gIBFjtExIA3wJA9hD/+NJWYl4iBmJXIqlRCKJWYl89QABwM9BwcDiCU2IgMDvzUiHwblMQ8D1wDTIBDhGZ8yDaAMCAH0DBQBkDciAf9CDSoBcQdCJVYDQgTmADIOvxQBRgSADisB0A4BATBWA/9CBOYAcg8UAUYEsAwqAZUIIECbRgECUCiIDIyYAgAb8whAmAIAKu0hAQLELkMBBGM4gQGiAN4whgFROGIBxB9EQX4SBiwPBFABozATgQJEB2HwCA6YAghjMzABCMGSsjEOmAoDdgIzAf9wAjIBdQKQDn4C9AR6Av8Ee7MD/wSAcGUzAWFl9QRF/zQBQWX1BCKXYwLRZ0ECMS3vdWehvvEANXmAAnlzv/8B//8BAQsyQfYF4XKjCvMC+QH/wxH3Af8D/wP5AcMQ+wMBdv//DTV4/wH/D0N3Mw7zc1EO/wN3kw7zdrICwna+AoJ2tgL5xCQzA5+cH4hPu0+7T7v/T7tPu0+7T7sTA0+7T7uvjv+vjk+7T7vv0k+779JyAU+7/0+779KfF58XnxcCBJ8Xnxd3nxefF/UFMJ8XnxeZF5t+LSJ+wxdSewcY5H8TFZueObEBhhijg5YYm0CVAznCGJtF1AG0A9EBm0a+uAALDAqTOwJHgwAvDpsvCAoKmwBGCwwQkEebLyAODBObMwSAGpMAOwRHgzsOmzZVBEAgAIQ7AYQ7BEAqVQWGPwQgMAWGQgQgOhMFhgRCDpIJhgcBAAAAICOgYSBuIIBkIHIgbyBpAAcAISAjAAAAAQA2KAAFjwAgrAEhAIgDKAAAUIADOIADQAAGAQAbFIoAQ93mBgAkFvrZ6hMmBADw7O0DNBbG1AAzQ8q3KVndpAAQWQmw3j892gC0Bkkjw8EcTQAJtNoyOvDK/AAdA/cNDOfjEAAtBuDaCSQW9gDd8xAUDPDw+gAKEwPz7QMTCgD66fcQFgrs5AD8FBYQ8Mr3PAA50KgTXxOd1wBTSbqkLGnwmADwXzCwvSxU8wCw8UIjytQlNwDtxgAwDd32EwAD9AATAO32CgAT/fnzBwn99wAACQf89PkKEAD98/kECQADAAFBBPcDEwba6ikAKuPTAyAQ9+kA9BMg7dkNLQAAyf0tENrsHQ0A8/ATB+P2JyAA2c4MOgzg4AAAFxAJ9+bwExoADebnBhoQ8OYA9hcTCunnABwAF/ng7RAaDfMA6fANGgPz+vkA+goj+c36PRMAue5CJLnOPEYAzboWUPa98TYAI+DNBjAg1ssACUkdvcccQwoA1uf8DRMa/dYA5BMwDOTZABoAIPnk8AYWEAAA5OwKHRPt2fQAICYD2uAJIBQAAOzd8S836bEA7VU0wLQfWQAApOBcQK2nOWoA5pH6ZSqtwDAAUPOq80wqxsQAGT0D1/AQAAAAEw3p4AMkE/AA6fQQEAb29PkAAxAK+uz0EBYAAO3mDR0T6twAABQWCvba6iIAQPez7i8w6dQA/BcZ+uDwKhwA3dQcOu29CUAABsD0MBba7CQAE9nkIynq1gQAHAf59wD9AwYBQHj6BvoAAAkAgAD0/A0H/PfBfAFCBf0DAAYHAOYA8yAg6tMKMPYA2gYq/Mr9QBAAw+QyLdPOHDYA8NAAJAzw5PkAJyPjwQNGJsoAygwq' $sFileBin &= 'EPzt5/kAIBr53fATFwmA7e0AFgr97QAqAAcA8O0GFhfzAOPwEyD67f0AAPYDJxPG1ylDAPCx90gtwLslAF36muNjP6qnADxn4JcAXyOtAMs1UOqn7U8zAM3KAyYTB/DjAO0WKgng2gAjJB32QzLm86AA7dwA+iMg/drdDzAADerp9AAQKQoAxs4pSQC34CwAN/PG9CMw7cMA+kYZvdE2RtYAtBNW87QARgMAx/MtFubqAwoABgoD6uwKGhAA9urpByMQ7eYA9hQWBu3nBhYAFPPm8BccBOMA6QoWFPbz7fMAFykAzeQiMPQC0IBq7AQW+uAGACoA0PYtE9rjACAg6eQJFwz0AObwJifjzQYqiA3p92BPCQP9oCaA+QQQA/nwACApBPQAIAL3ABAD8AD2ABcG7fkQBADpACME0PAwJgDWyxlD9rf3SQApur0pYPCe6QBjNqe0Ql3WngAQYhCg1EZJ3QC0+jId9ufz9ggXGQCgKBMN/ekC+sWWa2Egam9uAGFzIGthcGxh/9+WHwAfAB8A35Z/AB8AAABqFmAACGAADmAAwJbQA5YiAAAfhTikABIAMxIREhQ4ESggAKIAXiEhDSOgAmnAnGFwcmlsIPAxOTk4xJyCKKEsFAD/vywfAB8AHwC/LL8svyytLAEXAAbmDev/BQsABAQFAg8ECgGI6AAaQlUtIC0LAPwgLZ8oDwAPAA8ADwAPAH8PAE8UPwA/AE8UDwAEAAj6BXMAAkIUYQNPEUIRAgAE8/6AAgP7AAP8AAMG7hnhCR3gABjPTbIeFOIYAOYtyzjSBRraABcI8fsJD/f6ABHgLtQe4SLqABTkHP/09P4UAA7/+vb1GAX2ABvh9hYE4h7+AOQR+SP8ubJkAJsAplsALjn5AI72arJ/gP4yACsu7OYH01z8ACfN7tETJxnOAA5tjKBGT+7cAEPh5grTVgbmAMuU0J/1RF7wAJbtGCLpSLYEAPM92I9WYbLTAAvr7C3g9P0WgN7cHPjx7ABBTgEFAAL+AAAZAuUAIRjRQwH6CvkAXcMn8AsiBgWA+S4P8R4A+/QPAQsA//L2BNT3IgDb+fbZBQHX9gD+7/vn/xfOJQ7eWAUPAIAj/wACDQAaDP0Z5yUAFQAAHCrUJQT/QGAI5Ns2FL8CDwAAAP7q/+3//xDjAOsN0ArsHdUeAN7+7O4Q5hTXgOz7C/vtBfgPAwMPAAIACvYS+hX5ABv4DSHpIBDyABoICAoTDe8dgAEOKvIO+fnRMgcPAA8ABwD35xPt7wAA9un1/PPwAgDgFdUM1xDrADj66vOfAg8AHhIPCwDvN/j/9hoPCgAc9//9Gv77JQARAPUOCvwTDMAGBAMI/QwvAw8AAX4T6Az59vcB7AD68PcA7/z2+ADt9AD59vMH+sDh8w/37vb/Ag8AAQ8AAAANDvcJ/wABE/oMCg33CgAAEQgL+g8BBAAR/gkV/gUBEgAR+gEZ9w0HBw4HfwMPAO8lAfT08AAG+/X0/un7+QD4+f/x8/Hy+wD/9PP39e36ADz6/w8DDwAPAPcu/wcABQ4TBgsHDwYABBcJBw8EBwsAChECBgwMAQUeE98CDwAPAA8MAO76AATz/vP/9Pf7APwA+fH5+/32APr89PX7BfvtAYAM9vv9/fL4/D797zIPAA8ADwAwDQUBAAwCDf4MDAYAAAMLDgAJBg4FAAEIBAYKDAgHAAMJAwkIEAYB+AAIC38DDwAPAA8AICUA9wL09/f9/PwA//L7CPH2+wIA+gLz+fsH+PkBYmN0IGggZSB2AGVyeSBvcmln8GluYWxvYw8ADwAPAP8PAA8ADwAPAG9jPwA/AG9jmw8AAgAsMADgvgAcYWM4DAE+TxFEEQAAROwA9PX69sD4KbAAFd4TJ/cSDAcABAUFBQYIBQYAG1W1Ezjx4etA2PsFJRf3ohVtAGFzdGVycGll0GNlIGZC3m2vFQ8ADw8ADwAPAA8AAABCupoAKQAgLAwhAAgDAwcKAgADQAI2IG1hcwB0ZXJwaWVjZQAgZiByIG8gbQEDI9tFzQMGLNoAFQauhbXkHRcA6QL5DPENC/AA6gwP5xX9Ag0A7xfWMMEiG9YAJ+3xEvwE6zAAuxjyEvoQGusA5DDn9RX2ABYA6+kSIdsGAgAAB+wNE9Aq2g8ALNQJ6xv0IN8ACgn9/RLiL74AOdMOE9Qt2xsAB943wwoMCfYA7CziB/wF6iQA8P4a8uQc9wwA8BDq/inm3yMA7xj0/Qn0DgEAA+sK+PsR9READN/6IeUe1iQA8fQE+SH3AecAFvwD8RP0GOoA4zLtGtIPAwQA/AD7CQvl9xcAAQz1/wT2E/IAAArWM9ch6woA+xDnFvADBfgAEuUKF+IGE/UABfkM9vn6F/YAFOsC9AMf6PcACvsH//EQBuEAHuIo7v3/G+gADO/8JOP/AQIAAg3iGPv5CfQAHuYD8w0D/wMA+PwV8+8cCO0ABAH0F+wF//4ABvUPAvbzDwkA6hnnBg34+A8A6w/3Fvb0DA0A3BcA9fQh9/AAFu3+CwfzCvwA//ge7grTOckACiTw9wYH/fwAAgT7BvsZ1wsADOUZ/foS5BkA9BX26wcDFO8AAvv6CAH9AfwA/xP0/wTxD/EAG98e5B7sCfMAAwcACeoKAQgA9v79D98y6/0ABu4KAQvu/wQAFeoZ7vf/ABYA5Q0C+QUF++MAIgAM6hPnDAMA/AL3DP3cGBEA9BPtBAb8/f0ABhXZFfsB+wkBADoB+AYLAe7tABwAAvz/CPQNAPEIBOoi8f0LAPb+A/cS8v8PAOsEDu8AC/0HAADwEPwABPYSAOIP+hPrCwD9AAbyDAMA8SHeEBvgG/PAkfcV6AAQ/AQF9Ab3BgD4CPsG9wzzCQDyD/oL6xUA+AD2G+UW6wn5BgAH+Qn1C+8X6wAY6QcB/gwC7xD/D/UBgJH7//oA9RjwCPgS7gcAAv39CgD7//cAEfES9/4F9QkA+RLzAvwP7AcAC/AH/AAJ9AkAA/US8O8d9AQAA/cAC/gF/AEE/gFADAAM9gL8AAnoFQj+APb4AAUN/Pv3Ev38AP73DP///gEDAP4C9AgC/v4EAAD7D/EK/fkKAPkJ+vQPAPoQAOsJ/v8G8Az1AA/7FugA9wkGCPwAAAAT/g/y9QAJAQAD/gH6BwD6Bf8A+AQDCADxCfoP7g37/iABBvoHAUDIdGgAZSAzIGwgZSCILSBkQAFtIG+Ax/gBACiq8z8AHwDfht+GKxEAIR0MYAAcYAA8AA4BwYaTIgQAjf38/TT//ykIf+oJwipGUghVTVOgB01JVCCAS0lOREVSTt8qPx8AHwAfAN8q3yofAAAkwyGyxCpAAAGWliLNKjj9AAADuccqQiotIABoZXJlIGluIABhIHNwZWNpYf5sXyofAB8AHwBfKl8qHwAUACxgABBFKgwBmAOWIgAADf39/v7+APT+Ce4F9wQKAP4DAwIBAQECAAEAAQIHFe4EAA7+9/v2/gIKRAb9QisxIDkgADjFoAlyol1pIHhfKx8A/w8ADwAPAA8ArxU/AD8ArxXzDwAGAFQGvoNPEUERCQAWAVVAcQD/oQP8+vcA+vkc4uIw5J4EDgKALICA5gAeAP3/gn4B/4E7gOQHWgD/FezAZQAJAP8BAH8gYQD/AfcJAv0BAARwj9EWAADcpIAAeJwseEfOgrABHgrmGt4iAACvAHhuKn4Sx+sADAn3TwwPAAAAeItwPX6Ct4E4DwACAKASYMELnmNQAPaSIWDZCZEC408CCgBYAKgABTt+QnAvAGT8/U+0AO0TDXAPBG8CCADyDv7BALiJFQZN28D+Q98BBQAX6RHvYABCEL4ADvITARTsMAASHl2F7s+/LgdABg8AthEA9yOg/QAD2YcTPfP+wDgAIOOgFw8ABwBhnwAAjYbty1gevgAs1ADo6DAAAAyVa3EBZAzHOQAABOcZGgOAgAAAzAAhuiXz7sovzgCQhc229x/fApAB/SHfBQJBv0AACCna' $sFileBin &= '/bEFYZ9A6gbWcAzABQBAR3khAFdGRYWZ13KQAAWOcgC9Q8w0BO4SLwmdY86rhQCD+IdDBmqAHAACLytZPiCgBgAZ4/1AGqYAMALQQREyzh0D4AAAYKIT6wAibJoA2AB4s+nsWScAgFBGhBe78WUAahqgZTOCPSAAz1Oy7v3kXCMAgToDBSq6up8Aj02zLkMAALdACUAA2B0LgAbPADEAx99a3v8SAJ9f2s76jC75ACOrShmOAFOtkA/xIOAhLQz0WxkAfWwAI+AuT+EA/wEP4xlvsvLIVoSmEA6//lAFBwA0+QdAAPRhdJATcY8A/gK/xhjyy2AAkQnr63yd3ElmmQERAQAa5q8PsDYGANom2jrSYKbuAHzrNRLRP0SaAGP+goCnWQDcBCT6gDnkHOgYAFLYwEieYvMCgaNh7wDWOwCuTaUdQwCu7yKie4bLaCCuvlsseTEGNsoD5DzpJmCgAH+U7gBMswCOwAwlAwD6KsqPrw+1S6BB7hOtU9AB/vA7ANUr/tcrAAC/AEHi6jToGP6vAED1HuKfbAaBABEZIDJ3DLthALFkjwYp4AHwAOdInwFJymqCAEExjhFCrUEVgKoDCvMM/PiQBwBC2/cH+utWqgB/o00frisMEQAj2fCPgfCPswAc11TARu6RgQDP5UzPDiPn7gAr8O0CIQCBZAAbzy7q3PA3AwDZAKhYtA79zwBJA415vNHVOhAgq4JyQB8379oCFABDOcr9F+kxANkuy/1KtkgRAPqtMWjFxRVIAIGTIpf/TtZTAAYA8yQaBefPKErWKiBEJJIM8g4CAKAmAMb/4UfNAPcCxgkD4wboAAXX0v1UrCjbAP0G+g/xAD7CAfAFKNgx+uEUcwB+JDILp1qwU4DTEhsJwzoXABkA87p4jhl48qUATcJiv+tWAMMA+hgQG/DrASQA1vU12CjHCyIADM/Z/jXFDfMACLr/Uodb7NAAItgRJYNUNuUAsPr4PPL9IqIA/SbaABH7/fcAACkA6u0JL8sALhzo/d0/GOIAAzW/Uhje+AgA1EI46aNrKq8AMyahXdb6/zQAwzgFnWMAuSMAJPQM3xIP1v8A8Ov7ERkPzfwAFu3eMZNn94UAS+rVOuvhR48ABgvVHeNB8OIA7TFPgxoJ2gYA+gBO/L9LB/sAqlsjrTVGdWQAYXH3VQg1w+MA/x4f1CwO1Q4ADxnw7SPKHf8AIPMm76V3v+sAJuAdM77XWLMALdPsP8niKAIAyB7hPa73XdsA0DLYB9Ms9CQA6bZe3DGk6rwAtMv5JdZG+74AFsIpNtzgeb8A2Q4lzyIPK8cARfq6IQcnvR8A9AYMJNmwX+4A6A4NCenCiuMArORALQPuH+MA6VDOEhztGeIAOrkJDMAoAxUAyvoP6e3/AxYA3gn0IKJL9gAAHcIOEdg/9QIA3BDb+04B1xtQ/QPvJNSNLQsAIP4tL3gPAA8ADwAPAA8ADwAHDwAveDoAIrGwIAAAABUwIQAkAAYKCAAGHAAGQAABlpEAci0gLQsAIC0HXiD2//8AAAAEABuIAP/lAAz/AA8GG0ohGWgoAAMHARZeAa8CII8Ama+1uX6AAQ6AAQpwg7ngnbmACP7+Bv6BuS0AEOAIBALBjwX+/vz8/MAAgwAPCgBEBkEBQXMgZSBhACB0IHNhcnNhgHBhcmlsbGEDeT8BawIIFS4FCNqDYhAgMAAzNyBmb3IgdABoZSBwZW9wbAZl/yDtIHNtdXJmEGluZyDAQ2wgbxAgbiBnCwh0ICBEaCCASyAgd4AIdgVAAnMLCG9mICBwA8AOQVRzIHUgciAGZX8xCghtYWlsIBR0b8oIPgkEdGltAGVsb3JkQGNoAGVlcmZ1bC5jBG9tBQQ=' $sFileBin = Binary ( _Base64Decode ( $sFileBin ) ) $sFileBin = Binary ( _LzntDecompress ( $sFileBin ) ) Return SetError ( 0, 0, $sFileBin ) EndFunc ;==> Smurfesquexm() Func UfmodDll ( $sFileName, $sOutputDirPath, $iOverWrite=0 ) ; Code Generated by BinaryToAu3Kompressor. Local $sFileBin = 'WL0ATVqQAAMAAACCBAAw//8AALgAOC0BAEAEOBkAyAAMDh8Aug4AtAnNIbgAAUzNIVRoaXMAIHByb2dyYW0AIGNhbm5vdCAAYmUgcnVuIGkAbiBET1MgbW+AZGUuDQ0KJASGAFlY9N8dOZqMQQUDfyaJjBgCC5sUjAgEExwAAzr/4IUEB+ICB1JpY2gBGwEFi1BFAABMAQQgANsykkoFE+AAAAIhCwEIAAAaSQAMLAECEw0TAAQQ1QADMAIOEAILAoN/AQD5hQMAgIAXBAYADwMagRWDhgMDA3AyAAAVABUKXIAnPBmWcAEAnBcDQSsAgCtcGA8udGXkeHSAAyMZBEiBdQZiAQMAIAAAYC5yZMBhdGEAAIUB9oF9TYERHosTwHxALoMJABxuIgArFIGABcAucoBlbG9jAACQAUfrwDbCEyLOCUJwPD8APwAvPwA/AD8AIAABoFtErAlAR7ECQDgQAAYRqAAQ16BiBegAMGAACnhgAPZgAItEJAQAuSRAABAPt8AAg2EEAGY7QRwAGdIh0IkBwgQBgAmCAKQAzwAEAAFIAZ0BBwKOAAI3AwwEGQVqAAYUCCsKzQwdABBJFIoZJyB6ACj1MidAw1CtAGUAgFpYg/gZAHYDahlYZouEBABNQA6jhGEAEAD/4rAB6wIxwASicYABw2oI6wIAagxZurhhARAAiwIByosEwsMEobyAAcNQagn/CDVcQQAGFRAwAAAQhcB1A1pbySDDV1aXvuBYEK0AidEDFjnCfAMAKwaRhcl+D60AAwaJVvyKEIgAF0BHSXX3Xl8IuEBioAhqClaNAHXsg2YEAP82iP8VLAAJUP82QAAI/xU0YAGJBv8VAjDhAEYIw2oAaAKAwCZqA2oAagFCaOGEVv8VIIADahD/agG6QQ6JQwgAj0IIjwLDMdIEoWwAE1JUVldQgFJSUVD/FSjgBAj/FSSgAMNTVlcAVZeF0n8FXV8gXlvDvXgAB4t1gAArdQR4HrkBdoAp8X4VgcZw4AcAKcp5AgHRAU2AAPOkhdJ+0AAaAE0AgeEA4P//ACtNAH4UKcqJIM5Si0UAAASR6ACJ////AfdaiwhNAFdDBFKJTQRKvuEJv0EJ6GngA1oAX+uH/3MI/xUKBOAQugEPdAIDAgCFwHgHO0L8d0ACiQLD6AfgeVgIWo8FwRlZhdJQJHTswRW7ZEAIvYgBYAIxwIlF8PbBCAG+GMA1dQv2wQACjXYMdQONdgDs9sEID5VF6ACA4RCITemJ7wClpaWJ1jlF/AB1BmbHRfwAgApQAgBowa5q/1P/FBVAAiIUAjeJQ/iAdA6JdfToHSC2AJf/VQiF/w+EkoEgLL6YAD3HRgCMAAEAg04U/2oMCMcGmKAQj0YQaoAgVv8z/xVEAAgQMf/oGcAWOXsEoHX2iXsIJANQY0IAPVVXV2iTEwBAEFdX/xUIxA38UHQmag+gMgzgAZOLwjCAWwigBQXoBsAOQDHAQMIMAAEfvQZgAB9ALIXAdBKJ8EUMUFWABmCoIBdBKAAx24ldAIt9BASJXSAWdB+JXQSwV2ogaGEWgQ1I4gSKTKIAVKAAi0X8wAhQF4ld/IAIGCEPuUojgA2/IVvzq6IQVQhWvVAADmoEj0UAAGoMVf91FP8EFTxBB3UEwe4MAIPmD2oF/xUcAQACg30cAHQFXgJdIG85dRh0zoBCPYFlAHUPuKEJ/gAAgDgQfAPGAMgAaLQgH7kAwCqhGUEiQTHAV1e+wXjzCKs4BVEDlQ+F4gVwCL1xXIte5IXbCA+FiPAAOV7siwBO3HViS4sWiwBGBIkehdKJXgAEfAOJVvSFwAFgAEb46F4KAAAAg34E/3VDi0YA+EBmOwN8MIsAVvQPt04cQjEAwDnKfCA4BXAFMSYOUhRbj0UM6QDK/v//D7dWHgA5yhnJIcqJFgCJRgTrBej/DgGQB0bwi14Y/0YA7ANG/DlG7HwACINm/ACDZuwAAInvOftzAokA31op/Y0E+lAE6DmgHo0Ev5nBEOACuXIgbffxAQIF8UAp+4XtD4UCPmAuiV7kixVoISAHjRTVxGFDTvgAC07yiQpYXjGC25AKweAMjbhRJAFyEZCQrVeZicdAVjHQvsA/wDfQADHS9/aB+uAfAAAAXoPY/z0AATA/GdL30gnQwaD/HyX/fwAHJVFKIMHoD9HJ4E/CARjV0cEBApAA0zH4ACn4X0lmq3WrgqHxB0CD+BB8kEwCo8EAwe0KweMGgGaJ64kcxcBQCQECHwAMGSUxPEcAUVpianB1en0Afn9+fXp1cGoAYlpRRzwxJRkADAACAwUGCAkACwwOEBETFBYAFxgaGx0eICEAIiQlJicpKisALC0uLzAxMjMANDU2Nzg4OToAOzs8PD09Pj4gPj8/P0ABAKuqQKo9AABWQXAAOgAArAJGi04QUwBVVotxLIX2DwSEGwB8UlKLWRQAV4B5PgCLVgQAi0EwdREDVggAKdp3BIsWKdog99r32BFQAAHaCA+I62AXi2kYDwCs0AWLWRzB6gAFD6zdBXUMvQCL2wEAx0EYYABxOwD39THt90DaEegPhDvAArsB4UI5+A+XQ+pzAAGXD7dBPItRAAyLaRDB5RAJAtVAOHvwdAU7aQAgdDCJaSDB4gAHZjHtK1E0MQDAwfoHiVEkdAACsIDB7QkraYA4wf0HiWko8QAAhcBmiUE8dAYAOcd2AonHi0EAJIkDi0EoiUMQBIl77EAMjVxeBBRWggx0JAiLUQIcwAp0CPfd99IAg9r/kFdSD78AOw+/QwKLUTAAKfjR6vfqwecABg+kwgcB+pIgicf3aThwDQbRAMKD4gEB0NH4QAEGl/dpNCgBiww9jMAMgAFGBIsVAXENAXk4AVE0WgAxwAFpMF8R0ACDxghPjRxDdUCYi3wkIInwBykA98HvA16NRhQAKcPR64lZFA8At1E8hdJ0JqEBcVWZZilBPHUaDCsFEVjADvfYiVEAKBnShdcPhXNB8DEx0jgVcpABdQB7D7ZGEkh1HQHgN4tuCAHoOcMAdgUpw5P39SkI1SnrIifT60xIAPfYg9L/IVEwACFRFCFRLHRGIDhBPnQYIAP33QBIg+0B/kk+GQDYi14EAcM7RggIfBtwAQNGCI2AUP8Z2Pfdk/ABQBHT/kE+O4A9zSCJaTCF/6EKhe4A/f//X1hag8EAQF47ThQPjMxB8ABdW8O6hFBBVwApwlaFwFIPvgBBDYnXdAOZ0QDiQtsEJNgN5AAVABDZwNn83ADp2cnZ8Nno3gDB2f3d2dgN6AFwAdscJIX2WXQACSnXVzH2ic8A684p+YXSeQIA99n36YPifwEA0MH4B14B+F8Aww+2TnGKRnoAicoCVnKD4j8Ag+ADiFZxdBoAwcEbGdKD8n8Ag8oBSHUhweoAGMHJFwHK99oA6xWJyIPhH8FA6AYPtpGEcAYZAMAxwinCD75GgnPgHfgFw+irwEAA0fiJRhKADgGAw1aDxgPomRABAF6JRg6ADgLDAUABi0YGi05aDwC2VnDB4gIpyAB/BgHQfwjrBAAp0HwCAcGJTgAGw1dTVYnljQS50EFh24tXNYkAVeSKTzkPtlcAMQgGPAKNRj0AdRaDw/SLRzIUiUWAATiAATCNRgA8g8fQODB1agBRUI1MHiqNRCgeLlBAAE5BAEqNAFweJlCLATnQEFMPjYtQBQ+3BACHOQN1efZF/AAEdBQPtkXmOYgBdQxwAOWJAbEBATAuAYlF3I0EhwBKD7cYORGLeAAED7dAAol94ACLVfCJAnUHiwBF+P4A60/B4IAQKceXZjHAgAQAAnQOD7ZV5DkAVdx1BThGOnQAMv8Bi03siTkEi33AWU3ggycAACnZdBGZ9/mJAAfrCotF9IsIAItF7AEIWlhZAIsA/wLB+BCJAAHJW1/Dg+oQQHIIg/pAdzBfCgCJ0IPiD8HoBACD6AV0LEh0KwBIdCZIdCWD6AgCdiSiACpIdCmASHURwOIEdFAbAHCAJveL' $sFileBin &= 'RlKJCEZaw9BDVgrDiABUBnPDweIEiQhWFpIRARaADgQBABgCZotWdzjyAHYIi04K99mJIE4OAnZ54AACsgD/QohWd8OFySC4qq4BAGAm9/HEozwga8P/VWDqgAAgVYnGulBARv9VAASJ5THJi0Y8AFGNQDzoKPf/AP+DxIxTahSNCFYRv/GdWYoCQgA8IHwBqkl19QSRq7BpQA+3XkYQ99uJ97Bb0ffbAEkPttKJXfQ5ENEPh4zAZIpWUAA5wnYBkkZJeQD0iUX4QIn+ORDYcwGTkClIackCEAAHZolGRo08IMGJ+CnPQAFEgwD5QH4CMcmJTgAwicvB4wcPhAJHQASJTfCNBFgA6Fz1//+NFBiAiUY0iVY4u6GjAMZAHAGJQgQBANgB2v9N8HXwEIkWAdcgCU6JfmAEidfoDrAp0ABMAGpAj0YMiU4UAZAZagmNRbxa/wIV0UeLRcGLTjAh0FwBAIkHILgPgjKaIAU9AUAJUbgPhBLM4Fz34eCZjQSACOjf9HBwRwSTVgSLNcEDMdKNRewIQv/WcCHs9sKABHRBYE2jvQB0BInY/9b2RQDsAnQIMdKNQ1QBQgJoBANoAgNoCEUDNAMDNBB0FQE0BABC6wuF0nQCiAITAGqyBP/WXkMAilZIOBN2A8YAAwCDwwT/TfAAdYb/RfyLRfQAg8cIO0X8D4cAMv///4tN+DkAwXIrix6LRjAAVo00y408gMEA5wb/TfiJ+MYABkDoLPT//4kgRgSD7ggANzlFAPhz5V4xwIlGAAiJRhCNfiCrAKurikZIhMAPQITjAQAAiABcXgAEaiGNRYha/wAVjGEAEIt1iACKVaOD7iGE0gB0JTHAg32lKQAZyffRCcqA+hAQD4ewADO60ACAAACNQ0Ap1gMxQDHJlkHo9gA6jQSTDgAPMcBmiwoA0eGAevICZokACnMDiEL6gHoE8wIBBPs4RaMPBIRcABKJRfiJXYD0jUXIi1WlhTsAzIt90IpF1okAwcHoBCQBiEUA1nQH0W3I0e4A0e+LRcg58H8AAonGjRQ+KcIAeAIp14PhA3QABIX/dQYx9jEAyYnHiXXMiX0A0IhN2o1EABoI6CvzgZH0iQH/AEX4g0X0BGoFAJeLRfhZOkWjAI11yPOlcoiJAE34izSLMcCLABaKbhGKTg73AMIAAMD/D4XSAQBsg8YUgP2tdQBPQon30fpTUgCNFFIB141QEIkAVYnDg1RaifgDBACJ8jHJOfp9IQCKB4jEJA/XwADsBEcAxYjg1wAA6MHgGAnBiQAKwekQg8IE6wDbW+s40+KJ8AEEOk7sjTwxjQQADzHSOFb6dQ4ASE9Iijc5+GYAiRB39DHSifAIZgMQwAJJjUACAH/0eCSLRvSLAE7wAciAfv4CAI0ERnUGZotICP7rCoADAXUHZsCLDE5miQiAOYCEQDpNow+CJYCHgQTDEEBY/k38D4UAI/7//0BbycMBQBFVD7ZcMCyJAOWLRviNHNmLgE4MiG329+GAjhCLUwRWAKHaAdcAg+wYweEHdNAAVot2FFNGRgEA8VGKXwSKRwMAg+MPPAN0AjwABQ+URfSKTwEAdBL+yXgDiE6AAYoPSYD5YEB2AE7+D7ZOAYtFCPxpycEeA0jgDwC2Rv6ZikQIQAA8EIlN5HMDiwAUgYXSdQW6WABiARCJVfiLTgAGi0YKiU3oiwBOFolF7IlN8AHAGTwHdAyAfmcAB3UGi04OAU4QCohGZwB3Tg6JIE4SxgYDBBtEDyC+QhABwcAaiE6AZvZAJgF0GgB3AA++QA2ZweEGACnQ0fiNhAEAAOL///fY6wmREcBF6Iz4wcNSgH0A9AB1A4lGBoAADgiAfwEAdEQBwA1XagkPtkgMAIlOClkPtkAPAIlGFmpAMcCPAEZCaiCNfhqPAEZOx0ZGAAABAADzq4pOel+AAPlPfQOIRnT2CMEMdcABcYAOBgAPtlcC6Br6/wD/gD9hcwaAfwADFHUD/kY6iyBN5PaBCEAhAXRgCbAC6P1AEIE2OoAAdASDZkIAwgOCCcIDB7AE6N7AA4OBA8ACdBAPt4HBaBApRkZ5YAVGAA8QtkcDSMAMBDwgAHcJhdL/FIWTACAAEP915P91EPjoqwYgVu6AWQCDxwU5zg+MSwHgPVteycMXIQCqEGEAHWAAM2AAJGAACkRgAE5gAHUmABAqXuAAiGAAjmAAfiMIABCm4ACrIgAQqsPgAJXgA9bgAJKgDLVlAN/sAWBgBeEAaeQAFnXkAGUAheABdAOIiFZow6EAcOsFwQAEbIuAMCb2iUZaEMPB6gQhAnKF2yHAAF5zMcDiA+mTKPf//0QDdUMDdsMAweIIdAOJVlYBIDmLUQQDUQiLAEZWOdCLTgJyAAsxwIAm94lBgBSJQTCJQQhCDQRswwBDg2AEAIkAEP5F9g+3SByAOQh8A4MgAEEOQI0Uko0MUwAEiQBIBIB99gB16gCLSPRBiQjr14CA+iCJ0XMHQgMQ8MPpzOAxdAaLQE38iFEhw+U4M4iNmaTggw+2ieBBAaGcOxN2CznIdAAHQGY7FIN39QCJRh5JOcgPnQBGPHwJD7dEiwD+iUZCw4lWGgCLTIP8icoPtwDJiU3siwyDiQLIQAFmMdIrTewAUnQJZjHAKdAAmff5kYlOIosARhorRez36VoAAdCJRj7B6BABAAj/Rh7DdAaIAFZtgA4Ew3QJgYAYiN5miVZuaAGIeOn8wyZKdQ6DJkJrgG9rKUYGBgJqIQACagFGBoEgSoAA+g139oXb/yRUlb2gNPVgAAUgQKpV4AAV4AAdYAAkYABIVWAAU+QCXeAAX2QBbC3gAIJgAMEKfMAKfMFM4AJADYEvXn3gAX0D4AEhDYBmevAIXgJ6wDH4iFgNw3UCCmAri0D4iUZiAMOKTl7+yXkCAInZiE5edAmLREZiAC2JQQRBBg8YweMEoQbAAIleFgVhHvcCGHsPvkZ7CClGCsAJ6ItV7BGAeItF8IB1xgYADIlWoAJgna9Z8Ik0WfwinYoAncCc92YADItU2QSNBICAhdKJ5Q+E/qA3AAHQVlCLRgzBDOAHgZxgnPBQD7aAfgGLVfxp/yGX0cGWA3rgIJc4IJfBlgKHxpYx21dSiV4ADoleEoge9ocBhnuJ+ege9f//RPaH8zwJsAQQAQwBEAE4Xjp0Eg+3AofVPAOJXkaADiIC0Uq2QAJiboDhAA8sBnQsSHQrACwEdBtISHQPAEh0Ckh1I+iogeB06xz32SlOURCA6xKITnPodTEBWAj32ZBRYQRVYARaCASJ2dBZD7ZCA4DA6QQ8HXcH4EGArCQAEOiSAoJBAFiDRfgFOcYPDIwVgGGAQWwlABAKZTAASTAAABkAEKDhGAAQK7AAJDAA2u+wAKuwAzEAMvAAtQBtMQCcQEG1AHy4AD8AAJQQUvQBujQEgRrwCEK4MHnrB+jQYAAxAMmKTmyJyIPgiA/B6bA+kffYkB0hEA3DikZocGGNDACBg/kBfQNqAQBZiU4Gg2YSABiADgGxAQBd4DhqCAR2SKIk7GoDmQBf9/9KdAVKddgzidkwAcJgCEBg8GIE6yCQHGaJxwHIAItMJAToifL/FP+XkgB/kAApx4kEfhJCBU5vhcl0DivzBFA4oB4eik5uqIPhDzBiSQBqeIAAIAL/FI0WIA2JRgAKSEjDg+gIg0ToBCAAw9HgEAhZAPf5w40EQNH4AMNAQMODwAiDTMAEIACwAcPr0A/qVTAA8zAA8DAA7TAA91UwAAOgBBUwAAcwAAZVMAAPMAAMMAAJMAAARTAAEzAAik5t8hGLBFYWIBJ1CCnCeQAPicrrCwHRmRD+yjnRkJDKiVYD4jGQL4tR6IpBIbCo8HUHEAMwEgNwJQQBwjE1UejDgPkACXR1gOkMdGAQ/sl1W0ABMcA5AFnsdU+LVCQEAaRtD7ZSDI1ICRFwNItWQkBvOdEZgNKD4kCJVkJCbzM9b0FcDgsSOAAoUAJk6R0gHYgGkQiR' $sFileBin &= 'BQdIg2YKABsCw5BHEBWFFfuAFQNQA8OJ8wBWV4t0JBAxwBAPtpYKcDGNezYASnglsIB0FkoAdA2ygCsXD7YC0jF86zeLFynCAOvxOQcZ0iHCQI1CwOsmiyAQgwDhf4P5QYPQ/xAxwSWB4TzBweoACA+2gaQVABBAGdIx0CnQcAUMJXE8r5AAhguQAIXAAHQMV5eLQzL3AOr3/5KXX8H6AAYBUxKLUzJCoDnCfgGSUAINEYsAB4lTMvbcgAsCAUAA3ACJB4tzAAL2Awh0RIN+ACwAdCeJ8SsNADRAABDB6QcZAP+D54CNfD5AAFdqC4l7AlnzAKWJTtSJTuCJAE7kXo1+LItESCQMq5ClVgiAtqsBUbdWFDHJ/sn2AAMCdEaLQwoDAEMOicLB4AgpEND3LQwQBffSIQDQPQDwDwB+BQK4YQD3Y0L3Y0YAweoDi0YEiRYEiddQC/mJRgyJQMgrRgT377EAEID2AwR0Q7+A4A9Ai0MWKfiZYQ8pAMeLQ07B/wWDAOgg9+8DQxaZAXEFiz45yInKlyRzBoID+pJAwYlWIAz20PcudAQBdABhi0sGMdIDSwASjUIofkX2BQJKIAkBdQu4kHcA2gD38THS6zEAuAASAAArQwYAA0MSUNsEJNgEDeywFtnA2fzcAOnZydnw2ejeAMHZ/d3Z2A3wAXAB2xwkWLtErIAAAPfziUYcQQDgGF9ewgigCg8ADwD/DwAPAA8ADwAPAA8ADwAPAAcPAA8AAAD0MAAAClAxAAAYMAAoMAA8VTAASDAAVjAAZDAAbFUwAHowAIYwAJgwAKitMAC4MAABAOhwAP4wAKAMMgAAJDAANDAAak4wANj0AZiwBQUAyqsxAfAA1DgBXrACPPgAP38Jfwl/CX8Jfwl7Cc4CAFdhaXRGb3JTAGluZ2xlT2JqAGVjdAAbAENsAG9zZUhhbmRsAGUASgBDcmVhEHRlVGhgAGQAACCHAlNldMMAUHIAaW9yaXR5AJkAAUhlYXBBbGwwb2MAm7IAMwMAAAKd0gBEZXN0cm8AeQCWAlNsZWUIcAA0NAVGaWxlYEEAGAJSwASxAAAMAGrRBaEAUG9pbgB0ZXIAAKMARgBpbmRSZXNvdQRyY9ACxwFMb2EB9gAAAJUCU2l6CGVvZhcBS0VSTgBFTDMyLmRsbAAAAKwAd2F2ZYhPdXRCDQAAtfUAAEdldFBvc2l0CGlvbhATAAKzAHdhdmVPdXRPQHBlbgC6AATQUAByZXBhcmVIZYBhZGVyAAC7BVwAUmVzZXQAAMBRBTxVbnALpMEFMlcAcml0ZQAAV0kATk1NLmRsbAAhCQDbMpJKAQ7yMqgAAAEABwkEA5gADwq8AAPgAAOqEAAACqYAA7oAAwARAAAKMAAHmgADFBIAACqeAAeBAAP8ACcOM6gAAB0AAysAAzoAA6pNAANZAANoAAN1AAMBAWECAAMABAAFAAAGAAcACAB1EGZtb2QCk3VGTQBPRF9HZXRSbxh3T3IBYIYIU3RhhHRzBwdUaW1liQYEdGwFB0p1bXAygFBhdHRlcm4ECRBQYXVzBQ9QbGFgeVNvbmcEBwCgdYGGJFNldFZvbIEHC3kAwFHEgQEwFDAYADAcMCAwJDAoADAsMDUwjzCUADChMK4wuzDFADDLMNswATEUADEgMSgxRTFOADFeMW0xczGHADGeMekx+zEAADIdMiwyMTI+ADJ1Mn4yhDKkADK3MsUy3zLrADLzMgMzJTM4ADM+M1gzYDNmADNsM30ziDOWADOnM7gzzjPWADPlM/Mz/DMEADRkNGs0yzTeADTlNP00OjVeADVrNXs1YDYtADc4N3U3gjecADdNOGU4zTivADq4OuE6qzvoADvKPPw8Qj3sAD31PSs+LT8AECAAANjAMHEwkwAwlzCbMJ8wowAwpzCrMK8wswQwt8AvvzDDMMdBwDDPMNMw10Ay3wAw4zDnMOsw7wAw8zD3MPsw/wAwAzEHMQsxDwAxEzG5Mr0ywQFAL8kyzTLRMtUAMtky3TLhMuUAMuky7TLxMuQAM5A0rDSwNLQANLg0vDTANMQANMg0zDTQNNQANNg03DTgNOQANOg07DTwNPQANPg0/DQANQQANQg1DDUQNRQANRg1HDUgNeMANRY2GjYeNiIANiY2KjYuNjIANjY2OjY+NkIANkY2SjZONoMAN+c3OTjMOO/4OAc5v3Y/AB8AHwAfAP8fAB8AHwAfAB8AHwAfAB8ADx8AHwAfAAMA' $sFileBin = Binary ( _Base64Decode ( $sFileBin ) ) $sFileBin = Binary ( _LzntDecompress ( $sFileBin ) ) If Not FileExists ( $sOutputDirPath ) Then DirCreate ( $sOutputDirPath ) If StringRight ( $sOutputDirPath, 1 ) <> '\' Then $sOutputDirPath &= '\' Local $sFilePath = $sOutputDirPath & $sFileName If FileExists ( $sFilePath ) Then If $iOverWrite = 1 Then If Not Filedelete ( $sFilePath ) Then Return SetError ( 2, 0, $sFileBin ) Else Return SetError ( 0, 0, $sFileBin ) EndIf EndIf Local $hFile = FileOpen ( $sFilePath, 16+2 ) If $hFile = -1 Then Return SetError ( 3, 0, $sFileBin ) FileWrite ( $hFile, $sFileBin ) FileClose ( $hFile ) Return SetError ( 0, 0, $sFileBin ) EndFunc ;==> UfmodDll()