Показать сообщение отдельно
Старый 23.04.2020, 15:03   #1
microlaba6331
Нуб
Аватар для microlaba6331
OFFLINE
Регистрация: 20.01.2015
Возраст: 31
Сообщений: 0
Благодарностей:
6 всего
Репутация: 19

Новый Старый пакетхак и мой первый овердамаг


Те кто играл в л2 знают о такой проге как L2phx так вот в РФО она тоже работает, там есть и скриптовый движок на fast scrip
откуда скачать прогу вам подскажет гугл а тут я приведу пример работы моего скрипта для этой программы
настройка программы для рфки до безобразия проста, после скачки, распаковываем куда-нибуть в настройках указываем новые пути к дллкам lsp перехвата и инжекта, в игровые клиенты пишем название процесса, в нашем случае это RF****.bin и порт игрового сервера для перехвата, мой скрипт забрасываем в папку Scripts или как то так в корне программы потом во вкладке Автоматизация просто ставим галочку возле названия скрипта.

ссылка на мой скрипт
https://drive.google.com/open?id=1nW...v3gfB6BwwN6acf
VT
https://www.virustotal.com/gui/file/...81c7/detection
выкладываю без хайда потому что почти везде пофикшено

а специально для тех кто всё же думает что в скрипте какие то вирусы и тд и тп
сам скрипт который вы можете почитать и скопипастить себе
Код:
var
flag2,flag1:integer;
ammo:word;   


procedure recording();
begin
 
end;

begin
if (Fromclient) and (ReadC(1) =$05) and (ReadC(2) =01)and (flag1=1) then  // ловим стих патроны
begin
buf:=HStr('02 0a 02 E4 03 00 00 44 65 78 74 00 CC CC CC CC CC CC CC CC CC CC CC CC 02 00 07 0E E7 E0 EF E8 F1 E0 EB  00 ');
sendtoclient;
buf:=pck;
ammo:=readh(7);
flag1:=0; //опускаем флаг и не ищем более патроны
flag2:=1; //поднимаем флаг для подмены патронов
end;

if (Fromclient) and (ReadC(1) =$05) and (ReadC(2) =01)and (flag2=1) then//ловим пакет атаки и проверяем
begin                                                                   //включена ли подмена патронов
buf:=pck;
writeh(ammo,7);
pck:=buf;
end;      

if (Fromclient) and (ReadC(1) =$0d) and (Readh(2) =8214)and (flag2=0) then //включение скрипта по кнопке растягиваюсь8214
begin
buf:=HStr('02 0a 02 E4 03 00 00 44 65 78 74 00 CC CC CC CC CC CC CC CC CC CC CC CC 02 00 07 0E E2 EA EB FE F7 E0 FE 20 E7 E0 EF E8 F1 FC 00 ');
sendtoclient;
pck:=''; 
flag1:=1;
recording();
end;
if (Fromclient) and (ReadC(1) =$0d) and (Readh(2) =8214)and (flag2=1) then//ловим пакет растягиваюсь    8214
begin                                                                   //выключаем подмену
flag2:=0;
buf:=HStr('02 0a 02 E4 03 00 00 44 65 78 74 00 CC CC CC CC CC CC CC CC CC CC CC CC 02 00 07 0E E2 FB EA EB FE F7 E8 EB  00 ');
sendtoclient;
pck:='';
end;  
end.

Последний раз редактировалось microlaba6331; 23.04.2020 в 20:30.
 
Ответить с цитированием
Сказали спасибо:
Noize (26.08.2020)