[Ivanius]

короче есть текст (во вложении) Это шифрованный файл половина данных зашифровано, остальное читабельно в кодировке ANSI 1251, Перекодировать не шифрованый кусок который просто в анси - можно, если даешь ему весь текст или построчно он или вообще не расшифровует или оставляет 2 строки символов.
Вижу 2 решения данного вопроса:
1)удалить все кроме текста(нормального) и перекодировать - остаток, тут проблема в том что этот текст нельзя отобрать пока он в другой кодировке, а в эту кодировку я попасть не могу.
2)как-то побайтово или посимвольно расшифровывать, тут вообще не знаю как сделать, те варианты что через поиск оставляют все те же 2 строчки что и функции (UTF8Encode, ansitoutf8);

Код:

var
  mStream: Tstringstream;
begin
    try
      mStream := tstringstream.Create('');
      http.Get(sertlink+link.Text,mStream);//http://www.ukrcc.com/files/download.php?file=3721042
      mStream.Position := 0;
      crttext.Lines.LoadFromStream(mStream);
    finally
      mStream.Free;
    end;