CLEO Help [HELP] How to make a script anti afk to cheat this captcha:

CLEO related
Status
Not open for further replies.
D

Deleted member 50567

Guest
Can someone help me to cheat this code?
Print:


I want to make a script that reads the captcha (which appears in the screen) of anti afk and answer them in the chat

Server Link: server4.loskatchorros.com.br:7777

Server Version: 0.3.7-R2
​
 

Attachments

  • 3617-baf433324b780e72b51ad560c69d488e.png
    3617-baf433324b780e72b51ad560c69d488e.png
    4.2 KB · Views: 58
Sort by date Sort by votes
Parazitas

Parazitas

God
Staff member
Joined
Jan 2, 2017
Messages
3,315
Solutions
7
Reaction score
935
Location
Lithuania
NOT TESTED!
PHP: 
{$CLEO .cs}
{$INCLUDE SF}
 
0000: NOP
 
0BE3: raknet setup_incoming_rpc_hook @IncomingRPC
30@ = 0
31@ = 0
29@ = 0

:main
wait 0
if and
key_down 49 // 1
key_down 74 // J
then
    if
    31@ == 0
    then
        31@ = 1
        0AF8: "{FFFFFF}Auto captcha: {00FF33}Enabled" 1
    else
        31@ = 0
        0AF8: "{FFFFFF}Auto captcha: {FF0000}Disabled" 1
    end
    wait 1000
end
if
30@ == 1
then
    if
    31@ == 1
    then
        wait 1000
        0AC8: 25@ = allocate_memory_size 260
        0AF4: 25@ = read_string_from_ini_file "cleo\GameText.ini" section "Game" key "Text"
        call @GetCode 1 WriteStringPointer 25@ ReturnCode 25@
        call @DeleteLastChars 2 25@ 1
        say "%s" 25@
        30@ = 0
        29@ = 0
    else
        31@ = 0
        30@ = 0
    end
end
jump @main
 
 
 
:IncomingRPC
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
if and
0@ == RPC_SCRDISPLAYGAMETEXT // GameText
31@ == 1
29@ == 0
then
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    //ignore gamtext style and time (8bytes = 64bits)
    0BEB: raknet bit_stream 1@ ignore_bits 64
    //read text length                                    
    0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT 
    //allocate text length + 1 for null terminating char   
    0A8E: 3@ = 2@ + 1 
    alloc 4@ = 3@ 
    //clear buffer, make sure last char is 0
    0C11: memset 4@ value 0 size 3@ 
    //read to buffer with size
    0BE8: raknet bit_stream 1@ read_array 4@ size 2@ 
    //chatmsg "GameText: %s" -1 4@
    if
    0C29: $NOT_USED = stristr string1 4@ string2 "/sairafk"
    then
        0AF5: write_string 4@ to_ini_file "cleo\GameText.ini" section "Game" key "Text"
        30@ = 1
        29@ = 1
    end
    free 4@
end
0BE0: raknet hook_ret true

:GetCode
0C17: 31@ = strlen 0@
31@ -= 1
    for 30@ = 0 to 31@
    0A8D: 29@ = read_memory 0@ size 1 virtual_protect 1 
     
        if
        29@ == 91
        then
            0@++  
            ret 1 0@                                                        
        end    

    0@++
    end
ret 0

:DeleteLastChars
var
0@: int
1@: int
2@: int
end
0C17: 2@ = strlen 0@
2@ -= 1@
0@ += 2@
0C11: memset destination 0@ value 1@ size 0x4
0AB2: ret 0
 
Upvote 0 Downvote
D

Deleted member 50567

Guest
Parazitas said:
NOT TESTED!
PHP: 
{$CLEO .cs}
{$INCLUDE SF}

0000: NOP

0BE3: raknet setup_incoming_rpc_hook @IncomingRPC
30@ = 0
31@ = 0
29@ = 0

:main
wait 0
if and
key_down 49 // 1
key_down 74 // J
then
    if
    31@ == 0
    then
        31@ = 1
        0AF8: "{FFFFFF}Auto captcha: {00FF33}Enabled" 1
    else
        31@ = 0
        0AF8: "{FFFFFF}Auto captcha: {FF0000}Disabled" 1
    end
    wait 1000
end
if
30@ == 1
then
    if
    31@ == 1
    then
        wait 1000
        0AC8: 25@ = allocate_memory_size 260
        0AF4: 25@ = read_string_from_ini_file "cleo\GameText.ini" section "Game" key "Text"
        call @GetCode 1 WriteStringPointer 25@ ReturnCode 25@
        call @DeleteLastChars 2 25@ 1
        say "%s" 25@
        30@ = 0
        29@ = 0
    else
        31@ = 0
        30@ = 0
    end
end
jump @main



