[Script] [Tutorial] Меняем пакеты в WPF.

[Leo_ня]

угу.. а то он у меня и из гайда не понимает большинство комманд.. или как они называются.. =\

и вообще, я ща пытаюсь сам чё нить сделать... покороче и попроще для меня))

// у меня 6.55

Добавлено через 42 минуты

Цитата: gbuff := _gbuff; asdasd := stringlist('create'); gbuff := stringlist('add',asdasd,gbuff); stringlist('savetofile',asdasd,'c:\1235.txt');

во..что то типо этого))

ток он у меня сохраняет пакеты как "† “
ђ\«€aђ!"

ща подумаю..

Добавлено через 49 минут
ушёл спать.. а то утро скоро..

[Leo_ня]

о, наконец-то вспомнил, что хотел скрипт на лог пакетов всего лишь подправил тот скрипт, который сразу был в папке wpsc.
он назывался RFO-GetChars-1.fsc

вот [Ссылки могут видеть только зарегистрированные пользователи. ]

Добавлено через 5 минут
или таг))

//Логгер пакетов в текстовый документ "log.txt" в папке wpf/custom.
var
  log    : TStringList;
  logg,s1 : string;

Procedure OnCreate;
begin
  logg  := _gCustomDir+'Log.txt';
  try
    log := TStringList.create;
    log.CaseSensitive := false;
    if FileExist(logg) then try
      log.LoadFromFile(logg); // загрузим ранее созданный файл, чтобы дополнить список
    except
      writelogln(' Ошибка чтения файла : '#39+logg+#39);
    end;
  except
    log := nil;
  end;
end;

Procedure OnDestroy;
begin
  if log <> nil then
  try
    if log.count > 0 then
    try
      log.SaveToFile(logg);
      writelogln(format(' Файл '#39'%s'#39' успешно создан, %d записей',[logg,log.count]));
    except
      writelogln(' Ошибка записи в файл '#39+logg+#39);
    end;
  finally
    log.free;
  end;
end;

var
  logm : string;
  le, id : integer;

BEGIN
  ID := gInt(_gBuff,1,2);  //Присваиваем ID первые два байта. 1 = второй байт (отсчёт с нуля), 2 = сколько байтов считать

    if ID = $00F3 then begin //здесь ID. чтобы сохранять в текстовик все пакеты, нужно удалить эту и строчку выше.
        if log.indexOfName(logm) = -1 then begin //если нужно, чтобы пакеты не повторялись, то отставьте эту строчку.
          logm := BuftoHex(_gBuff);
          log.add(logm);
        end;


      end; //и тогда эту строчку удалить, если нужно чтобы сохранялись все пакеты, end лишнее
  end.

Добавлено через 1 час 34 минуты
у кого скрипт не пашет, скачайте впф6.58f.. и не забудьте проверить, что стоит fs движок.

[Angelo]

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

[Leo_ня]

ты точно не поймёшь этот гайд, лучше мой смотри.. да и в теме ты в другой отписался))
http://zhyk.ru/forum/showthread.php?t=1628

[Leo_ня]

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

например я обновляю страницу жука, а как обновление заканчивается, соединение обрывается.. как сделать чтобы соединение было постоянным? (с жуком я ничё делать не собираюсь, просто привел пример, чтобы никто не понял моего коварного замысла ^^)






пакеты светятся в Autologger'е.
чел, лучше вообще на читы забей.. сколько я твоих сообщений смотрел, везде было "аа, нимагу ничё сделать"....

[Angelo]

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

[Глюконатор]

Цитата: Сообщение от Angelo блин у меня не получается 3 процес я вроде все делаю правельно все работает, но когда нажимаю load я не знаю куды нажимать чтобы логи в скриптах появились подскажите плиз

Какие логи?! В каких скриптах?!
Если самому ниче не писать, то в логах будут оставляться сообщения только об ошибках скрипта и все. Если вам нужны какие-то другие логи надо прописывать это самому.

Цитата: Сообщение от Leo_ня хм.. как сделать так, чтобы соединение не закрывалось по просьбе программы, которая его открыла, а только через впф?

По идее каждая прога посылает запрос о завершении коннекта. Находишь и BlockPacket. Если это веб-прога, то придеццо немного попариццо =)

Цитата: Сообщение от Angelo я не могу найти вообще эти покеты когда я нажимаю редоктировать онлайн там вообще не чего нету а когда нажимаю лоад я без понятие че открывать

Когда нажимаешь лоад - открываешь скрипт, который хочешь загрузить.

[Leo_ня]

запросов никаких не посылает, прога закрывает коннект со своей стороны.

[Глюконатор]

Ну не запрос, а уведомление.. Если она тупо обрубает сокет со своей стороны не уведомляя удаленную машину об окончании конца сессии, то это не есть хорошо. и я тогда хз че делать (это если в частности. В общих чертах - реверсинг проги и отключение дисконнекта)

[Leo_ня]

ну например я выключаю игру через альт ф4, никаких пакетов не шлётся, соединение закрывается.. как это обойти?.. =(

[Глюконатор]

А никак.. Хотя конечно можешь написать эмулятор клиента, дабы сервак соединение не рвал изза ошибок)

[Leo_ня]

да и ещё.. у меня никак не получается ни в ВПЕ ни в ВПФ открыть сокет.. или чё там) ну типа

