диалог с нпс

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));

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