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

FYP

FYP

Известный
Автор темы
Администратор
1,763
5,904
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
  • Влюблен
Реакции: Clenaw, Арсений Пиво, я не ем и 47 других
LaRossa

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
ykp написал(а):
Телепорт /tpl
Нажмите для раскрытия...
CLEO: 
{$CLEO .cs}
0000:
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "tpl" to_label @cmd
0BE2: raknet setup_outcoming_packet_hook @BypassAntiCheatOt_0xPATRON

repeat
wait 0
if 20@ == 1
then
0ac8: alloc 12@ size 564
0ad3: format_stirng 12@ = "{FF00FF}----------Прочее----------%cМэрия%cГора чиллиад%cКомандный бой%cБанк%cМВД%cНаркопритон" 0xA 0xA 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%cКарьер%cЦерковь%cАвторынок эконом-класса(ЛС)%cАвторынок среднего класса(СФ)" 12@ 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%cАвторынок среднего класса №2(СФ)%cМото-Вело рынок(ЛС)%c{FF0000}-----Организации-----%cПолиция ЛС" 12@ 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%cПолиция СФ%cАрмия СФ%cАрмия ЛВ%cФБР%cSWAT%cLCN%cРусская мафия%cYakuza%cХитманы" 12@ 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%c{FF00FF}The Ballas%c{FFFF00}Los Santos Vagos%c{00FF00}Grove Street%c{00FFFF}Varios Los Atecas" 12@ 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%c{6A5ACD}The Rifa%cSA News%cМин.здрав%cАдминистрация президента" 12@ 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 223 caption "Teleport by Babulya for adrik" text 12@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 12@
20@ = 0
end
if and
0B3C: samp is_dialog_responded id 223 button 11@ list_item 3@ input_text 0
11@ == 1
then
10@ = 1
wait 300
if 3@ == 1
then
actor.PutAt($PLAYER_ACTOR,1477.9790,-1744.5558,13.5469) 
end
if 3@ == 2
then
actor.PutAt($PLAYER_ACTOR,-2248.5676,-1715.4342,480.2016)
end
if 3@ == 3
then
actor.PutAt($PLAYER_ACTOR,1556.8257,-1791.1931,13.5469)
end
if 3@ == 4
then
actor.PutAt($PLAYER_ACTOR,1416.5720,-1703.0872,13.5395)
end
if 3@ == 5
then
actor.PutAt($PLAYER_ACTOR,619.9185,-1457.9601,14.4258)
end
if 3@ == 6
then
actor.PutAt($PLAYER_ACTOR,2170.7842,-1678.1597,15.0859)
end
if 3@ == 7
then
actor.PutAt($PLAYER_ACTOR,371.1940,981.8281,29.8106)
end
if 3@ == 8
then
actor.PutAt($PLAYER_ACTOR,-1981.1456,1117.0697,53.1243)
end
if 3@ == 9
then
actor.PutAt($PLAYER_ACTOR,555.3856,-1279.5979,17.2482)
end
if 3@ == 10
then
actor.PutAt($PLAYER_ACTOR,-1981.0726,270.3847,35.1719)
end
if 3@ == 11
then
actor.PutAt($PLAYER_ACTOR,-1636.6772,1201.8966,7.1797)
end
if 3@ == 12
then
actor.PutAt($PLAYER_ACTOR,2127.6541,-1123.6177,25.4227)
end
if 3@ == 14
then
actor.PutAt($PLAYER_ACTOR,1542.6632,-1676.0597,13.5549)
end
if 3@ == 15
then
actor.PutAt($PLAYER_ACTOR,-1705.0077,683.6068,24.8906)
end
if 3@ == 16
then
actor.PutAt($PLAYER_ACTOR,-1531.3633,487.8917,7.1797)
end
if 3@ == 17
then
actor.PutAt($PLAYER_ACTOR,347.3755,1795.2213,18.2098)
end
if 3@ == 18
then
actor.PutAt($PLAYER_ACTOR,-2431.3555,492.4334,29.9269)
end
if 3@ == 19
then
actor.PutAt($PLAYER_ACTOR,292.2108,-1630.8229,33.3393)
end
if 3@ == 20
then
actor.PutAt($PLAYER_ACTOR,1537.6224,2769.6243,10.7279)
end
if 3@ == 21
then
actor.PutAt($PLAYER_ACTOR,992.1323,1711.5638,10.1275)
end
if 3@ == 22
then
actor.PutAt($PLAYER_ACTOR,2540.1555,1819.1530,10.8203)
end
if 3@ == 23
then
actor.PutAt($PLAYER_ACTOR,1436.6411,740.6066,10.8203)
end
if 3@ == 24
then
actor.PutAt($PLAYER_ACTOR,2005.1353,-1135.6516,25.1852)
end
if 3@ == 25
then
actor.PutAt($PLAYER_ACTOR,2740.7471,-1178.6766,69.2422)
end
if 3@ == 26
then
actor.PutAt($PLAYER_ACTOR,2487.6790,-1668.8053,13.3438)
end
if 3@ == 27
then
actor.PutAt($PLAYER_ACTOR,1703.9442,-2112.9268,13.3828)
end
if 3@ == 28
then
actor.PutAt($PLAYER_ACTOR,2769.3586,-1911.0576,12.1193)
end
if 3@ == 29
then
actor.PutAt($PLAYER_ACTOR,1630.9431,-1721.0138,13.5296)
end
if 3@ == 30
then
actor.PutAt($PLAYER_ACTOR,1186.2313,-1323.8441,13.5591)
end
if 3@ == 31
then
actor.PutAt($PLAYER_ACTOR,961.5577,-945.9617,40.3019)
end
wait 1000
10@ = 0
end
until false

:cmd
20@ = 1
samp.CmdRet()

:BypassAntiCheatOt_0xPATRON
0BE5: raknet 0@ = get_hook_param 1
if and
0@ == 207
10@ == 1
then
0BE5: raknet 1@ = get_hook_param 0
0AC8: 2@ = allocate_memory_size 69
0BE8: raknet bit_stream 1@ read_array 2@ size 69
0C0D: struct 2@ offset 63 size 2 = 1
0C0D: struct 2@ offset 65 size 2 = 1
0BEA: raknet bit_stream 1@ reset_write_pointer
0B40: raknet bit_stream 1@ write 2@ type 5 size 69
0AC9: free_allocated_memory 2@
end
0BE0: raknet hook_ret 1
 
Y

ykp

Новичок
88
11
LaRossa написал(а):
CLEO: 
{$CLEO .cs}
0000:
repeat
wait 0
until samp.Available()
0B34: samp register_client_command "tpl" to_label @cmd
0BE2: raknet setup_outcoming_packet_hook @BypassAntiCheatOt_0xPATRON

repeat
wait 0
if 20@ == 1
then
0ac8: alloc 12@ size 564
0ad3: format_stirng 12@ = "{FF00FF}----------Прочее----------%cМэрия%cГора чиллиад%cКомандный бой%cБанк%cМВД%cНаркопритон" 0xA 0xA 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%cКарьер%cЦерковь%cАвторынок эконом-класса(ЛС)%cАвторынок среднего класса(СФ)" 12@ 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%cАвторынок среднего класса №2(СФ)%cМото-Вело рынок(ЛС)%c{FF0000}-----Организации-----%cПолиция ЛС" 12@ 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%cПолиция СФ%cАрмия СФ%cАрмия ЛВ%cФБР%cSWAT%cLCN%cРусская мафия%cYakuza%cХитманы" 12@ 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%c{FF00FF}The Ballas%c{FFFF00}Los Santos Vagos%c{00FF00}Grove Street%c{00FFFF}Varios Los Atecas" 12@ 0xA 0xA 0xA 0xA
0ad3: 12@ = "%s%c{6A5ACD}The Rifa%cSA News%cМин.здрав%cАдминистрация президента" 12@ 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 223 caption "Teleport by Babulya for adrik" text 12@ button_1 "Выбрать" button_2 "Закрыть" style 2
0ac9: free 12@
20@ = 0
end
if and
0B3C: samp is_dialog_responded id 223 button 11@ list_item 3@ input_text 0
11@ == 1
then
10@ = 1
wait 300
if 3@ == 1
then
actor.PutAt($PLAYER_ACTOR,1477.9790,-1744.5558,13.5469)
end
if 3@ == 2
then
actor.PutAt($PLAYER_ACTOR,-2248.5676,-1715.4342,480.2016)
end
if 3@ == 3
then
actor.PutAt($PLAYER_ACTOR,1556.8257,-1791.1931,13.5469)
end
if 3@ == 4
then
actor.PutAt($PLAYER_ACTOR,1416.5720,-1703.0872,13.5395)
end
if 3@ == 5
then
actor.PutAt($PLAYER_ACTOR,619.9185,-1457.9601,14.4258)
end
if 3@ == 6
then
actor.PutAt($PLAYER_ACTOR,2170.7842,-1678.1597,15.0859)
end
if 3@ == 7
then
actor.PutAt($PLAYER_ACTOR,371.1940,981.8281,29.8106)
end
if 3@ == 8
then
actor.PutAt($PLAYER_ACTOR,-1981.1456,1117.0697,53.1243)
end
if 3@ == 9
then
actor.PutAt($PLAYER_ACTOR,555.3856,-1279.5979,17.2482)
end
if 3@ == 10
then
actor.PutAt($PLAYER_ACTOR,-1981.0726,270.3847,35.1719)
end
if 3@ == 11
then
actor.PutAt($PLAYER_ACTOR,-1636.6772,1201.8966,7.1797)
end
if 3@ == 12
then
actor.PutAt($PLAYER_ACTOR,2127.6541,-1123.6177,25.4227)
end
if 3@ == 14
then
actor.PutAt($PLAYER_ACTOR,1542.6632,-1676.0597,13.5549)
end
if 3@ == 15
then
actor.PutAt($PLAYER_ACTOR,-1705.0077,683.6068,24.8906)
end
if 3@ == 16
then
actor.PutAt($PLAYER_ACTOR,-1531.3633,487.8917,7.1797)
end
if 3@ == 17
then
actor.PutAt($PLAYER_ACTOR,347.3755,1795.2213,18.2098)
end
if 3@ == 18
then
actor.PutAt($PLAYER_ACTOR,-2431.3555,492.4334,29.9269)
end
if 3@ == 19
then
actor.PutAt($PLAYER_ACTOR,292.2108,-1630.8229,33.3393)
end
if 3@ == 20
then
actor.PutAt($PLAYER_ACTOR,1537.6224,2769.6243,10.7279)
end
if 3@ == 21
then
actor.PutAt($PLAYER_ACTOR,992.1323,1711.5638,10.1275)
end
if 3@ == 22
then
actor.PutAt($PLAYER_ACTOR,2540.1555,1819.1530,10.8203)
end
if 3@ == 23
then
actor.PutAt($PLAYER_ACTOR,1436.6411,740.6066,10.8203)
end
if 3@ == 24
then
actor.PutAt($PLAYER_ACTOR,2005.1353,-1135.6516,25.1852)
end
if 3@ == 25
then
actor.PutAt($PLAYER_ACTOR,2740.7471,-1178.6766,69.2422)
end
if 3@ == 26
then
actor.PutAt($PLAYER_ACTOR,2487.6790,-1668.8053,13.3438)
end
if 3@ == 27
then
actor.PutAt($PLAYER_ACTOR,1703.9442,-2112.9268,13.3828)
end
if 3@ == 28
then
actor.PutAt($PLAYER_ACTOR,2769.3586,-1911.0576,12.1193)
end
if 3@ == 29
then
actor.PutAt($PLAYER_ACTOR,1630.9431,-1721.0138,13.5296)
end
if 3@ == 30
then
actor.PutAt($PLAYER_ACTOR,1186.2313,-1323.8441,13.5591)
end
if 3@ == 31
then
actor.PutAt($PLAYER_ACTOR,961.5577,-945.9617,40.3019)
end
wait 1000
10@ = 0
end
until false

:cmd
20@ = 1
samp.CmdRet()

:BypassAntiCheatOt_0xPATRON
0BE5: raknet 0@ = get_hook_param 1
if and
0@ == 207
10@ == 1
then
0BE5: raknet 1@ = get_hook_param 0
0AC8: 2@ = allocate_memory_size 69
0BE8: raknet bit_stream 1@ read_array 2@ size 69
0C0D: struct 2@ offset 63 size 2 = 1
0C0D: struct 2@ offset 65 size 2 = 1
0BEA: raknet bit_stream 1@ reset_write_pointer
0B40: raknet bit_stream 1@ write 2@ type 5 size 69
0AC9: free_allocated_memory 2@
end
0BE0: raknet hook_ret 1
Нажмите для раскрытия...
нет. не то
 
LaRossa

LaRossa

Потрачен
429
117
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
ykp написал(а):
Твой исход:
UjpM59.png


cleo скрипт, который я прикрепил:
YGPGKA.png
Нажмите для раскрытия...
Я конечно не на что не намекаю, но ты код вообще смотрел ? Название точно такие-же. Делай выводы от куда у тебя руки
 
asdzxcjqwe

asdzxcjqwe

¯\_(ツ)_/¯
Друг
621
709
Stan1k написал(а):
Код нужен
Нажмите для раскрытия...
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

:Label000002
   not SAMP.Available
jf @Label000016
wait 0
goto @Label000002

:Label000016
chatmsg "[CarLov] {ffffff}by LaRossa for {ff0000}Arizona-RP {ffffff}loaded!" 5877479
0B34: samp register_client_command "carlov" to_label @Label000194

:Label00008F
wait 0
if and
  10@ == 1
key_down 35
   not SAMP.ChatInputOpened
jf @Label000106
Actor.StorePos($0[3], 1@, 2@, 3@)
if
0AE2: 4@ = random_vehicle_near_point 1@ 2@ 3@ in_radius 3.0 find_next 1 pass_wrecked 1 //IF and SET
jf @Label000106
072A: put_actor $0[3] into_car 4@ driverseat
call @Label00011C 0
call @Label000146 0

:Label000106
goto @Label00008F

:Label00011C
0C72: set_virtual_key 13 down 1
wait 100
0C72: set_virtual_key 13 down 0
wait 200
0C72: set_virtual_key 13 down 1
wait 100
0C72: set_virtual_key 13 down 0
ret 0

:Label000146
04C4: store_coords_to 11@ 12@ 13@ from_actor $0[3] with_offset 0.0 0.0 2.0
0362: remove_actor $0[3] from_car_and_place_at 11@ 12@ 13@
ret 0

:Label000194
0B12: 10@ = 10@ XOR 1
if
  10@ == 1
jf @Label0001F9
chatmsg "Скрипт для ловли машин: {33AA33}актирован" 16731904
goto @Label000231

:Label0001F9
chatmsg "Скрипт для ловли бизнесов: {d9534f}деактирован" 16731904

:Label000231
SAMP.CmdRet
 
  • Нравится
Реакции: eiuhuth
Войдите или зарегистрируйтесь для ответа.

Похожие темы

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