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

[FYP]

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

Рекомендации:

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

 

[™ ChipFamily]

Если не секрет,чем смог вскрыть код Dapo?

CustomDecrypt

 

[Freym]

decrypt

 

[Супер школоло]

Есть скрипт, нужен его код. HElp plez

 

[™ ChipFamily]

Есть скрипт, нужен его код. HElp plez

 

[Супер школоло]

слушай, а вот скрипт работает по привязке. Не подскажешь, как ее убрать? )

 

[f0Re3t]

слушай, а вот скрипт работает по привязке. Не подскажешь, как ее убрать? )

удалить ее и скомпилировать скрипт заново, а вообще разделом ошибся

 

[Супер школоло]

удалить ее и скомпилировать скрипт заново, а вообще разделом ошибся

Какую из строк именно? Эту?

:Label000334
0AA2: 25@ = load_library "Kernel32.DLL" // IF and SET
0AA4: 26@ = get_proc_address "GetVolumeInformationA" library 25@ // IF and SET
0AC7: 27@ = var 27@ offset
0AA7: call_function 26@ num_params 8 pop 0 0 0 0 0 27@ 0 0 0 28@ 
0AA3: free_library 25@
0AB2: ret 1 27@

 

[f0Re3t]

Какую из строк именно? Эту?

:Label000334
0AA2: 25@ = load_library "Kernel32.DLL" // IF and SET
0AA4: 26@ = get_proc_address "GetVolumeInformationA" library 25@ // IF and SET
0AC7: 27@ = var 27@ offset
0AA7: call_function 26@ num_params 8 pop 0 0 0 0 0 27@ 0 0 0 28@
0AA3: free_library 25@
0AB2: ret 1 27@

это получение твоего серийника, а тебе нужно удалить проверку его

 

[Супер школоло]

это получение твоего серийника, а тебе нужно удалить проверку его

Все, я уже догнал, вырезал, все робит.

 

[oPawka]

Пожалуйста

 

[™ ChipFamily]

Пожалуйста

hex
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15
end

{$CLEO}
{$INCLUDE SF}
0000:

// START

REPEAT
wait 0
UNTIL 0AFA:  is_samp_available

// INI FILE

IF 8AAB: NOT file_exists "CLEO\AutoLock.ini"
THEN
    0AF1: write_int 1 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoLock [0/1]"
    0AF1: write_int 1 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoLockInCar [0/1]"
    0AF1: write_int 113 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "LockOnTheButton [VirtualKeyCodes]" // F2
    0AF1: write_int 114 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "KeyOnTheButton [VirtualKeyCodes]" // F3
    0AF1: write_int 1 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoEngine [0/1]"
    0AF1: write_int 50 to_ini_file "CLEO\AutoLock.ini" section "Settings" key "Delay [ms]"
   
    0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
    0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_2" 
    0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_3"
    0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_4"
    0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_5" 
    0AF1: write_int 0 to_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_6"         
END

// SERVERS

0AC8: 0@ = allocate_memory_size 512
0AC8: 1@ = allocate_memory_size 512
0B39: samp get_current_server_address 0@ port 1@
IF 1@ == 7777
THEN
    IF OR
    0C14: 0@ "185.169.134.3" // Arizona RolePlay Phoenix
    0C14: 0@ "185.169.134.4" // Arizona RolePlay Tucson
    0C14: 0@ "185.169.134.43" // Arizona RolePlay Scottdale
    0C14: 0@ "185.169.134.44" // Arizona RolePlay Chandler
    0C14: 0@ "185.169.134.45" // Arizona RolePlay Brainburg
    0C14: 0@ "185.169.134.5" // Arizona RolePlay Saint Rose
    0C14: 0@ "185.169.134.59" // Arizona RolePlay Mesa
    0C14: 0@ "185.169.134.61" // Arizona RolePlay Red-Rock
    THEN
        WHILE TRUE
        wait 0                     
            IF 0B61:  samp is_local_player_spawned
            THEN  
                wait 10
                0AF8: "" -1
                0AF8: "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}AutoLock by Ro0oma çàïóùåí!" -1
                0AF0: 19@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
                    IF 19@ == 0
                    THEN
                        0AF8: "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}Óêàæèòå ID ìîäåëè Âàøåãî Ò/Ñ äëÿ ðàáîòû ñêðèïòà!" -1
                    END
                0C6A: 31@ = create_custom_thread_at_label @LABEL
                0C6A: 30@ = create_custom_thread_at_label @LABEL2
                0C6A: 29@ = create_custom_thread_at_label @LABEL3
                0BE3: raknet setup_incoming_rpc_hook @iRPC
                BREAK
            END
        END
    ELSE
        WHILE TRUE
        wait 0
            IF 0B61:  samp is_local_player_spawned
            THEN  
                wait 10
                0AF8: "" -1          
                0AF8: "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}Âû íå íà Arizona Role Play!" -1
                0AF8: "{DFCFCF}[Ïîäñêàçêà] {FFFFFF}AutoLock îòêëþ÷åí!" -1
                004E: end_thread
            END
        END
    END
