Декомпиляция скриптов

FYP

FYP

Известный
Автор темы
Администратор
1,770
6,012
GVWUrNJ.png
eNo5cSj.png


Общая тема для просьб о помощи в декомпиляциии и декриптованиии скриптов, плагинов и приложений.
Запрещено просить о декомпиляции/декриптовании софта, выставленного на продажу на нашем сайте.

Рекомендации:
  1. Сначала воспользуйтесь поиском по теме и по форуму, возможно его в декомпилированном виде или с исходным кодом уже выкладывали у нас на сайте.
  2. Попытайтесь декомпилировать самостоятельно: CLEO - декриптор, декомпилятор; AHK - распаковщик .exe; LuaJIT - декомпилятор1, декомпилятор2.
  3. Просить о декомпиляции .asi, .sf, .dll, .exe почти бесполезно, часто такие просьбы остаются без ответа и вряд ли вам это что-то даст. Можете попробовать сами, IDA Pro или Ghidra к вашим услугам.
    • Это не касается .exe, которые являются скомпилированными AutoHotKey-скриптами (.ahk).
  4. Добавьте название скрипта к сообщению, если оно известно - это поможет другим пользователям найти его с помощью поиска.
  5. Сообщения по типу "спасибо, помог" по правилам форума считаются флудом и скорее всего будут удалены. Если вам помогли, вы можете нажать кнопку Мне нравится под ответом - это даст понять, что ответ верный.
 
Последнее редактирование:
  • Нравится
  • Bug
  • Влюблен
Реакции: Ghost13, Miguel Molina, stearless и 53 других
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Dartua написал(а):
+rep za decript
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}

0000: NOP

:Noname_2
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @Noname_2
0B34: samp register_client_command "a" to_label @Noname_156
0B34: samp register_client_command "h" to_label @Noname_359
0B34: samp register_client_command "hcmds" to_label @Noname_555
0AF8: samp add_message_to_chat "a/h by vk.com/id495208414 " color 0xBA55D3
0006: 0@ = 0
0006: 2@ = 0

:Noname_145
0001: wait 0 ms
0002: jump @Noname_145

:Noname_156
0001: wait 0 ms
00D6: if
0039:  0@ == 0
004D: jump_if_false @Noname_278
0006: 0@ = 1
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 16711935 
0B2E: 1@ = read_samp_memory offset 94624 size 2
0B2D: write_samp_memory offset 94624 value 50064 size 2
018C: play_sound 1139 at 0.0 0.0 0.0
035F: actor $PLAYER_ACTOR armour += 100
0002: jump @Noname_357

:Noname_278
0006: 0@ = 0
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 -16776961 
0B2D: write_samp_memory offset 94624 value 1@ size 2
018C: play_sound 1139 at 0.0 0.0 0.0
035F: actor $PLAYER_ACTOR armour += 0

:Noname_357
0B43: samp cmd_ret

:Noname_359
0001: wait 0 ms
00D6: if
0039:  2@ == 0
004D: jump_if_false @Noname_481
0006: 2@ = 1
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 16711935 
0B2E: 3@ = read_samp_memory offset 88992 size 2
0B2D: write_samp_memory offset 88992 value 50064 size 2
018C: play_sound 1139 at 0.0 0.0 0.0
0223: set_actor $PLAYER_ACTOR health_to 100
0002: jump @Noname_553

:Noname_481
0006: 2@ = 0
0ACF: show_formatted_styled_text "a/h by vk.com/id495208414" time 3000 style 2 -16776961 
0B2D: write_samp_memory offset 88992 value 3@ size 2
018C: play_sound 1139 at 0.0 0.0 0.0

:Noname_553
0B43: samp cmd_ret

:Noname_555
0001: wait 0 ms
0AF8: samp add_message_to_chat "a/h by vk.com/id495208414" color -1886416897 
0AF8: samp add_message_to_chat "/a" color 0xBA55D3
0AF8: samp add_message_to_chat "/h" color 0xBA55D3 
0B43: samp cmd_ret
 
  • Нравится
Реакции: thx killa
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
NoNameCoder написал(а):
Unlock
Нажмите для раскрытия...
CLEO: 
{$CLEO}

hex
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
end

