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

[FYP]

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

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

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

 

[™ ChipFamily]

Откройте пж

{$CLEO .cs}
0000: NOP
0662: "PopandauL"

wait 0
03F0: enable_text_draw 1

while true
wait 0
0A8D: 3@ = read_memory 0xBA6769 size 1 virtual_protect 0
    if and
    3@ == 1
    02CB:   actor $PLAYER_ACTOR bounding_sphere_visible
    Player.Defined($PLAYER_ACTOR)
    then
    1@ = Actor.Health($PLAYER_ACTOR)
    04DD: 2@ = actor $PLAYER_ACTOR armour
        if 1@ > 0
        then
        if 25 >= 1@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 66.0 value 1@ R 28@ G 29@ B 30@
        end
        if 2@ > 0
        then
        if 25 >= 2@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 44.0 value 2@ R 28@ G 29@ B 30@
        end
       
        if
        0AB1: call_scm_func @sprint 0 0@
        then
        0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 1
        0092: 0@ = float 0@ to_integer
            if 25 >= 0@
            then
            28@ = 255
            29@ = 0
            30@ = 0
            else
            28@ = 255
            29@ = 255
            30@ = 255
            end
        0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
        else
            if 0AB1: call_scm_func @carhealth 0 0@
            then
            0AB1: call_scm_func @drawBar 7 coords_X 577.0 coords_Y 59.5 value 0@ size X 58.0 Y 5.0 thickness 4.0 0
            0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            else
                0A8D: 0@ = read_memory 0xB7CDE0 size 4 virtual_protect 0
                0@ /= 39.97000244
                0092: 0@ = float 0@ to_integer
                if 25 >= 0@
                then
                28@ = 255
                29@ = 0
                30@ = 0
                else
                28@ = 255
                29@ = 255
                30@ = 255
                end
            0AB1: call_scm_func @drawNumber 6 coords_X 576.5 coords_Y 55.0 value 0@ R 28@ G 29@ B 30@
            end
        end
    end
end

:drawBar
//0AB1: call_scm_func @drawBar 6 coords_X 3@ coords_Y 4@ value 5@ size X 40.0 Y 4.0 thickness 2.0 // The value must be 100.0 (eg. max_HP = 750.0 ==> max_HP /= 7.5)
    if 6@ == 1
    then
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Stamina" key "BB"
    else
    0AF0: 14@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "R"
    0AF0: 15@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "G"
    0AF0: 16@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "B"
    0AF0: 17@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BR"
    0AF0: 18@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BG"
    0AF0: 19@ = get_int_from_ini_file "cleo\DigiInfo.ini" section "Vehicle" key "BB"
    end
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 17@ 18@ 19@ 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 14@ 15@ 16@ 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@

 

[PykPykovi4]

Help, когда юзаю бота ДРП, то крашит, а в логах КЛЕО пишет Loading audiostream CLEO\SBOT\Alarm.wav failed. Error code: 20

Спойлер

 

[deleted-user-224036]

plez

 

[™ ChipFamily]

plez

// 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

:Label000002
0001: wait 0 ms
0AFA:  is_samp_available
004D: jump_if_false @Label000002
0AF8: samp add_message_to_chat "Velo and Bike speedhack. By {FFA500}kewa.opcode" color 16777215 
0AF8: samp add_message_to_chat "Specially for {FFA500}Antoha Ghost" color 16777215 

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

:Label000081
0001: wait 0 ms
00D6: if and
0AB0:   key_pressed 16
0256:   player 0 defined
047A:   actor $PLAYER_ACTOR driving_bike
8B4C:   not samp is_dialog_active -1
8B21:   not samp is_chat_opened
004D: jump_if_false @Label000081
00D6: if or
03C0: 0@ = actor $PLAYER_ACTOR car
0137:   car 0@ model == 510
0137:   car 0@ model == 481
0137:   car 0@ model == 509
004D: jump_if_false @Label0000E6
0B56: set_game_key 16 state 255
0001: wait 50 ms
0B56: set_game_key 16 state 0
0002: jump @Label000081

:Label0000E6
0006: 1@ = 1

:Label0000ED
0001: wait 0 ms
0B56: set_game_key 1 state -255
0B56: set_game_key 1 state -255
000A: 1@ += 1
0019:   1@ > 3
004D: jump_if_false @Label0000ED
0001: wait 100 ms
0B56: set_game_key 1 state 0
0002: jump @Label000081

 

[Alisher04]

проверьте на стиллеры, и скажите есть ли стиллер?

 

[™ ChipFamily]

проверьте на стиллеры, и скажите есть ли стиллер?

Нету стиллера. Код открыт.

// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
0006: 30@ = 0
0007: 4@ = 25.0

:Label000011
0001: wait 0 ms
00D6: if
0256:   player $PLAYER_CHAR defined
004D: jump_if_false @Label0002DC
00D6: if and
00DF:   actor $PLAYER_ACTOR driving
80DD:   not actor $PLAYER_ACTOR driving_car_with_model 537
80DD:   not actor $PLAYER_ACTOR driving_car_with_model 538
84A7:   not actor $PLAYER_ACTOR driving_boat
84C8:   not actor $PLAYER_ACTOR driving_flying_vehicle
004D: jump_if_false @Label000135
03C0: 0@ = actor $PLAYER_ACTOR car
00D6: if
0AB0:   key_pressed 90
004D: jump_if_false @Label0000C8
00D6: if and
056E:   car 0@ defined
0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET
004D: jump_if_false @Label0000BC
018C: play_sound 1058 at 0.0 0.0 0.0
00D6: if
0039:   30@ == 0
004D: jump_if_false @Label0000B5
0050: gosub @Label00034C
0002: jump @Label0000BC

:Label0000B5
0050: gosub @Label0002E3

:Label0000BC
0AB1: call_scm_func @Label000539 1 90 

:Label0000C8
00D6: if
0039:   22@ == 0
0AB0:   key_pressed 16
004D: jump_if_false @Label000106
0470: 21@ = actor $PLAYER_ACTOR current_weapon
00D6: if and
0029:   21@ >= 22
8019:   not  21@ > 32
004D: jump_if_false @Label000106
0050: gosub @Label0004BB

:Label000106
00D6: if
8039:   not  22@ == 0
004D: jump_if_false @Label000135
00D6: if
0AB0:   key_pressed 16
004D: jump_if_false @Label00012E
0002: jump @Label000135

:Label00012E
0050: gosub @Label0004EE

:Label000135
00D6: if
0039:   30@ == 1
004D: jump_if_false @Label0002B7
00D6: if or
00E1:   player 0 pressed_key 15
02BF:   car 0@ sunk
0119:   car 0@ wrecked
004D: jump_if_false @Label000169
0050: gosub @Label0002E3

:Label000169
00D6: if and
056E:   car 0@ defined
01F4:   car 0@ flipped
004D: jump_if_false @Label000185
0050: gosub @Label00031E

:Label000185
00D6: if
856E:   not car 0@ defined
004D: jump_if_false @Label0001A3
0006: 30@ = 0
0002: jump @Label0002B0

:Label0001A3
00D6: if
80DB:   not actor $PLAYER_ACTOR in_car 0@
004D: jump_if_false @Label0001BD
0006: 30@ = 0

:Label0001BD
00D6: if and
0AB0:   key_pressed 65
0AB6: store_target_marker_coords_to 1@ 2@ 3@ // IF and SET
004D: jump_if_false @Label0001EA
0050: gosub @Label00039F
0AB1: call_scm_func @Label000539 1 65 

:Label0001EA
00D6: if
0AB0:   key_pressed 32
004D: jump_if_false @Label000240
054C: use_GXT_table 'FTRAIN'
00D6: if
0039:   29@ == 0
004D: jump_if_false @Label000232
0AB1: call_scm_func @Label000555 4 10 1 -1647 3 
0006: 29@ = 1

:Label000232
0050: gosub @Label0003D1
0002: jump @Label000265

:Label000240
00D6: if
0039:   29@ == 1
004D: jump_if_false @Label000265
0006: 29@ = 0
0AB1: call_scm_func @Label000597 1 10 

:Label000265
00D6: if
01AE:   car 0@ sphere 0 near_point 1@ 2@ radius 3.0 3.0 stopped
004D: jump_if_false @Label00028E
0050: gosub @Label0002E3

:Label00028E
00D6: if
0AB0:   key_pressed 88
004D: jump_if_false @Label0002B0
0050: gosub @Label000454
0AB1: call_scm_func @Label000539 1 88 

:Label0002B0
0002: jump @Label0002DC

:Label0002B7
00D6: if
0039:   29@ == 1
004D: jump_if_false @Label0002DC
0006: 29@ = 0
0AB1: call_scm_func @Label000597 1 10 

:Label0002DC
0002: jump @Label000011

:Label0002E3
0006: 30@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
0423: set_car 0@ improved_handling_to 1.0 // (float)
01C3: remove_references_to_car 0@
03AB: set_car 0@ strong 0
018C: play_sound 1058 at 0.0 0.0 0.0
0051: return

:Label00031E
0174: 5@ = car 0@ Z_angle
00AA: store_car 0@ position_to 6@ 7@ 8@
00AB: put_car 0@ at 6@ 7@ 8@
0175: set_car 0@ Z_angle_to 5@
0051: return

:Label00034C
0006: 30@ = 1
02CE: 3@ = ground_z_at 1@ 2@ 3@
00AF: set_car 0@ driver_behaviour_to 0
00AE: set_car 0@ traffic_behaviour_to 2
0423: set_car 0@ improved_handling_to 2.0 // (float)
03AB: set_car 0@ strong 1
00A7: car 0@ drive_to 1@ 2@ 3@
00AD: set_car 0@ max_speed_to 4@
0006: 20@ = 0
0051: return

:Label00039F
02CE: 3@ = ground_z_at 1@ 2@ 3@
00A7: car 0@ drive_to 1@ 2@ 3@
018C: play_sound 1058 at 0.0 0.0 0.0
0051: return

:Label0003D1
00D6: if and
0021:   4@ > 3.5
0AB0:   key_pressed 40
0029:   32@ >= 75
004D: jump_if_false @Label00040A
0006: 32@ = 0
000B: 4@ += -0.5
00AD: set_car 0@ max_speed_to 4@

:Label00040A
00D6: if and
8031:   not  4@ >= 50.0
0AB0:   key_pressed 38
0029:   32@ >= 75
004D: jump_if_false @Label000443
0006: 32@ = 0
000B: 4@ += 0.5
00AD: set_car 0@ max_speed_to 4@

:Label000443
0092: 10@ = float 4@ to_integer
0012: 10@ *= 2
0051: return

:Label000454
00D6: if
0039:   20@ == 0
004D: jump_if_false @Label000482
0006: 20@ = 1
00AE: set_car 0@ traffic_behaviour_to 1
00AF: set_car 0@ driver_behaviour_to 1
0002: jump @Label0004A5

:Label000482
0006: 20@ = 0
00AE: set_car 0@ traffic_behaviour_to 2
00AF: set_car 0@ driver_behaviour_to 0
00A7: car 0@ drive_to 1@ 2@ 3@

:Label0004A5
018C: play_sound 1058 at 0.0 0.0 0.0
0051: return

:Label0004BB
0006: 22@ = 1
0713: actor $PLAYER_ACTOR driveby_actor -1 car -1 point 0.0 0.0 0.0 radius 300.0 8 0 firing_rate 75
015D: set_gamespeed 0.5
0051: return

:Label0004EE
0006: 22@ = 0
072A: put_actor $PLAYER_ACTOR into_car 0@ driverseat
00D6: if
0039:   30@ == 1
004D: jump_if_false @Label000530

:Label00050F
0001: wait 0 ms
00DB:   actor $PLAYER_ACTOR in_car 0@
004D: jump_if_false @Label00050F
00A7: car 0@ drive_to 1@ 2@ 3@

:Label000530
015D: set_gamespeed 1.0
0051: return

:Label000539
0AB0:   key_pressed 0@
004D: jump_if_false @Label000550
0001: wait 0 ms
0002: jump @Label000539

:Label000550
0AB2: ret 0

:Label000555
0AB1: call_scm_func @Label0005C0 1 0@ 0@ 
0AB1: call_scm_func @Label000627 1 2@ 2@ 
0AA6: call_method 4509088 struct 12195720 num_params 4 pop 0 3@ 2@ 1@ 0@ 
0AB2: ret 0

:Label000597
0AB1: call_scm_func @Label0005C0 1 0@ 0@ 
0AA6: call_method 4509312 struct 12195720 num_params 1 pop 0 0@ 
0AB2: ret 0

:Label0005C0
0A9F: 1@ = current_thread_pointer
0A8E: 2@ = 1@ + 220 // int
0A8D: 2@ = read_memory 2@ size 1 virtual_protect 0
00D6: if
0039:   2@ == 1
004D: jump_if_false @Label0005FF
0006: 1@ = 10783072
0002: jump @Label000606

:Label0005FF
000A: 1@ += 60

:Label000606
0012: 0@ *= 4
005A: 1@ += 0@ // (int)
000E: 1@ -= 10787168
0AB2: ret 1 1@

:Label000627
00D6: if
0039:   0@ == 0
004D: jump_if_false @Label000640
0AB2: ret 1 0

:Label000640
0A9F: 1@ = current_thread_pointer
000A: 1@ += 16
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
0062: 1@ -= 0@ // (int)
000A: 1@ += 3
0AB2: ret 1 1@
0900: clear_object 'FREI_11' last_weapon_damage
0000: NOP

 

[yota_script]

Вскройте пж)

 

[Losososo]

Вскройте пж)

 

[ШPEK]

please

 

[f0Re3t]

please

{$CLEO}
0000: nop
if not 0@ = SAMP.Base()
then 0A93: end_custom_thread
end
while not SAMP.Available()
wait 200
end
0AF8: samp add_message_to_chat "{C71585}[AntiAFK]: {FF0000}by {7CFC00}Bladee Herrera" color -1
0B34: samp register_client_command "antiafk" to_label @cmd
while true
wait 0

if 10@ == 1 // Если мы активировали скрипт
then
0@ = 0
wait 0
27@ -= 1.0
SAMP.ReadSAMPMemory(6@, 82384, 2)
SAMP.WriteSAMPMemory(82384, 50064, 2)
0A8C: write_memory 7634870 size 1 value 16843009 virtual_protect 1
0A8C: write_memory 7635034 size 1 value 16843009 virtual_protect 1
0A8C: write_memory 7623723 size 8 value -1869574000 virtual_protect 1
0C11: memset destination 7623723 value 144 size 8
0C11: memset destination 5499528 value 144 size 6
19@ = 0
2@ += 100
wait 0 
wait 5000
0@ += 1
  0@ > 4048
    0C72: set_virtual_key 0x57 down true
    wait 500
    0C72: set_virtual_key 0x57 down false
    wait 500
        0C72: set_virtual_key 0x44 down true
        wait 500
        0C72: set_virtual_key 0x44 down false
        wait 500
            0C72: set_virtual_key 0x53 down true
            wait 500
            0C72: set_virtual_key 0x53 down false
            wait 500
                0C72: set_virtual_key 0x41 down true
                wait 500
                0C72: set_virtual_key 0x41 down false
                wait 500
                    0AF9: samp say_msg "/time"
                    wait 250000
wait 5000
0@ += 1
  0@ > 4048
  0AF9: samp say_msg "/usedrugs 2"
  wait 1000
    end