ELSE
    004E: end_thread
END

0AC9: free_allocated_memory 0@
0AC9: free_allocated_memory 1@

// AUTOLOCK

WHILE TRUE
wait 0

IF AND
80DF:   actor $PLAYER_ACTOR driving
0AB0:   key_pressed 70
8B21:     samp is_chat_opened
8B4C:  samp is_dialog_active -1
THEN
    15@ = 0
    0AB5: store_actor $PLAYER_ACTOR closest_vehicle_to 25@ closest_ped_to $NO_USE
    0AF0: 22@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
    0AF0: 23@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_2"
    0AF0: 24@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_3"
    0AF0: 11@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_4"
    0AF0: 12@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_5"
    0AF0: 13@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_6"
    IF 056E:   car 25@ defined
    THEN
        IF OR
        0137: car 25@ model == 22@
        0137: car 25@ model == 23@
        0137: car 25@ model == 24@
        0137: car 25@ model == 11@
        0137: car 25@ model == 12@
        0137: car 25@ model == 13@
        THEN             
                WHILE TRUE
                wait 0
                    IF 8AB0:    key_pressed 70
                    THEN
                        say "/lock"
                            IF 8039:   NOT 20@ == 1
                            THEN
                            wait 250
                                    FOR 1@ = 0 TO 30 step=1
                                    wait 0
                                    0B56: set_game_key 15 state 255
                                    END
                            END
                        BREAK
                    END
                END
        END
    END
ELSE
    15@ = 1
    END
END

// AUTOENGINE

:LABEL
WHILE TRUE
wait 0
IF 00DF:   actor $PLAYER_ACTOR driving
THEN
    03C0: 0@ = actor $PLAYER_ACTOR car
    0AF0: 22@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_1"
    0AF0: 23@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_2"
    0AF0: 24@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "ID Car" key "Car_3"
        IF OR
        0137: car 0@ model == 22@
        0137: car 0@ model == 23@
        0137: car 0@ model == 24@
        THEN
                0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoLockInCar [0/1]"
                IF 1@ == 1
                THEN
                    0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "Delay [ms]"     
                    wait 1@
                    say "/lock"
                END
                        wait 50
                            0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "AutoEngine [0/1]"
                            IF 1@ == 1
                            THEN
                                IF 8ABE:    not vehicle 0@ engine_on
                                THEN
                                    say "/engine"
                                END
                            END
                                WHILE 00DF:   actor $PLAYER_ACTOR driving
                                wait 0
                                END
        END
    END                                    
END

// BUTTON

:LABEL2
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "LockOnTheButton [VirtualKeyCodes]"
WHILE TRUE
wait 0
    IF 0AB0:   key_pressed 1@
    THEN
        say "/lock"
        WHILE 0AB0:   key_pressed 1@
        wait 0
        END        
    END   
END

