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

[Alegun]

Это же сертификат ЦП по протоколу PEM X.509.V3 от RFC822 для ТОВ "Полтава-Інтелект-Сервіс", шифр ключа - sha1, переименуйте файл в *.crt и сами посмотрите. Или эту инфу как раз и надо считывать программно?

З.Ы. Чем самому парсить эту кегню, проще заставить делать это библиотеку OpenSSL, здесь под делфю порт лежит (можно ещё джедой, в смысле JEDI, но уж больно в ней ошибок много). Берёте оттуда класс TX509Certificate, где есть такие славные функциняшки как LoadFromFile, Issuer, Subject, NotBefore, NotAfter, Text etc, прям по списку из виндовой инфы по сертификату. И всё.

[Ivanius]

Да я именно это и искал, но мне никто так и не смог обьяснить что в этой библиотеке конкретно нужно(openSSL) потому и начал искать обходные пути.
Вроде бы все нашел, разобрался, но вот что:

Код:

procedure TUCCCheck.opencrtClick(Sender: TObject);
var
  cert:TX509Certificate;
begin
  if FileOpen.Dialog.Execute then
    try
      cert:=TX509Certificate.Create;
      cert.LoadFromFile(FileOpen.Dialog.FileName);
        with crttext.Lines do begin
          Add(cert.Issuer);
          Add(cert.Subject);
          Add(DATEToSTR(cert.NotBefore));
          Add(DATEToSTR(cert.NotAfter));
          Add(cert.Text);
        end;
    finally
      cert.Free;
    end;
end;

Ав вылетает когда окрываю файл, пробовал другие ДЛЛки, там ошибку пишет и все.....
Понял в чем была проблема, брал все из libeay32.pas а не дллки
сейчас не компилируется ссылаеться что нету этого пас файла.
В общем просьба скинуть сюда весь комплект рабочих файлов OpenSLLUtils.pas, libeay32.dll, libeay32.pas
в принципе файл вродебы открывается, но считать ничего не получается...

[Alegun]

Посмотрите пжлст ответ в личке.

[Ivanius]

можете привести пример или листинг вашей рабочей программы, возможно как-то что-то еще инициализоровать нужно?
поставил 7ю делфи и там создал тестовое приложение - тут все работает, почему в версия выше - нет мне не понятно.

[Alegun]

Вот пример, ничего там особенного нет, буквы после декодирования - русские, украинской i с двумя точками нет вообще (код есть, буквы в наборе символов ёк) - моя среда такое не поддерживает

[Ivanius]

Да все нормально работает, я разобрался, в 2010 проблема в том что все строки как ANSI, а не WIDE, несовместимость, сейчас переписую с 2010 на 7.