Алгоритм хаффмана

[cashmail]

Здравствуйте! У меня есть ansi строка, которую надо перевести в обычный текст!

FF FF FF FF 63 6F 6E 6E 65 63 74 20 00 A0 44 74 30 8E 39 F4 C7 21 9C C4 14 4C 8E 65 86 4B 90 F4 37 B6 C0 D9 1F C6 BB C5 66 0D 86 85 9D 62 1F 03 CF 6F 0D 57 F3 0C 03 2E 16 D9 AD D9 FB 85 BD 2D CF 5B 27 16 AB 20 4F E8 09 D8 77 79 0E 33 9B 04 02 8A AF 1D C2 72 A2 F6 0B 13 44 3E 70 B2 70 2F A7 C6 DD DC CB 1B 4C 9F A8 5A 27 39 9D 66 58 81 22 F0 CB 62 9E 1D 1F 98 B0 F6 E4 CA EB E2 F8 E0 9A 2A B0 69 A5 95 76 DD 72 35 CD 59 B9 BA 90 28 05 93 4D 9F 0D

Это ansi, т.к. там идет набор символов, не получиться просто написать!

Знаю, что в начале идет
яяяяconnect

Я хочу сделать, что-то типо rcontools (Программа, для администратирования сервера)! Через сниффер посмотрел, программа отправляет UDP пакет зашифрованный в алгоритм хаффмана, хочу расшифровать, чтобы сделать в своей программе connect с сервером!
Заранее спасибо

[beegl]

функция преобразование Ansi to Ascii

 function AnToAs(s: String) : String;
 Var i,kod : Integer;
 begin
  Result:=s;
  for i:=1 to length(s) do
  begin
   kod:=Ord(s[i]);
   if  kod  13 then Result[i]:=' ';
   if ( kod>=192) and ( kod=239) then 
      Result[i]:=Chr(kod-64);
   if ( kod>=240) and ( kod=255) then 
      Result[i]:=Chr(kod-16);
   if kod=168 then  Result[i]:=Chr(240);
   if kod=184 then  Result[i]:=Chr(241);
  end;
 end;

или посмотрите эту ссылку Пример реализации алгоритма Хаффмана на языке Delphi

[cashmail]

beegl, я знаю, получиться куча символов! Я для этого и написал в ansi!
Я читал эту статью! Сам попробуй, не получается

[Человек_Борща]

Если я правильно догадываюсь к чему вы пишете софт, то вот вам тайна: ТАМ НЕТУ ШИФРОВАНИЯ. Данные передаются только в ANSI, не держат UTF8 и прочие вкусности.