wait 5000
0AF8: samp add_message_to_chat "[UGBASE.EU] {FFFFFF}Player Finder made by {00DE21}TH3RM4L-" color 0x0095FF
0B34: samp register_client_command "cfind" to_label @start
0B34: samp register_client_command "myfind" to_label @my_find
0B34: samp register_client_command "stopfind" to_label @stop
31@ = false
30@ = false

:cfind
wait 0 
if
31@ == true
jf @cfind
if
SAMP.IsPlayerConnected(2@)
jf @disconnected  
3@ = SAMP.GetActorHandleByPlayerID(2@)
if
856D:  actor 3@ defined
jf @find       
0B2F: samp get_streamed_out_player_pos 2@ to 9@ 10@ 11@
12@ = Marker.CreateIconAndSphere(41, 9@, 10@, 11@)
wait 750
Marker.Disable(12@)
wait 100    

:find
wait 0
if
056D:  actor 3@ defined
jf @cfind
Actor.StorePos(3@, 5@, 6@, 7@)
8@ = Marker.CreateIconAndSphere(41, 5@, 6@, 7@)
wait 750
Marker.Disable(8@)
wait 100
goto @cfind

:start
if
30@ == false
jf @finding_more_players
SAMP.IsCommandTyped(0@)
if
0AD4: 1@ = scan_string 0@ format "%d" 2@
jf @usage
if
SAMP.IsPlayerConnected(2@)
jf @invalid_id
30@ = true
31@ = true
0B36: samp 4@ = get_player_nickname 2@
0AF8: samp add_message_to_chat "Marker set on the player %s, ID %d. Use [/stopfind] to stop finding." color 0x6098D1 4@ 2@
SAMP.CmdRet
goto @cfind

:stop
if                                                     
31@ == true
jf @not_finding
30@ = false
31@ = false
Marker.Disable(8@)
0AF8: samp add_message_to_chat "The finding has been stopped succefully." color 0x6098D1
SAMP.CmdRet
goto @cfind

:my_find
if
31@ == true
jf @not_finding
0AF8: samp add_message_to_chat "You are finding %s, ID %d." color 0x6098D1 4@ 2@
SAMP.CmdRet
goto @cfind

:disconnected
0AF8: samp add_message_to_chat "The player which you were finding has disconnected." color 0xBF0000
30@ = false
31@ = false
goto @cfind

:finding_more_players
0AF8: samp add_message_to_chat "You can't find more players at the same time. Use [/stopfind] to stop finding." color 0xFBE29C
SAMP.CmdRet
goto @cfind

:usage
0AF8: samp add_message_to_chat "USAGE: /cfind <playerID>" color 0xBFBFBF
SAMP.CmdRet
goto @cfind

:invalid_id
0AF8: samp add_message_to_chat "Invalid ID." color 0xBF0000
SAMP.CmdRet
goto @cfind

:not_finding
0AF8: samp add_message_to_chat "You are not finding anyone." color 0xFBE29C
SAMP.CmdRet
goto @cfind
 
  • Нравится
Реакции: NoNameCoder
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Dawidos написал(а):
й
Нажмите для раскрытия...
Полный код.
CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0662: printstring "==============================================================="
0662: printstring "My VK: vk.com/id138101483"
0662: printstring "My Skype: hackes8"
0662: printstring "Group VK: vk.com/by_air"
0662: printstring "My YouTube Channel: www.youtube.com/spacebmxair"
0662: printstring "All rights reserved ©"
0662: printstring "==============================================================="

:Label00011F
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @Label00011F

:Label00012C
0001: wait 0 ms
00D6: if and
0AB0:   key_pressed 82
8449:   not actor $PLAYER_ACTOR in_a_car
8B21:   not samp is_chat_opened
004D: jump_if_false @Label000189
01B4: set_player $PLAYER_CHAR can_move 1
00A0: store_actor $PLAYER_ACTOR position_to 8@ 9@ 10@
04C4: store_coords_to 8@ 9@ 10@ from_actor $PLAYER_ACTOR with_offset 0 0 -1.0
00A1: put_actor $PLAYER_ACTOR at 8@ 9@ 10@
04D7: set_actor $PLAYER_ACTOR locked 0
02EB: restore_camera_with_jumpcut

