На мен също много ми трябва това за подписването на Делфи, обаче примера вечр не е достъпен. Ако може пак да го сложите ще съм много благодарен.
Освен това дали е възможно избора на сертификата да става автоматично т.е. без да се избира от списък. Трябва да направя напълно автоматизирано подписване с даде сертификат.

дай един мейл да ти го пратя, ако разбира се иванчо няма против - защото е негово дело.

Ще съм Ви благодарен ако ми го пратите и на мене на емайл:

Съдържаниет е скрито
Влезте за да го видите

Ще Ви бъда благодарен, ако ми го изпратите и на мене, на този емайл:

Съдържаниет е скрито
Влезте за да го видите

Здравейте, след доста борене и търсене попаднах на темата за подписване на файл през Делфи. Ако не представлява трудности ще може ли примера да ми го изпратите на emo_ukr@mail.bg.

Благодаря предварително!!

Темата е рядко полезна :) за български форум.
Ако няма проблеми с публикуването на файловете, хайде да ги сложим в hit.bg или някъдет, където ще са достъпни.
Аз мога да ги сложа в мои хостове на hit.bg (free), top.bg или host.bg, ако ми изпратите на мейл nikb@mail.bg.

Успях да подпиша един файл и след това да го прочета.
Проблема възникна като тествах проложението на компютър с повече сертификати. Там като избера файла който иска да се подпише ми вади "Store" с всички сертификати. Проблема е като избера подписания файл да го прочета, не ми се отваря "Store" за да си избера сертификата който съм подписал. И в двата метода използвам IStore.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED).

Ако има желаещи ще споделя примера, само трябва да се реши гореспоменатия проблем.

Вече всико е ОК и подписвам всякакви файлове, с всички формати (BASE64, BINARY).

class procedure TCAPICOM_Crypt.Sign(const InStream: TStream; var OutStream: TStream;
const Encode: TEncode_Type);
var
Store: IStore;
sd: ISignedData;
signer: ISigner;
signer2: ISigner2;
utl: IUtilities;

signedData, unsignedData: WideString;
ovFile: OleVariant;
begin
VarClear(ovFile);
try
ovFile := StreamToOleVariant(InStream, InStream.Size);
try
utl := CoUtilities.Create();
unsignedData := utl.ByteArrayToBinaryString(ovFile);
Store := CoStore.Create();
Store.Open(CAPICOM_CURRENT_USER_STORE, sCAPICOM_MY_STORE, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED);

sd := CoSignedData.Create();
sd.Content := unsignedData;

signer := CoSigner.Create();
signer2 := signer as ISigner2;

signedData := sd.Sign(signer2, False, CAPICOM_ENCODE[Integer(Encode)]);

VarClear(ovFile);
ovFile := utl.BinaryStringToByteArray(signedData);

OleVariantToStream(ovFile, OutStream);
except
on E: Exception do
begin
raise Exception.Create(E.Message);
end;
end;
finally
VarClear(ovFile);
end;
end;

class procedure TCAPICOM_Crypt.Verify(const InStream: TStream; var OutStream: TStream);
var
sd: ISignedData;
utl: IUtilities;

signedData, unsignedData: WideString;
ovFile: OleVariant;
begin
VarClear(ovFile);
try
ovFile := StreamToOleVariant(InStream, INStream.Size);
try
utl := CoUtilities.Create();
signedData := utl.ByteArrayToBinaryString(ovFile);

sd := CoSignedData.Create();
sd.Verify(signedData, False, CAPICOM_VERIFY_SIGNATURE_AND_CERTIFICATE);

unsignedData := sd.Content;
VarClear(ovFile);
ovFile := utl.BinaryStringToByteArray(unsignedData);
OleVariantToStream(ovFile, OutStream);
except
on E: Exception do
begin
raise Exception.Create(E.Message);
end;
end;
finally
VarClear(ovFile);
end;
end;

Добре, толкова ли е трудно да се сложи работещ пример на някой фри сървър?
Ако е проблем качването - аз мога да го направя :)
nikb@mail.bg

Какъв код точно желаеш да се публикува? Че тя темата е мноооого обширна

Съдържаниет е скрито
Влезте за да го видите