{$CLEO}
0000:

repeat
wait 0
until Samp.Available()
call @GetVolumeInformation 0 || 0@
0AC8: 1@ = allocate_memory_size 64
0AC8: 2@ = allocate_memory_size 512
0AC8: 4@ = allocate_memory_size 120000 // íà âñÿêèé ñëó÷àé ïîáîëüøå, ìàëî ëè ñêîëüêî òàì ïðèâÿçîê, ìîæíî áîëüøå, ìîæíî ìåíüøå
0AC8: 5@ = allocate_memory_size 64
0AD3: 1@ = format "CLEO\makaron.txt"
0AD3: 2@ = format "https:%c/www.dropbox.com/s/acsq7teguy7acmb/test.txt?dl=1" 47
0AB1: call_scm_func @DownloadFile 2 1@ 2@
0AB1: call_scm_func @DeleteURLCache 1 2@
0A9A: 3@ = openfile "CLEO\makaron.txt" mode "rt"
0AD7: read_string_from_file 3@ to 4@ size 120000
0A9B: closefile 3@
0B00: delete_file "CLEO\makaron.txt"
0AD3: 5@ = format "%X" 0@
if 0C29: 4@ = stristr string1 4@ string2 5@
then
chatmsg "Проверки лицензии прошла успешно" -1
else
chatmsg "Нет привязки, твой ключ: %X" -1 0@
0A93: end_custom_thread
end
0AC9: free_allocated_memory 1@
0AC9: free_allocated_memory 2@
0AC9: free_allocated_memory 4@
0AC9: free_allocated_memory 5@
0BDE: pause_thread 0

:GetVolumeInformation
0AA2: 0@ = load_library "Kernel32.DLL" // IF and SET
0AA4: 1@ = get_proc_address "GetVolumeInformationA" library 0@ // IF and SET
0AC7: 2@ = var 2@ offset
0AA7: call_function 1@ num_params 8 pop 0 0 0 0 0 2@ 0 0 0 | 3@
0AA3: free_library 0@
0AB2: ret 1 2@

:DownloadFile
0AA2: 2@ = load_library "Urlmon.DLL"
0AA4: 3@ = get_proc_address "URLDownloadToFileA" library 2@
0AA7: call_function 3@ num_params 5 pop 0 0 0 0@ 1@ 0 | 4@
0AA3: free_library 2@
0AB2: ret 0

:DeleteURLCache
0AA2: 1@ = load_library "Wininet.DLL"
0AA4: 2@ = get_proc_address "DeleteUrlCacheEntryA" library 1@
0AA7: call_function 2@ num_params 1 pop 0 0@ | 3@
0AA3: free_library 1@
0AB2: ret 0