:Label000189
00D6: if and
0AB0:   key_pressed 46
0449:   actor $PLAYER_ACTOR in_a_car
8B21:   not samp is_chat_opened
004D: jump_if_false @Label00020A
03C0: 0@ = actor $PLAYER_ACTOR car
0407: store_coords_to 8@ 9@ 10@ from_car 0@ with_offset 0.0 0.0 0.0
00AB: put_car 0@ at 8@ 9@ 10@
0A97: 12@ = car 0@ struct
0C0C: 13@ = struct 12@ offset 20 size 4
0C0D: struct 13@ offset 48 size 4 = 8@
0C0D: struct 13@ offset 52 size 4 = 9@
0C0D: struct 13@ offset 56 size 4 = 10@

:Label00020A
0002: jump @Label00012C
 
  • Нравится
Реакции: Dawidos
B

Berlusconi

Участник
36
2
Проверьте на стиллер/вирус плез, он закриптован +rep
 

Вложения

  • DMG INFORMER 2.cs
    33 KB · Просмотры: 11
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
Chip Berlusconi написал(а):
Проверьте на стиллер/вирус плез, он закриптован +rep
Нажмите для раскрытия...
Чист.
CLEO: 
hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end

{$CLEO} 
{$INCLUDE SF}   
0000:

while not SAMP.Available()
wait 100
end


0B34: samp register_client_command "q3" to_label @p1_reload 

//10@ = 339.0
//11@ = 174.0
32@ = 1201
33@ = 1201

28@ = 1
27@ = 1
26@ = 1
25@ = 1
8@ = 0

//alloc 2@ 64
alloc 29@ 64
//0C11: memset destination 2@ value 0 size 64
0C11: memset destination 29@ value 0 size 64
0B6D: render 31@ = create_font "Arial Black" height 13 flags 12  //DAMAGE
0B6D: render 30@ = create_font "Arial Black" height 9 flags 13   //Nickname



0B34: samp register_client_command "dmghelp" to_label @p1_dmghelp
0B34: samp register_client_command "dmgi" to_label @p1_dmg_global               //28@ == 1 
0B34: samp register_client_command "dmgnames" to_label @p1_dmgnames             //27@ == 1
0B34: samp register_client_command "dmginc" to_label @p1_dmginc                 //26@ == 1
0B34: samp register_client_command "dmgoutc" to_label @p1_dmgoutc               //25@ == 1 
0B34: samp register_client_command "dmglol" to_label @p1_dmglol         //8@ == 0



0AF8: samp add_message_to_chat "p1cador: {ff0000}DMG Informer 2.0{ffffff}. Иструкция {00BFFF}/dmghelp" color 0xffffff
while true
    wait 0
    if 0AAC: 0@ = load_audiostream "CLEO\p1_bell.mp3"  
        then        
        0B78: log "{ff0000}[p1cador] {fff000}> Audio Loaded!"
        break
        else
        0AF8: samp add_message_to_chat "p1cador: {ff0000}DMG Informer 2.0{ffffff}. Аудиофайл {00bfff}p1_bell.mp3 {ff0000}не загружен" color 0xffffff
        break
    end
end  




/*while true
    wait 100
    if 0B61: samp is_local_player_spawned
        then
        0B2B: samp 24@ = get_player_id_by_actor_handle $PLAYER_ACTOR
        break
    end
end  */


0BE1: raknet setup_outcoming_rpc_hook @outRPC


while true
    wait 0
   
    while 28@ == 0
        wait 100
    end
           
    if and
    0029:   14@ >= 1
    25@ == 1
   
        then
        if 32@ <= 1200 //0->1200
            then                 
            0B60: convert_game_screen_coords 415.0 16@  to_window_screen_coords 18@ 20@           
            0AB1: call_scm_func @OUTC_DMG_RENDER 12 text0 29@ font1 31@ posX_2 18@ posY_3 20@ color4 0x5fc100 alpha5 14@ id6 10@ dmg7 6@ popad8 22@ last_id9 24@ rand10 3@ killmsg11 8@ | last_pop0 22@ last_id1 24@
            0B60: convert_game_screen_coords 415.0 182.0  to_window_screen_coords 18@ 20@
            if 27@ == 1
                then           
                0AB1: call_scm_func @OUTC_NICKNAME_RENDER 7 text0 29@ font1 30@ posX_2 18@ posY_3 20@ color4 12@ alpha5 255 id6 10@
            end
            14@ -= 2
            16@ -= 0.3
            32@ += 1 
            else
            free 10@
            free 6@
            free 14@
            free 16@          
        end
    end
     
    if and
    0029:   15@ >= 1
    26@ == 1
        then       
        if 33@ <= 1200
            then    
            0B60: convert_game_screen_coords 240.0 17@  to_window_screen_coords 19@ 21@ 
            0AB1: call_scm_func @INC_DMG_RENDER 8 text0 29@ font1 31@ posX_2 19@ posY_3 21@ color4 0xbb0000 /*13@*/ alpha5 15@ id6 11@ dmg7 7@
            0B60: convert_game_screen_coords 240.0 182.0  to_window_screen_coords 19@ 21@
            if 27@ == 1
            then
            0AB1: call_scm_func @INC_NICKNAMES_RENDER 8 text0 29@ font1 30@ posX_2 19@ posY_3 21@ color4 13@ alpha5 255 id6 11@ last_id7 23@ | last_id 23@ 
            end
            15@ -= 2
            17@ -= 0.2
            33@ += 1                                                                                                          
        end
    end  