:LABEL3
0AF0: 1@ = get_int_from_ini_file "CLEO\AutoLock.ini" section "Settings" key "KeyOnTheButton [VirtualKeyCodes]"
WHILE TRUE
wait 0
    IF 0AB0:   key_pressed 1@
    THEN
        say "/key"
        WHILE 0AB0:   key_pressed 1@
        wait 0
        END        
    END   
END
// HOOKS

:iRPC
    0BE5: raknet 9@ = get_hook_param 1
    IF 9@ == 73
    THEN
        0BE5: raknet 9@ = get_hook_param PARAM_BITSTREAM
        0BE9: raknet bit_stream 9@ reset_read_pointer
        0BE7: raknet 2@ = bit_stream_read 9@ type BS_TYPE_INT
        0BE7: raknet 3@ = bit_stream_read 9@ type BS_TYPE_INT
        0BE7: raknet 4@ = bit_stream_read 9@ type BS_TYPE_INT
        0AC8: 5@ = allocate_memory_size 512
        0BE8: raknet bit_stream 9@ read_array 5@ size 4@
        0C1E: array 5@ element 4@ el_size 1 = 0
        IF 0C29: 6@ = stristr string1 5@ string2 " LOCK"
        THEN
        20@ = 1
            IF 8039:   NOT 15@ == 1
            THEN
            say "/lock"
            wait 250
                FOR 1@ = 0 TO 30 step=1
                wait 0
                0B56: set_game_key 15 state 255
                END
            END
        20@ = 0
        END
        0AC9: free_allocated_memory 5@
        0BE9: raknet bit_stream 9@ reset_read_pointer  
    END
    0BE0: raknet hook_ret TRUE

 

[Lord]

Код, пожалуйста

 

[™ ChipFamily]

Код, пожалуйста

{$CLEO .cs} 
{$I SF} 

if 8AF7: get_samp_base_to 0@
then 0A93: end_custom_thread
end
repeat
wait 0
until 0AFA: is_samp_structures_available

0B34: samp register_client_command "texturefix" to_label @get

0BDE: pause_thread 0
:get
0085: 15@ = 0@
15@ += 0x21A10C
0A8D: 15@ = read_memory 15@ size 4 virtual_protect 1
0085: 16@ = 15@
16@ += 0x24
0A8D: 16@ = read_memory 16@ size 4 virtual_protect 1
    if 16@ == 0
        then
        0B43: samp cmd_ret
    else
0085: 17@ = 15@
0085: 18@ = 15@
0085: 19@ = 15@
17@ += 0xC
18@ += 0x10
19@ += 0x14
0A8D: 17@ = read_memory 17@ size 4 virtual_protect 1
0A8D: 18@ = read_memory 18@ size 4 virtual_protect 1
0A8D: 19@ = read_memory 19@ size 4 virtual_protect 1
if
    Actor.Driving($PLAYER_ACTOR)
    then
        0AB1: call_scm_func @InCarFakePosition 3 17@ 18@ 19@
        say "/tend"
        else
        0AB1: call_scm_func @OnfootFakePosition 3 17@ 18@ 19@
    end
end 
Samp.CmdRet()

:OnFootFakePosition
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
0AC8: 4@ = allocate_memory_size 68 
0BBA: samp store_player 3@ onfoot_data 4@
0C0D:  struct 4@ offset 6 size 4 = 0@
0C0D:  struct 4@ offset 10 size 4 = 1@
0C0D:  struct 4@ offset 14 size 4 = 2@
0BC0: samp send_onfoot_data 4@
0ac9: free 4@
0AB2: ret 0

:InCarFakePosition
3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
0AC8: 4@ = allocate_memory_size 67 
0BBB: samp store_player 3@ incar_data 4@
0C0D:  struct 4@ offset 24 size 4 = 0@
0C0D:  struct 4@ offset 28 size 4 = 1@
0C0D:  struct 4@ offset 32 size 4 = 2@
0BC1: samp send_incar_data 4@
0ac9: free 4@
0AB2: ret 0

 

[oPawka]

Плеасе

 

[™ ChipFamily]

Плеасе

Выше глянь я кинул исходник, только более обновленной версии.