Есть ли у кого Фильтр DS для WPE pro ...

[Aib0]

Поверь, я за 5 минут нашел то, что показано в мувике, гуглом. Значит и ты сможешь, если захочешь

[4epT]

только там он походе немного не правильный.

Вот фильтр для rPE для спама дабла:

library rPE_ex;

uses
windows,
Winsock2,
winsock,
rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
CurHex: string;
i : integer;
begin
CurHex := GetBufferAsHex(buf, len);
if (pos('7200',CurHex) <> 0) and (pos('2E00',CurHex) <> 0) then
begin
@Send_Callback := pSendWs1;
for i := 0 to 300 do // the number how often this packet should be send
begin
sleep(5); // delay you can chhose however you like (time in ms)
SendPacket(s,CurHex);
end;
end;
result := 0;
end;

procedure DLL_Load;
begin
IntLog('D:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
Running := false;
EndLog;
end;

procedure DLLMain(dwR: integer);
begin
case dwR of
DLL_PROCESS_ATTACH:
DLL_Load;
DLL_PROCESS_DETACH:
DLL_UnLoad;
end;
end;

exports
Send_WS1;
begin
Running := true;
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.

стреляем 1 дабл, а спамится 5

[openKore206]

4ept а что это сильно повлеяло что ты поменял? ('002E00',CurHex)

[4epT]

боюсь что первые 2 нуля у меня не всегда нули были когда я пакеты ловил. ну вот я и убрал их на свой страх и риск, зато заработало и на мобов

[ariel]

давно когда-то написал, а щас уже не нужен. тут спам смитовским КТ. писал для флайро, должно работать на большинстве где не стоит защита. да и защита эта - хрен собачий)

library rPE_ex;

uses
windows,
Winsock2,
winsock,
rpefuncs;
var
sock: TSocket;
skill:string;
cnt:integer;

procedure spam;
var o:integer;
begin
for o:=1 to cnt do begin
SendPacket(sock,skill);
sleep(50); //задержка в мсек
end;
end;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var sk:string;
i:integer;
begin
sk:=GetBufferAsHex(buf,len);
if ((pos('7200',sk)=1) and (pos('E501',sk)=21)) then begin
Send_Callback:=pSendWs1; //E501 - айди КТ в HEX
sock:=s;
skill:=sk;
cnt:=10; //кол-во ударов
StartASThread(@spam);
end;
end;

procedure DLL_Load;
begin
IntLog('rpe_log.log');
end;

procedure DLL_UnLoad;
begin
Running := false;
EndLog;
end;

procedure DLLMain(dwR: integer);
begin
case dwR of
DLL_PROCESS_ATTACH:
DLL_Load;
DLL_PROCESS_DETACH:
DLL_UnLoad;
end;
end;

exports
Send_WS1;
begin
Running := true;
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.

[Aivos]

openKore206
Aivos
http://www.elitepvpers.de/forum/ro-guid ... g-rpe.html

Я это видел. К сожалению ничего не понял =(

[QnX]

Скажите у кого-нибудь эта штука заработала на офе ?
Я её к сожалению даже запустить не смог, ругается rPE.dll not found!

[vit]

QnX
Антивирь стоит? Полагаю что да. Удали его и скачай заново.

[Aivos]

Написано криво, но поставленную задачу выполняет. А именно - автоперекаст сферок после фингера. Но использовать невозможно - дико лагает. Собственно вопрос, какова может быть причина лагов?

Код: Выделить всё

library rPE_ex;

uses
  windows,
  Winsock2,
  winsock,
  rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
  CurHex: string;

   const
   Spirit: string = '72003335350001003300910165373237343465650044558900';

begin
  CurHex := GetBufferAsHex(buf, len);
  if (pos('7200',CurHex) <> 0) and (pos('000B01',CurHex) <> 0) then
  begin
      @Send_Callback := pSendWs1; 
       sleep(500); 
       SendPacket(s,Spirit);   
  end;
       
  begin
      @Send_Callback := pSendWs1; 
      sleep(500); 
      SendPacket(s,CurHex);  
  end;
  result := 0;
end;

procedure DLL_Load;
begin
 IntLog('D:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
 Running := false;
 EndLog;
end;

procedure DLLMain(dwR: integer);
begin
  case dwR of
    DLL_PROCESS_ATTACH:
      DLL_Load;
    DLL_PROCESS_DETACH:
      DLL_UnLoad;
  end;
end;

exports
 Send_WS1;
begin
  Running := true;
  DLLProc := @DLLMain;
  DLLMain(DLL_PROCESS_ATTACH);
end.

Добавлено спустя 8 минут 59 секунд:

Кажись понял задержки очень большие... Но почему вообще лагает?

[Lims]

Aivos
sleep(500);
вот причина лага. команда заставляет весь процесс рагнарька "засыпать" на 0.5 секунды. можно попробовать поставить поменьше значение(но тогда может перестать работать) либо придумать другой способ таймаута.

[Aivos]

Да это я уже понял. Сейчас первая 10мс (поидее можно убрать вовсе), вторая 150. Работает, но всё равно лаг наблюдается. Есть идеи как лечится?

[QnX]

Ну если это pascal (Delphi), то там есть механизм потоков и приоритетов. А также есть функция Application.ProcessMessage - которая делает ни что иное, как принудительно обрабатывает очередь сообщений.

Добавлено спустя 4 минуты 8 секунд:

Код: Выделить всё

for I:=0 to 500 do
begin
sleep(1);
application.ProcessMessages;
end;

Пример далек от жизни, просто вспомнил, как я когда-то боролся с такой проблемой!

[Lims]

QnX
в dll не катит эта штука (ну или я нуб)
rPE не распознает ни application ни ProcessMessages

[xsjado686]

только там он походе немного не правильный.

Вот фильтр для rPE для спама дабла:

library rPE_ex;

uses
windows,
Winsock2,
winsock,
rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
CurHex: string;
i : integer;
begin
CurHex := GetBufferAsHex(buf, len);
if (pos('7200',CurHex) <> 0) and (pos('2E00',CurHex) <> 0) then
begin
@Send_Callback := pSendWs1;
for i := 0 to 300 do // the number how often this packet should be send
begin
sleep(5); // delay you can chhose however you like (time in ms)
SendPacket(s,CurHex);
end;
end;
result := 0;
end;

procedure DLL_Load;
begin
IntLog('D:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
Running := false;
EndLog;
end;

procedure DLLMain(dwR: integer);
begin
case dwR of
DLL_PROCESS_ATTACH:
DLL_Load;
DLL_PROCESS_DETACH:
DLL_UnLoad;
end;
end;

exports
Send_WS1;
begin
Running := true;
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.

стреляем 1 дабл, а спамится 5

Чёрт а чё так лагает с этим фильтром? Лаги исчезают если слип поставить 0, ну тада ээфеек исчезает...
Ты под какой серв настраивал и как?

[openKore206]

люди щас Рпе не везде работает по этому ищу обратно что фильтр на Впе