end

:OUTC_DMG_RENDER
0B66: render argb 4@ to_a 15@ r 16@ g 17@ b 18@
0B20: samp 15@ = actor_handle_by_samp_player_id 6@

if or
001d: 9@ > 6@           //если ид предыдущей цели
001d: 6@ > 9@           //не равен иду теущей цели
    then    8@ = 1      //обнулить счетчик попаданий
end

//0AF8: samp add_message_to_chat "%d" color 0x00ff00 10@

if and
Actor.Dead(15@)          
11@ == 1
    then
   // 0AD3: 0@ format "{ff0000}ВЫЕБАН"
    if 10@ == 1
        then
        0AD3: 0@ format "{b60000}ОПУЩЕН"   //purpure 
        else
        if 10@ == 2
            then
            0AD3: 0@ format "{b60000}ВЫЕБАН" //red   
            else
            if 10@ == 3
                then
                0AD3: 0@ format "{b60000}ОБОССАН" //yellow        
                else
                if 10@ == 4               
                    then
                    0AD3: 0@ format "{b60000}УНИЖЕН" //green                
                    else
                    if 10@ == 5
                        then
                        0AD3: 0@ format "{b60000}ОБОСРАН"  //blue                 
                        else 
                        0AD3: 0@ format "{b60000}ВЫЕБАН" //red                         
                    end
                end
            end
        end
    end     
    
    else  
    if Samp.IsPlayerPaused(6@)
        then
        16@ = 255
        17@ = 255
        18@ = 255
        0AD3: 0@ format "afk"
        else
        0AD3: 0@ format "%.1f {bb0000}(x%d)" 7@ 8@
    end
   
end

0B67: render a 5@ r 16@ g 17@ b 18@ to_argb 19@
0B6B: render 20@ = font 1@ draw_text 0@ length
0062: 2@ -= 20@
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 19@
0AB2: ret 2 8@ 6@

:OUTC_NICKNAME_RENDER
0B36: samp 15@ = get_player_nickname 6@
0AD3: 0@ format "%s[%d]" 15@ 6@
0B6B: render 20@ = font 1@ draw_text 0@ length
20@ /= 2
0062: 2@ -= 20@ 
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 4@
0AB2: ret 0    

:INC_DMG_RENDER
0B66: render argb 4@ to_a 15@ r 16@ g 17@ b 18@
0B67: render a 5@ r 16@ g 17@ b 18@ to_argb 19@

0AD3: 0@ format "-%.2f" 7@
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 19@
0AB2: ret 0

:INC_NICKNAMES_RENDER
if Actor.Dead($PLAYER_ACTOR)
    then 0085: 6@ = 7@
    else
end
0B36: samp 15@ = get_player_nickname 6@ 
0AD3: 0@ format "%s[%d]" 15@ 6@
0B6B: render 20@ = font 1@ draw_text 0@ length
20@ /= 2
0062: 2@ -= 20@ 
0B6F: render font 1@ draw_text 0@ pos 2@ 3@ color 4@
0AB2: ret 1 id 6@