:IncomingRPC
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
if and
0@ == RPC_SCRDISPLAYGAMETEXT // GameText
31@ == 1
29@ == 0
then
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    //ignore gamtext style and time (8bytes = 64bits)
    0BEB: raknet bit_stream 1@ ignore_bits 64
    //read text length                                   
    0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT
    //allocate text length + 1 for null terminating char  
    0A8E: 3@ = 2@ + 1
    alloc 4@ = 3@
    //clear buffer, make sure last char is 0
    0C11: memset 4@ value 0 size 3@
    //read to buffer with size
    0BE8: raknet bit_stream 1@ read_array 4@ size 2@
    //chatmsg "GameText: %s" -1 4@
    if
    0C29: $NOT_USED = stristr string1 4@ string2 "/sairafk"
    then
        0AF5: write_string 4 @ to_ini_file "cleo \ GameText.ini" seção "Game" chave "Texto"
        30 @ = 1
        29 @ = 1
    fim
    grátis 4 @
fim
0BE0: raknet hook_ret true

:Obter código
0C17: 31 @ = strlen 0 @
31 @ - = 1
    para 30 @ = 0 a 31 @
    0A8D: 29 @ = read_memory 0 @ size 1 virtual_protect 1
    
        E se
        29 @ == 91
        então
            0 @ ++ 
            ret 1 0 @                                                       
        fim   

    0 @ ++
    fim
ret 0

: DeleteLastChars
var
0 @: int
1 @: int
2 @: int
fim
0C17: 2 @ = strlen 0 @
2 @ - = 1 @
0 @ + = 2 @
0C11: destino memset 0 @ valor 1 @ tamanho 0x4
0AB2: ret 0
[/ php] [/ QUOTE]

I do not have a bigger picture sorry, but I'll test this command yours
Click to expand...
 
Upvote 0 Downvote
D

Deleted member 50567

Guest
Parazitas said:
NOT TESTED!
PHP: 
{$CLEO .cs}
{$INCLUDE SF}

0000: NOP

0BE3: raknet setup_incoming_rpc_hook @IncomingRPC
30@ = 0
31@ = 0
29@ = 0

:main
wait 0
if and
key_down 49 // 1
key_down 74 // J
then
    if
    31@ == 0
    then
        31@ = 1
        0AF8: "{FFFFFF}Auto captcha: {00FF33}Enabled" 1
    else
        31@ = 0
        0AF8: "{FFFFFF}Auto captcha: {FF0000}Disabled" 1
    end
    wait 1000
end
if
30@ == 1
then
    if
    31@ == 1
    then
        wait 1000
        0AC8: 25@ = allocate_memory_size 260
        0AF4: 25@ = read_string_from_ini_file "cleo\GameText.ini" section "Game" key "Text"
        call @GetCode 1 WriteStringPointer 25@ ReturnCode 25@
        call @DeleteLastChars 2 25@ 1
        say "%s" 25@
        30@ = 0
        29@ = 0
    else
        31@ = 0
        30@ = 0
    end
end
jump @main



:IncomingRPC
0BE5: raknet 0@ = get_hook_param PARAM_PACKETID
if and
0@ == RPC_SCRDISPLAYGAMETEXT // GameText
31@ == 1
29@ == 0
then
    0BE5: raknet 1@ = get_hook_param PARAM_BITSTREAM
    //ignore gamtext style and time (8bytes = 64bits)
    0BEB: raknet bit_stream 1@ ignore_bits 64
    //read text length                                   
    0BE7: raknet 2@ = bit_stream_read 1@ type BS_TYPE_INT
    //allocate text length + 1 for null terminating char  
    0A8E: 3@ = 2@ + 1
    alloc 4@ = 3@
    //clear buffer, make sure last char is 0
    0C11: memset 4@ value 0 size 3@
    //read to buffer with size
    0BE8: raknet bit_stream 1@ read_array 4@ size 2@
    //chatmsg "GameText: %s" -1 4@
    if
    0C29: $NOT_USED = stristr string1 4@ string2 "/sairafk"
    then
        0AF5: write_string 4@ to_ini_file "cleo\GameText.ini" section "Game" key "Text"
        30@ = 1
        29@ = 1
    end
    free 4@
end
0BE0: raknet hook_ret true

:GetCode
0C17: 31@ = strlen 0@
31@ -= 1
    for 30@ = 0 to 31@
    0A8D: 29@ = read_memory 0@ size 1 virtual_protect 1
    
        if
        29@ == 91
        then
            0@++ 
            ret 1 0@                                                       
        end   

    0@++
    end
ret 0

:DeleteLastChars
var
0@: int
1@: int
2@: int
end
0C17: 2@ = strlen 0@
2@ -= 1@
0@ += 2@
0C11: memset destination 0@ value 1@ size 0x4
0AB2: ret 0
Click to expand...
An error has occurred.
The code is being entered (flood), but without the prefix "/ sairafk".
 
Upvote 0 Downvote
Status
Not open for further replies.
Top