диалог с нпс

creaDo · 15.10.2008, 10:21

При розговоре с нпс ГК получаю хтмлку что-то вроде:
HTML: <html><body>Gatekeeper Karin: Вы закончили ваши дела? Если у вас всё ещё есть что продать, и вы хотите что то купить я могу вновь открыть дверь измерений. <a action="bypass -h 9081690ddf308712">Переместиться на другой этаж</a> <a action="bypass -h 34cc702de1aee003">Задание</a>
</body></html>

как отсюда можно выдернуть ключик? (9081690ddf308712)
Ключ постоянно меняеться, ниче лучше чем переливать его в buf по байтово нипридумал, мб есть какие-то другие варианты?
длина 16 символов (32 байта)

сделал вариант для первой кнопки.

delphi Код:

var n, t:integer;  st:string;
  procedure fly(k:integer);
begin
buf:=#$23;
for n:=0 to 31 do begin
writec(readc(n+k));
end;
writeH(0);
sendtoserver;
end;
function find(d:integer):integer;
begin
result:=0
for n:=1 to d do if (result=0) and (pck[n-6]=#$2d) and (pck[n-4]=#$68) and (pck[n-2]=#$20) then result:=n;
end;
begin
 if (FromServer) and (pck[1]=#$19) then  fly(find(668));

да и еше где можно выдирнуть розмер пакета? пх его знает, есть какая-то переменная где храниться размер пакета?

Breadfan · 15.10.2008, 11:57

http://coderx.ru/showthread.php?p=14512#post14512 - скрипт на скупку свитков в КХ, http://coderx.ru/showthread.php?t=143&page=4 - скрипт на скупку семян, в обоих скриптах есть процедура поиска ключей команд и подсчета их количества. Длина пакета - length(pck)

PanAm · 15.10.2008, 14:42

Алгоритм в примерах не ахти
в фастскрипте достаточно функций для работы со строками
читайте fs.rtf

Строковые функции
function Length(s: String): Integer
Длина строки

function Copy(s: String; from, count: Integer): String
Возвращает подстроку из строки с заданной позиции заданной длины

function Pos(substr, s: String): Integer
Позиция подстроки в строке

procedure Delete(var s: String; from, count: Integer)
Удаляет подстроку из строки с заданной позиции заданной длины

procedure Insert(s: String; var s2: String; pos: Integer)
Добавляет первую строку ко второй строке

function Uppercase(s: String): String
Перевод строки в верхний регистр

function Lowercase(s: String): String
Перевод строки в нижний регистр

function Trim(s: String): String
Удаляет окружающие пробелы из строки

function NameCase(s: String): String
Перевод первого символа в верхний регистр

function CompareText(s, s1: String): Integer
Сравнение строк

function Chr(i: Integer): Char
Возвращает символ с заданным номером

function Ord(ch: Char): Integer
Возвращает номер заданного символа

procedure SetLength(var S: String; L: Integer)
Устанавливает длину строки

Вполне хватит для поиска подстроки для алгоритма без вложенного цикла

Breadfan · 15.10.2008, 16:00

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

PanAm · 16.10.2008, 14:55

я наверно так написал бы
как пример работы со строками, в работе не проверялся

delphi Код:

//Анализ HTML кода
procedure HTMLParsing(S : string);
var
  p : integer;     //позиция в тексте
  code : string;
begin
  p := Pos('bypass -h ', S);     //находим
  while p > 0 do begin         //а вдруг не нашли
    code := copy(S, p+10, 16);   //в Code копируем кусок из 16 символов,
                                 //пропуская 'bypass -h '
    /////////////////////////////////////////////////
    // ....  тут ваш код для обработки строки code
    /////////////////////////////////////////////////
    Delete(S, 1, p+26);          //удаляем обработанный кусок строки
    p := Pos('bypass -h ', S);   //ищем дальше
  end;             //кстати тут точка с запятой не нужна, 
                     //но форум тогда не подсвечивает end
end;

Var
  HTML : String;

begin
  if FromServer and (pck[1]=#$19) then begin
    HTML := ReadS(6); //Считываем текст диалога
    HTMLParsing(HTML) //и передаем на анализ
  end;           //и тут ; не надо ))))
end.

creaDo · 18.10.2008, 22:20

ПОлучай спасибку. Еше 1 вопросик:
После каких функций в end надо ставить ; а после каких ненадо?
(не в етом с крипте а вообще)

PanAm · 20.10.2008, 14:59

чесно говоря хз

не найду сейчас точного описания, тут почитайне
http://wm-help.net/books-online/prin...3/22873-3.html
начало статьи описывает немного синтаксис паскаля.
Вобсчем, главное перед ELSE не ставить.

xkor · 23.10.2008, 09:49

creaDo, после end нельзя ставить точку с запятой только если за ним идёт else в блоке if ... then begin ... end else begin ... end;