:outRPC    
0BE5: raknet 1@ = get_hook_param PARAM_PACKETID
IF 0039: 1@ == RPC_GIVETAKEDAMAGE
    THEN   
    0BE5: raknet 2@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 3@ = bit_stream_read 2@ type BS_TYPE_BOOL      //give/take
    0BE7: raknet 4@ = bit_stream_read 2@ type BS_TYPE_SHORT     //Player
    0BE7: raknet 5@ = bit_stream_read 2@ type BS_TYPE_INT       //ammount(FLOAT)
    //0BE7: raknet 6@ = bit_stream_read 2@ type BS_TYPE_INT       //GUN
    //0BE7: raknet 7@ = bit_stream_read 1@ type BS_TYPE_INT       //BodyPart
     if 3@ == 0
        then
        0AAD: set_mp3 0@ perform_action 1        
     
        32@ = 0
        0085: 10@ = 4@ //id
        0087: 6@ = 5@ //dmg 
        0B37: samp 12@ = get_player_color 10@
       
        14@ = 255     //alpha
        16@ = 174.0     //Y
        22@ += 1 //попадания += 1
        if 8@ == 1
            then
            0209: 3@ = random_int_in_ranges 1 6
        end
//===================================       
        else   
//===================================   
        if 3@ == 1
            then           
         
            33@ = 0
            0085: 11@ = 4@ //id
            0087: 7@ = 5@ //dmg
            0B37: samp 13@ = get_player_color 11@
       
            15@ = 255    //alpha
            17@ = 174.0     //Y
        end
    end
    0BE0: raknet hook_ret true
    ELSE 0BE0: raknet hook_ret TRUE 
END




:p1_dmghelp
0AF8: samp add_message_to_chat " " color 0xffffff
0AF8: samp add_message_to_chat "============== {ff0000}DMG Informer 2.0{ffffff} ============" color 0xffffff
0AF8: samp add_message_to_chat "Перед тем, как пиздеть, что колокольчик не звинит" color 0xffffff
0AF8: samp add_message_to_chat "Включи звук радио и перезайди в игру." color 0xffffff
0AF8: samp add_message_to_chat ".mp3 файл должен лежать в папке клео и иметь название p1_bell.mp3" color 0xffffff
0AF8: samp add_message_to_chat " " color 0xffffff
if 28@ == 1
    then
    9@v = "{00ff00}вкл"
    else
    9@v = "{ff0000}выкл"
end
0AF8: samp add_message_to_chat "{ff0000}/dmgi {ffffff}- вкл/выкл {00BFFF}весь скрипт{ffffff} (сейчас: %s{ffffff})" color 0xffffff 9@v
if 26@ == 1
    then
    9@v = "{00ff00}вкл"
    else
    9@v = "{ff0000}выкл"
end
0AF8: samp add_message_to_chat "{ff0000}/dmginc {ffffff}- вкл/выкл отображение {00BFFF}получаемого {ffffff}урона (сейчас: %s{ffffff})" color 0xffffff 9@v
if 25@ == 1
    then
    9@v = "{00ff00}вкл"
    else
    9@v = "{ff0000}выкл"
end
0AF8: samp add_message_to_chat "{ff0000}/dmgoutc {ffffff}- вкл/выкл отображение {00BFFF}нанесенного {ffffff}урона (сейчас: %s{ffffff})" color 0xffffff 9@v 
if 27@ == 1
    then
    9@v = "{00ff00}вкл"
    else
    9@v = "{ff0000}выкл"
end
0AF8: samp add_message_to_chat "{ff0000}/dmgnames {ffffff}- вкл/выкл отображение {00BFFF}ников{ffffff} (сейчас: %s{ffffff})" color 0xffffff 9@v
if 8@ == 1
    then
    9@v = "{00ff00}вкл"
    else
    9@v = "{ff0000}выкл"
end
0AF8: samp add_message_to_chat "{ff0000}/dmglol {ffffff}- вкл/выкл {00BFFF}сообщения при убийстве{ffffff} (сейчас: %s{ffffff})" color 0xffffff 9@v
0AF8: samp add_message_to_chat "============== by {ff0000}p1cador {ffffff}================" color 0xffffff
0b43: samp cmd_ret

:p1_dmg_global
0AB1: call_scm_func @p1_trigger 1 28@ 28@
if 28@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: {00FF00}DMG Informer включен" color 0xffffff
end

if 28@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: {FF0000}DMG Informer выключен" color 0xffffff
end
0b43: samp cmd_ret

:p1_dmgnames
0AB1: call_scm_func @p1_trigger 1 27@ 27@
if 27@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: отображение ников {00ff00}включено" color 0xffffff
end

if 27@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: отображение ников {ff0000}отключено" color 0xffffff
end
0b43: samp cmd_ret


:p1_dmginc
0AB1: call_scm_func @p1_trigger 1 26@ 26@
if 26@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: отображение получаемого урона {00ff00}включено" color 0xffffff
end

if 26@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: отображение получаемого урона {ff0000}отключено" color 0xffffff
end
0b43: samp cmd_ret

:p1_dmgoutc
0AB1: call_scm_func @p1_trigger 1 25@ 25@
if 25@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: отображение нанесенного урона {00ff00}включено" color 0xffffff
end

if 25@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: отображение нанесенного урона {ff0000}отключено" color 0xffffff
end
0b43: samp cmd_ret


:p1_dmglol
0AB1: call_scm_func @p1_trigger 1 8@ 8@
if 8@ == 1
    then 0AF8: samp add_message_to_chat "p1cador: сообщения при убийстве {00FF00}включены" color 0xffffff
end

if 8@ == 0
    then 0AF8: samp add_message_to_chat "p1cador: сообщения при убийстве {FF0000}выключены" color 0xffffff
end
0b43: samp cmd_ret






:p1_trigger
if 0@ == 1
    then
    0@ = 0
    else
    if 0@ == 0
        then
        0@ = 1
        else
    end
end
0AB2: ret 1 0@ 
       
:p1_reload
free 29@
//free 2@
0B6E: render release_font 31@
0B6E: render release_font 30@
0A92: create_custom_thread "q3.CS"
0A93: end_custom_thread
0b43: samp cmd_ret
 
  • Нравится
Реакции: Berlusconi
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
  • Нравится
Реакции: Sergiu Rotari и Welles
™

™ ChipFamily

По ту сторону надежды.
5,143
1,992
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
ANGELOGFX написал(а):
пожалуйста
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
0000: NOP
0662: "PopandauL"

wait 0
03F0: enable_text_draw 1
0AB1: call_scm_func @getIniCoordinates 0 10@ 11@ 12@ 13@ 14@ 15@ 16@ 17@ 18@ 19@ 20@ 21@ 22@ 23@ 24@ 25@

while true
wait 0
    0AF0: 30@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Reload" key "R"
        if 30@ == 1
        then
        0AB1: call_scm_func @getIniCoordinates 0 10@ 11@ 12@ 13@ 14@ 15@ 16@ 17@ 18@ 19@ 20@ 21@ 22@ 23@ 24@ 25@
        0AF1: write_int 0 to_ini_file "cleo\DigiInfo.ini" section "Reload" key "R"
        end
0A8D: 3@ = read_memory 0xBA6769 size 1 virtual_protect 0
    if and
    3@ == 1
    Player.Defined($PLAYER_ACTOR)
    02CB:   actor $PLAYER_ACTOR bounding_sphere_visible
    then
    1@ = Actor.Health($PLAYER_ACTOR)
    04DD: 2@ = actor $PLAYER_ACTOR armour
        if 1@ > 0
        then
            if 25 >= 1@
            then
            0AB1: call_scm_func @drawNumber 6 coords_X 10@ coords_Y 11@ value 1@ 255 0 0
            else
            0AB1: call_scm_func @drawNumber 6 coords_X 10@ coords_Y 11@ value 1@ 255 255 255
            end
        end
        if 2@ > 0
        then
            if 25 >= 2@
            then
            0AB1: call_scm_func @drawNumber 6 coords_X 12@ coords_Y 13@ value 2@ 255 0 0
            else
            0AB1: call_scm_func @drawNumber 6 coords_X 12@ coords_Y 13@ value 2@ 255 255 255
            end
        end
        if 0AB1: call_scm_func @sprint 0 0@
        then
            if 25@ == 1
            then
            0AB1: call_scm_func @drawBar 7 coords_X 18@ coords_Y 19@ value 0@ size X 58.0 Y 5.0 thickness 4.0 1
            0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                0AB1: call_scm_func @drawNumber 6 coords_X 16@ coords_Y 17@ value 0@ 255 0 0
                else
                0AB1: call_scm_func @drawNumber 6 coords_X 16@ coords_Y 17@ value 0@ 255 255 255
                end
            end
        else
            if 0AB1: call_scm_func @carhealth 0 0@
            then
                if 24@ == 1
                then
                0AB1: call_scm_func @drawBar 7 coords_X 22@ coords_Y 23@ value 0@ size X 58.0 Y 5.0 thickness 4.0 0
                0092: 0@ = float 0@ to_integer 
                    if 25 >= 0@
                    then
                    0AB1: call_scm_func @drawNumber 6 coords_X 20@ coords_Y 21@ value 0@ 255 0 0
                    else
                    0AB1: call_scm_func @drawNumber 6 coords_X 20@ coords_Y 21@ value 0@ 255 255 255
                    end
                end
            else
                0A8D: 0@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
                0@ /= 39.97000244
                0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                0AB1: call_scm_func @drawNumber 6 coords_X 14@ coords_Y 15@ value 0@ 255 0 0
                else
                0AB1: call_scm_func @drawNumber 6 coords_X 14@ coords_Y 15@ value 0@ 255 255 255
                end
            end
        end
    end
end

:drawBar
    if 6@ == 1
    then
    0AF0: 20@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "Color"
    0AF0: 21@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BColor"
    else
    0AF0: 20@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "Color"
    0AF0: 21@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BColor"
    end
0AB1: call_scm_func @RGBfromHEX 1 20@ R 14@ G 15@ B 16@ 
0AB1: call_scm_func @RGBfromHEX 1 21@ R 17@ G 18@ B 19@ 
13@ = 100.0      
0073: 13@ /= 3@ // (float)
0073: 2@ /= 13@ // (float)
0087: 11@ = 3@ // (float)
0087: 12@ = 4@ // (float)
005B: 11@ += 5@  // (float)
005B: 12@ += 5@  // (float)    
038E: draw_box_position 0@ 1@ size 11@ 12@ RGBA 0 0 0 255
038E: draw_box_position 0@ 1@ size 3@ 4@ RGBA 19@ 18@ 17@ 255
0087: 10@ = 2@ // (float)
0017: 10@ /= 2.0
0017: 3@ /= 2.0
005B: 0@ += 10@  // (float)
0063: 0@ -= 3@  // (float)
038E: draw_box_position 0@ 1@ size 2@ 4@ RGBA 16@ 15@ 14@ 255
0AB2: ret 0

:drawNumber
//0AB1: call_scm_func @drawNumber 6 coords_X 0@ coords_Y 1@ value 2@ R 3@ G 4@ B 5@
0349: set_text_draw_font 1
0342: set_text_draw_centered 1
033F: set_text_draw_letter_size 0.3 0.9
081C: draw_text_outline 1 RGBA 0 0 0 255
0340: set_text_draw_RGBA 3@ 4@ 5@ 255
045A: draw_text_1number 0@ 1@ GXT 'NUMBER' number 2@  // ~1~
0AB2: ret 0

:sprint
0A8D: 0@ = read_memory 0xB7CDB4 size 4 virtual_protect 0
0@ /= 31.47000244
0@ += 4.0
0@ *= 0.9615384615384615
0A8D: 1@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
1@ /= 39.97000244
    if and
    1@ > 99.0
    8965:   actor $PLAYER_ACTOR swimming
    80DF:   actor $PLAYER_ACTOR driving
    then
    0485:  return_true
    else
    059A:  return_false
    end
0AB2: ret 1 0@

:carhealth
0A8D: 2@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
2@ /= 39.97000244
    if and
    2@ > 99.9
    Actor.Driving($PLAYER_ACTOR)
    then
    0@ = Actor.CurrentCar($PLAYER_ACTOR)
    1@ = Car.Health(0@) 
    0093: 1@ = integer 1@ to_float
        if and
        1@ >= 250.0
        1000.0 >= 1@
        then     
        000F: 1@ -= 250.0
        0017: 1@ /= 7.5
        else
            if 1@ >= 1000.0
            then
            1@ = 100.0
            else   
            1@ = 0.0
            end
        end
    0485:  return_true
    else
    1@ = 0.0
    059A:  return_false
    end
0AB2: ret 1 1@

:RGBfromHEX 
//0AB1: call_scm_func @RGBfromHEX 1 0x00FF00 R 0@ G 1@ B 2@ 
0085: 1@ = 0@
0085: 2@ = 0@
0085: 3@ = 0@

