Привет!
Требуется выделить тело сообщения из файла, подписанного ЭЦП
Предполагаю, что файл состоит из [заголовок ЭЦП+сообщение+"хвост ЭЦП"]
Ранее путем перебора нашел в заголовке нужные байты для определения длины для одной определенной ЭЦП (ИФНС) - но для другой ЭЦП (ПФР) заголовок короче...
Перерыл инет в поисках описания заголовка - увы, нет. Или пока не совсем в теме.
Не подскажите ли куда рыть.

Спасибо, Кирилл. Точно так - CMS, нарыл таки сам - нашел даже программы-арбитры по теме.
Проблема моя в том, что Такском использует древнюю схему хранения данных - для налогового представителя обработка двух-трех тысяч отчетов невозможна. Пишем свои прилады. Еще раз спасибо

По какой именно теме? Разработка и встраивание СКЗИ?

Здесь решение вопроса - потребовался небольшой напильник
Ранее писал, что нужный код в http://www.ararat.cz/synapse/
допишем так:
1. Добавим BlobFile:TMemoryStream // initialization - Create;finalization-Free
2. в процедуре ASNdump добавим флаг setBlob

Применение
procedure TForm4.Button1Click(Sender: TObject);
var
f:TFileStream;
s:AnsiString;

begin
if OpenDialog1.Execute then
begin
f:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
try
SetLength(s,f.Size);
f.Read(s[1],f.Size);
memo1.Lines.Text:=ASNdump(s);
Viewer.LoadFromStream(BlobFile);
finally
f.Free;
s:='';
end;
end;
end;



unit asn1util;
.....

var BlobFile:TMemoryStream; // Здесь может быть все Memo, Binary, ets
implementation

{==============================================================================}
function ASNdump(const Value: AnsiString): AnsiString;
var
i, at, x, n: integer;
s, indent: AnsiString;
il: TStringList;
setBlob:boolean;
begin
setBlob:=false; // флаг наличия "тела сообщения"
...............
...............
if IsBinaryString(s) then // здесь оно и должно быть
begin
if (at=ASN1_OCTSTR) and not SetBlob then // ASN1_OCTSTR - наш признак
begin
BlobFile.Write(s[1],length(s));
SetBlob:=true; // наличие и запись в trye
end;
s := DumpExStr(s);
end;
Result := Result + s;
end;
Result := Result + #$0d + #$0a;
end;
finally
il.Free;
BlobFile.Position:=0; // здесь понятно
end;
end;

{==============================================================================}
initialization
BlobFile:=TMemoryStream.Create;
finalization
BlobFile.Free
end.
end.