Запуск dll или exe из L2PacketHack

[xkor]

ну бесплатность останется, покрайней мере по началу точно, но сорци уже наверно небуду выкладывать
а по поводу функциональности дубаю сделать универсальный перехватчик который сможет перехватить даже пакеты браузера)

Сообщение от xkor

ну бесплатность останется, покрайней мере по началу точно, но сорци уже наверно небуду выкладывать
а по поводу функциональности дубаю сделать универсальный перехватчик который сможет перехватить даже пакеты браузера)

А зачаем делать подобие универсального wp ppc ? пакетхак отличается имено своей отличимостью и простотой без лишних настроек и задумок

[xkor]

Сообщение от Гость

А зачаем делать подобие универсального wp ppc ? пакетхак отличается имено своей отличимостью и простотой без лишних настроек и задумок

ну простату постараюсь оставить, нагромаждать кучу всего повсюду как в ppc небуду), тока расширю сферу применения и увеличу стабильность, ну и в скриптах сделаю побольше встроенных функций...
ЗЫ ну это всё ещё хз когда сделаю)

[skymanrus]

эх... быстрей бы :))
такая бы жизнь началась :)))

а можно щас как то поправить текущую версию пакет хака чтоб он длл нормально поддерживал???
это ведь не займет столько времени сколько займет разработка новой программы ??

Добавлено спустя 1 день 1 час 49 минут 10 секунд:
короче люди в версии l2phx319 dll заработали у меня !!! :))))

в пакет хаке пишу такую шнягу

var
lib,Lib1:Integer;
Res:variant;
ar:array of variant;
procedure Init;
begin
lib := loadLibrary('n2ewxor.dll');
Res := CallFunction(lib,'Str1',0,[0]);
ShowMessage('!'+VarToStr(Res)+'!');
FreeLibrary(lib);
end;
begin
end.

в делфи это

library n2ewxor;


uses
SysUtils,Classes;

function Str1: integer; stdcall;
begin
result := 212;
end;

exports
Str1;

begin
end.

и в результате из дллки приходит ответ - !212!
в общем все заработало респект xkor! :)

Добавлено спустя 1 минуту 16 секунд:
теперь могу продолжить свои разработки в ботостроительстве :))

[xkor]

интересно почему раньше неработало, ведь в новой версии в работе длл ничего не менял %)

[skymanrus]

да у меня такое частенько тоже бывает :) тестирую какую то прогу
правлю её потом забываю что поправил и в результате получается очень неожиданный результат :)) :crazy:

[skymanrus]

чет никак не могу передать string из dll в пакетхак
ShareMem подключил рассовал по всем директориям borlndmm.dll
потом забил на него подключил FastShareMem та же фигня...
пробывал менять string на shortstring, longstring, widestring толку ноль все равно пакет хак при чтении стринга даёт ошибку чтения памяти :(

вот что пишу:

library newBOT;

uses
 ShareMem,
  SysUtils,
  Classes;
 //FastShareMem in 'FastShareMem.pas';

{$R *.res}

function proc: String; stdcall;
begin
 Result:='sdfg';
End;

exports proc;

begin
end.

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

мож кто знает в чем дело???

[xkor]

может массивом символов фиксированной длинны передавать попробуеш?

[skymanrus]

символы тоже не передаются не массив не даже один простейший char :)
но я нашёл выход ! :))
написал такую функцию

delphi

function proc: integer; stdcall;
var
i: Byte;
begin
if (res=0) then res:=1;
alfav[1]:='q';
alfav[2]:='w';
alfav[3]:='e';
alfav[4]:='r';
alfav[5]:='t';
alfav[6]:='y';
alfav[7]:='u';
alfav[8]:='i';
alfav[9]:='o';
alfav[10]:='p';
alfav[11]:='a';
alfav[12]:='s';
alfav[13]:='d';
alfav[14]:='f';
alfav[15]:='g';
alfav[16]:='h';
alfav[17]:='j';
alfav[18]:='k';
alfav[19]:='l';
alfav[20]:='z';
alfav[21]:='x';
alfav[22]:='c';
alfav[23]:='v';
alfav[24]:='b';
alfav[25]:='n';
alfav[26]:='m';
alfav[27]:=' ';
alfav[28]:='0';
alfav[29]:='1';
alfav[30]:='2';
alfav[31]:='3';
alfav[32]:='4';
alfav[33]:='5';
alfav[34]:='6';
alfav[35]:='7';
alfav[36]:='8';
alfav[37]:='9';
alfav[38]:='A';
alfav[39]:='B';
alfav[40]:='C';
alfav[41]:='D';
alfav[42]:='E';
alfav[43]:='F';
alfav[44]:='й';
alfav[45]:='ц';
alfav[46]:='у';
alfav[47]:='к';
alfav[49]:='е';
alfav[50]:='н';
alfav[51]:='г';
alfav[52]:='ш';
alfav[53]:='щ';
alfav[54]:='з';
alfav[55]:='х';
alfav[56]:='ё';
alfav[57]:='ф';
alfav[58]:='ы';
alfav[59]:='в';
alfav[60]:='а';
alfav[61]:='п';
alfav[62]:='р';
alfav[63]:='о';
alfav[64]:='л';
alfav[65]:='д';
alfav[66]:='ж';
alfav[67]:='э';
alfav[68]:='я';
alfav[69]:='ч';
alfav[70]:='с';
alfav[71]:='м';
alfav[72]:='и';
alfav[73]:='т';
alfav[74]:='ь';
alfav[75]:='б';
alfav[76]:='ю';
alfav[77]:='.';

 ST := 'bk sk jktu 3435 жил был олег.';
for i := 1 to Length(ST) do
begin
   Ch[i] := ST[i];
end;

Result:=-1;

for i := 1 to Length(alfav) do
begin
   if ((Ch[res]='') and (Ch[res+1]='')) then
   begin
   Result:=-9;
   res:=1;
   break;
   end;
   if (alfav[i]=Ch[res]) then
   begin
   Result:=i;
   break;
   end;

end;

res:=res+1;
End;

пакет хак

//обьявляю тут точно такой же массив alfav
for i := 1 to 255 do
begin
reshd:=CallFunction(lib,'proc',0,[0]);
  if (reshd=-9) then break;
  dfg:=dfg+alfav[reshd];
end;
frm := TForm.Create(nil);
frm.Caption := dfg;

короче строка разбивается на символы и по символам передаётся в виде integer а затем собирается в пакетхаке :)
скрипт пашет довольно таки быстро и все обходится без всяких там ShareMem, borlndmm.dll и FastShareMem
все равно они не пашут :)

[Grinch]

Сообщение от xkor

ну бесплатность останется, покрайней мере по началу точно, но сорци уже наверно небуду выкладывать
а по поводу функциональности дубаю сделать универсальный перехватчик который сможет перехватить даже пакеты браузера)

Лёх если пакетхак перестанет зависать :) я те 500р перечислю на кашелёк (уже так делал, если помниш, ну не 500 просто после покупки бота осталось), просто так, сырцов мне не надо, главное что б не зависал и имел панель окон допустим :) буквально придумал 5-10 секунд назад, типа сварачиваем клиент в трей, а в пакет хаке кнопочка появляется с вызовом из трея( с именем чара на окно вот тогда будет красиво, но главное стабильность красивости если нет желания лутьше не делать), а сырцов думаю для тех кто шарит уже хватит, мне они как 5-е колесо