var 
  ip, port, : integer;
  pck : string;
  Server : TSocket;
  block : boolean;

Begin

block:=true;
ip:=inet_addr('123.123.123.123');
port:=htons(15121);
pck:=HStr('12 34 56');
Server:=gWSA.TCPsocket(block);
gWSA.connect(Server,ip,port);
gWSA.send(Server,pck);

end.

по идеи должен при каждом пакете открывать соединение с 123.123.123.123 (ну айпи я настоящий тыкал), и отправлять пакет 12 34 56.

ток вот ничего не открывается

в ВПЕ так же.. если выбираешь новый коннект по такому-то айпи, то он выдаёт ошибку соединения...

Добавлено через 3 часа 3 минуты
Глюк.. убей меня =(

Я туплю.. не могу даж самое простое сделать..

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

Со скриптом первого соединения я разобрался.. он уже готов... а во втором выходит одна проблемка..

var
log:TStringList;
file:string;

Procedure OnCreate;
begin
file:=_gCustomDir+'Log.txt';
log:=TStringList.create;
end;
Begin
log.LoadFromFile(file);
gSys.ensends(log.Text);
end.

Я уже и так и сяк пробовал.. Вообщем если в текстовике написано "123456789abcde0f", то он отправит 31 32 33 34 35 36 37 38 39 61 62 63 64 65 30 66 так ещё и 0D 0A какие-то в конце добавит.

Если вставляешь Hstr(Log.text) или Hpck, то говорит

Цитата: .ERROR: EXCEPT: HSTR: '$??' is not a valid integer value at [14:1]

я хз чё делать.. подскажи плз.. а лучше вообще, другой способ.. без текстовика)

[Leo_ня]

Хелп ми плиз))) есть скрипт, в котором изменяется пакет на нужный, а потом отправляется в новом соединении. Что в нём не так?

const
     ip=_gServIp;
     port=_gServPort;
var
     packet123 : string;
     S: TSocket;
     i: Integer;
begin
...
...
...
   S:= gWSA.TCPsocket(True);
   i:= gWSA.Connect(S, ip, port);
   gWSA.Send(i, Hstr(packet123));                                                                
   gWSA.ShutClose(S);
end.

После многоточий появляется проблема. И не могу понять, то ли сокет не создаётся, то ли не коннектится, то ли пакет не шлётся...
(в моём случае пакет выглядит как '8B0001002B0036000100')

[KZ91]

[Ссылки могут видеть только зарегистрированные пользователи. ]

[vedunx]

Вопрос !Как менять не весь пакет а только определённые байты,если расматривать динамический пакет?

Добавлено через 2 минуты

Цитата: Сообщение от KZ91 [Ссылки могут видеть только зарегистрированные пользователи. ]

ЛоЛ ,все программы по отлову пакетов ,содержат в себе снифер,который антивирусы определяют,как троян!!!