0016: 1@ /= 65536
0085: 4@ = 1@ //B
0012: 1@ *= 65536

0062: 2@ -= 1@
0016: 2@ /= 256
0085: 5@ = 2@ //G
0012: 2@ *= 256

0062: 3@ -= 1@
0062: 3@ -= 2@ //R
0AB2: ret 3 3@ 5@ 4@

:getIniCoordinates
0AF2: 0@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "X"
0AF2: 1@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "Y"
0087: 10@ = 0@
0087: 11@ = 1@
000B: 10@ += 0.5
000B: 11@ += 4.5

0AF2: 2@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "X"
0AF2: 3@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "Y"

0087: 12@ = 2@
0087: 13@ = 3@
000B: 12@ += 0.5
000B: 13@ += 4.5
0AF2: 4@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Health" key "X"
0AF2: 5@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Health" key "Y"

0AF2: 6@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Armour" key "X"
0AF2: 7@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Armour" key "Y"

0AF2: 8@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Oxygen" key "X"
0AF2: 9@ = get_float_from_ini_file "cleo\DigiInfo.ini" section "Oxygen" key "Y"

0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "Active"
0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "Active"

0AB2: ret 16 4@ 5@ 6@ 7@ 8@ 9@ 0@ 1@ 10@ 11@ 2@ 3@ 12@ 13@ 14@ 15@
 
  • Нравится
Реакции: Welles
B

Berlusconi

Участник
36
2
Проверьте на стиллер/вирус плез, он закриптован +rep
 

Вложения

  • Kolokol.cs
    17.8 KB · Просмотры: 14
D

dUnKiK

Участник
43
18
Chip Berlusconi написал(а):
Проверьте на стиллер/вирус плез, он закриптован +rep
Нажмите для раскрытия...
Стиллеров нет, вот код:
CLEO: 
// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
1@ = 1

:Noname_9
   not SAMP.Available
jf @Noname_30
wait 400
goto @Noname_9

:Noname_30
wait 1000
chatmsg "{A3E900}[Kolokol]: {FFFFFF}Успешно загружен. Автор: {A3E900}Niko" -1
chatmsg "{A3E900}[Kolokol]: {FFFFFF}Специально для сайта: {A3E900}samods.ru" -1
0@ = Audiostream.Load("CLEO\Kolokol.mp3")
0B34: samp register_client_command "kolokol" to_label @Noname_236
0BE1: raknet setup_outcoming_rpc_hook @Noname_356

:Noname_225
wait 0
goto @Noname_225

:Noname_236
0B12: 1@ = 1@ XOR 1
if
  1@ == 1
jf @Noname_312
chatmsg "{A3E900}[Kolokol]: {FFFFFF}Включен" -1
goto @Noname_354

:Noname_312
chatmsg "{A3E900}[Kolokol]: {FFFFFF}Выключен" -1

:Noname_354
SAMP.CmdRet

:Noname_356
if
  1@ == 1
jf @Noname_441
0BE5: raknet 2@ = get_hook_param 1
if
  2@ == 115
jf @Noname_441
0BE5: raknet 3@ = get_hook_param 0
4@ = BitStream.Read(3@, 1)
if
  4@ == 0
jf @Noname_441
Audiostream.PerformAction(0@, PLAY)

:Noname_441
0BE0: raknet hook_ret 1
 
  • Нравится
Реакции: Berlusconi
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. LinkelnAweil
    • Закрыта
    Lua Декомпиляция скриптов
    Ответы
    3
    Просмотры
    7K
    Другое
    Mirrorka
    Mirrorka
  2. LeonardoDiCaprioAndDaVinc
    • Вопрос
    Декомпиляция скриптов Lua и Cleo
    Ответы
    4
    Просмотры
    3K
    Помощь
    YarikVL
    YarikVL
  3. K
    • Вопрос
    Декомпиляция
    Ответы
    3
    Просмотры
    2K
    Вопросы
    degrando
    degrando
  4. F
    • Решено
    Декомпиляция .luac скриптов
    Ответы
    7
    Просмотры
    5K
    Помощь
    deleted-user-411329
    D
  5. Dec0d3r
    Исполнитель Декомпиляция AHK-скриптов
      • Bug
    Ответы
    1
    Просмотры
    687
    Работа и услуги
    Z1triXXXXX
    Z1triXXXXX
Сверху Снизу