Сейчас на форуме: Magister Yoda, subword (+9 невидимых)

 eXeL@B —› Основной форум —› Реверсинг небольшой функции на делфи
Посл.ответ Сообщение

Ранг: 26.6 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 21 октября 2008 12:09
· Личное сообщение · #1

Code:
  1. function GetBlockName(NumX, NumY: integer; const Level: integer): string;
  2. var d, i: integer;
  3. begin
  4.   d := round (power (2, Level-1));
  6.   if (NumX < 0) or (d-1 < NumX) then begin
  7.     NumX:= NumX mod d;
  8.     if (NumX < 0) then NumX:= NumX + d;
  9.   end;
  11.   Result := 't';
  12.   for i := 2 to Level do begin
  13.     d := d shr 1; // = d div 2
  14.     if (NumY < d) then begin
  15.       if (NumX < d)
  16.         then Result:= Result + 'q'
  17.         else begin Result:= Result + 'r'; NumX:= NumX - d; end;
  18.     end
  19.     else begin
  20.       if (NumX < d) then Result:= Result + 't'
  21.         else begin Result:= Result + 's'; NumX:= NumX - d; end;
  22.       NumY:= NumY - d;
  23.     end;
  24.   end;
  25. end;


эта функция позволяет получить имя блока гуглмапс по его координатам и уровня зуминга. Вот реальный пример: GetBlockName(5,10,5) = 'ttrtr'. Мне же надо обратную оперцию: из 'ttrtr' получить эти три числа - 5, 10, 5. Level узнать легко = длине строки. Первая буква всегда 't'. Дальше проблемы Вроде алго простой, но ума не дам - помогите!



Ранг: 210.5 (наставник), 2thx
Активность: 0.14↘0
Статус: Участник

 Создано: 21 октября 2008 15:29 · Поправил: arnix
· Личное сообщение · #2

Code:
  2. program Project1;
  4. {$APPTYPE CONSOLE}
  6. uses
  7.   SysUtils,
  8.   Math;
  10. var
  11.   qrst: String;
  12.   N, L: Integer;
  13.   x, y, i: Integer;
  14. begin
  15.   qrst := 'ttrtr';
  16.   N := Length(qrst);
  17.   L := Round(Power(2, N - 1));
  18.   x := 0;
  19.   y := 0;
  20.   for i := 2 to N do begin
  21.     writeln(qrst[i]);
  22.     if qrst[i] = 'r' then begin
  23.       x :=  x + (L shr 1);
  24.     end else if qrst[i] = 's' then begin
  25.       x := x + (L shr 1);
  26.       y := y + (L shr 1);
  27.     end else if qrst[i] = 't' then begin
  28.       y := y + (L shr 1);
  29.     end;
  30.     L := L shr 1;
  31.   end;
  33.   writeln(x, ', ', y, ', ', N);
  34. end.




Ранг: 26.6 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 21 октября 2008 15:36
· Личное сообщение · #3

arnix
Спасибо!! Вот что значит иметь мозги на месте



Ранг: 210.5 (наставник), 2thx
Активность: 0.14↘0
Статус: Участник

 Создано: 21 октября 2008 15:37
· Личное сообщение · #4

пожалуйста

я подправил алго так что еще раз бери


 eXeL@B —› Основной форум —› Реверсинг небольшой функции на делфи
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати