Природа этих цифр

[ZuBy]

Привет Всем!

Пытаюсь разгадать природу появления этих цифр

64987 - 03:39
65328 - 03:11
65283 - 05:20
65098 - 03:55

слева зашифровано время трека, справа реальная длина его

каким алгоритмом расшифровать?


пробовал таким, не получилось

  function FormatTime(const Sec: integer): string;
  var
    H, M, S: integer;
  begin
    H := Sec div 3600;
    S := Sec mod 3600;
    M := S div 60;
    M := M + (H * 60);
    S := (S mod 60);
    if M > 99 then
      Result := Format('%3d:%2.2d', [M, S])
    else
      Result := Format('%2.2d:%2.2d', [M, S]);
  end;

[Utkin]

Может милисекунды округлены?

[Аватар]

Насколько помню там старшие биты нужно отсечь, из получившегося сдвигами получить чего-то. Короч ищите чего нибудь типа MIDI детали

[ZuBy]

еще информации, это mp3 файлы.
лежат на сервере. сайт при post запросе отдает список аля плейлист в своей "структуре". там тег, длина и путь до файла.
проигрывание осуществляется на сайте при помощь flash

var
  LNG, H, L: WORD;
  i: integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    LNG := StrToInt(Memo1.Lines.Strings[i]);
    L := (lobyte(LNG));
    H := (hibyte(LNG));

    Memo3.Lines.Add(FormatTime(H) + '  ' + FormatTime(L));
  end;

если я правильно понял, то делал вот так. одно случайное попадание...
что еще можно сделать?