end
:cmd
0B12: 10@ = 10@ XOR 1
if 10@ == 1
then
0AF8: samp add_message_to_chat "AntiAFK Activated" color -1
chatmsg "{FF0000}NoAFK {191970} ON" -1
end
if 10@ == 0
then
0AF8: samp add_message_to_chat "AntiAFK Deactivated" color -1
end
Samp.CmdRet()

 

[#saniwe]

decrypt

 

[™ ChipFamily]

decrypt

Код открыт.

{$CLEO}
0000:NOP
while true
wait 0 ms
0A8D: 0@ = read_memory 0xB6EC1C size 4 virtual_protect 0
0A8D: 1@ = read_memory 0xB6EC18 size 4 virtual_protect 0
    if
    8045:   not 0@ == 1@  // (float)
    then
    0A8C: write_memory 0xB6EC18 size 4 value 0@ virtual_protect 0
    end
end

 

[xTOR]

Плиз откройте, желательно без потери кодов)) Заранее спасибо!

 

[™ ChipFamily]

Плиз откройте, желательно без потери кодов)) Заранее спасибо!

// 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 
0AB1: call_scm_func @Label0004C8 0 33@ 
0AC8: 32@ = allocate_memory_size 64 
0AD3: 32@ = format "%X" 33@ 
00D6: if 
8C14:   not strcmp string1 "9452DADA" string2 32@ 
004D: jump_if_false @Label000179 
0AA5: call 8535003 num_params 3 pop 3 0 0 0 

:Label000179
0AC9: free_allocated_memory 32@ 

:Label00017E
0001: wait 0 ms 
0B61:  samp is_local_player_spawned 
004D: jump_if_false @Label00017E 
0006: 0@ = 0 
0006: 7@ = 0 
0006: 8@ = 0 
0BE3: raknet setup_incoming_rpc_hook @Label000438 
0B34: samp register_client_command "chtp" to_label @Label0003E4 

:Label0001B4
0001: wait 0 ms 
00D6: if and
0039:   0@ == 1 
0039:   7@ == 1 
004D: jump_if_false @Label0003DD 
077E: get_active_interior_to 10@ 
00D6: if 
0019:   10@ > 0 
004D: jump_if_false @Label0003DD 
0B32: samp send_spawn 
00D6: if 
00DF:   actor $PLAYER_ACTOR driving 
004D: jump_if_false @Label000208 
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 3@ 4@ 5@ 

:Label000208
04D7: set_actor $PLAYER_ACTOR locked 0 
04BB: select_interior 0 
0860: link_actor $PLAYER_ACTOR to_interior 0 
01B4: set_player $PLAYER_CHAR can_move 1 
00A1: put_actor $PLAYER_ACTOR at 3@ 4@ 5@ 
0006: 7@ = 0 

:Label000236
0001: wait 200 ms 
00D6: if and
0039:   0@ == 1 
0039:   7@ == 0 
004D: jump_if_false @Label0002A1 
01BD: 9@ = current_time_in_ms 
0062: 9@ -= 8@ // (int) 
0AD0: show_formatted_text_lowpriority "~b~TPCheckPoint ~r~by AIR~b~:~n~~w~%d/45000!" time 205 9@ 
0C83: samp force_onfoot_sync 
0002: jump @Label0002A8 

:Label0002A1
0002: jump @Label0002B7 

:Label0002A8
0029:   9@ >= 5000 
004D: jump_if_false @Label000236 

:Label0002B7
0C83: samp force_onfoot_sync 
0001: wait 0 ms 
0C83: samp force_onfoot_sync 
0001: wait 0 ms 
0C83: samp force_onfoot_sync 
0001: wait 5 ms 
00D6: if and
0039:   0@ == 1 
0039:   7@ == 0 
004D: jump_if_false @Label00031C 
0B32: samp send_spawn 
00D6: if 
00DF:   actor $PLAYER_ACTOR driving 
004D: jump_if_false @Label000308 
0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 1530.714 -1073.896 25.0625 

:Label000308
00A1: put_actor $PLAYER_ACTOR at 1530.714 -1073.896 25.0625 

:Label00031C
0001: wait 0 ms 
00D6: if and
0039:   0@ == 1 
0039:   7@ == 0 
004D: jump_if_false @Label000383 
01BD: 9@ = current_time_in_ms 
0062: 9@ -= 8@ // (int) 
0AD0: show_formatted_text_lowpriority "~b~TPCheckPoint ~r~by AIR~b~:~n~~w~%d/45000!" time 5 9@ 
0002: jump @Label00038A 

:Label000383
0002: jump @Label00039B 

:Label00038A
0029:   9@ >= 45000 
004D: jump_if_false @Label00031C 

:Label00039B
00D6: if 
0039:   0@ == 1 
004D: jump_if_false @Label0003DD 
0AD0: show_formatted_text_lowpriority "~b~TPCheckPoint ~r~by AIR~b~:~n~~w~Good!" time 3333 

:Label0003DD
0002: jump @Label0001B4 

:Label0003E4
0006: 7@ = 0 
0B12: 0@ = 0@ XOR 1 
0006: 8@ = 0 
0AD0: show_formatted_text_lowpriority "~b~TPCheckPoint ~r~by AIR~b~:~n~~w~State: ~y~%d" time 999 0@ 
0B43: samp cmd_ret 

:Label000438
00D6: if 
0039:   0@ == 1 
004D: jump_if_false @Label0004C4 
0BE5: raknet 1@ = get_hook_param 1 
00D6: if 
0039:   1@ == 38 
004D: jump_if_false @Label0004C4 
0BE5: raknet 2@ = get_hook_param 0 
0BEB: raknet bit_stream 2@ ignore_bits 8 
0BE7: raknet 3@ = bit_stream_read 2@ type 4 
0BE7: raknet 4@ = bit_stream_read 2@ type 4 
0BE7: raknet 5@ = bit_stream_read 2@ type 4 
00D6: if and
8043:   not  3@ == 1530.85 
8043:   not  4@ == -1072.075 
8043:   not  5@ == 25.0625 
004D: jump_if_false @Label0004C4 
0006: 7@ = 1 
01BD: 8@ = current_time_in_ms 

:Label0004C4
0BE0: raknet hook_ret 1 

:Label0004C8
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@

 

[™ ChipFamily]

Декриптните)

{$CLEO .cs}
0000:
repeat
wait 0
until samp.Available()
chatmsg "Cleo takeid by {FFCC00}Patrick Headdyson" 0xFFFFFF
0B34: samp register_client_command "takeid" to_label @CMD
0B34: samp register_client_command "takeidp" to_label @CMD1

repeat
wait 0
    if 0@ == 1
    then
        samp.IsCommandTyped(1@)
        if 0AD4: 2@ = scan_string 1@ format "%d %d" 5@ 6@
        then
            repeat
            wait 0
                for 7@ = 5@ to 6@
           
                    if 0B23:  samp is_player_connected 7@
                    then
                    wait 0
                    print "~g~Working..." 100
                    else
                    0B28: samp disconnect_with_reason 0
                    wait 100
                    0B27: samp set_gamestate 1
                    print "~g~Reconnect..." 3000
                    repeat
                    wait 0
                    for 12@ = 0 to 30000
                    if 0B4C:  samp is_dialog_active 12@
                    then
                    0BC9: samp send_dialog_response dialog 12@ button 1 listitem 0 input 11@
                    0@ = 0
                    end
                    end
                    until 0@ == 0
                    end
                end
            until 0@ == 0
        else
        0@ = 0
        chatmsg "/takeid [îò] [äî]" 0xCECECE
        end
    end
until false


:CMD
if 0@ == 1
then
0@ = 0
else
0@ = 1
end
samp.CmdRet()

:CMD1
samp.IsCommandTyped(10@)
alloc 11@ 256
0AD3: 11@ = format "%s" 10@
0AD1: show_formatted_text_highpriority "~g~%s" time 2000 11@
samp.CmdRet()