За съжаление в интернет намерих много малко полезна информация за библиотеката. Ще съм благодарен за всеки съвет и информация.
Въпроса ми е как мога да подпиша файл от Делфи, използвайки библиотеката? Ако има работещ пример на делфи...
Въпроса може да се радели няколко проблема с capicom:
1. На sd.Sign(...) гърми с "The SignedData object has not been properly initialized" не мога да разбера проблема.
2. Има ли начин с тази библиотека да се подписват и бинари файлове, а не само текстови?
3. Къде в случая е подписания файл и как да посоча къде да се запише и с какво разширение?
4. Не трябва ли в някакъв момент да се изиска въвеждане на пин кода преди подписа?

Разбира се имам инсталиран фалиден ел. подпис на машината.

Регистрирал съм и съм инсталирал библиотеката и се опитвам да изпълня следния код. Не виждам обаче никъде да може да се предаде променливата Data, за да се подпишат данните:

function TForm1.Sign(d:WideString):boolean;
var
Data : WideString;
sData : WideString;
sd: ISignedData;
begin
Data:=' proba ';
CoInitialize(nil);
sd := nil;
try
sd := CoSignedData.Create;
sData := sd.Sign(nil, False, CAPICOM_ENCODE_BASE64);
except
sd := nil;
end;
sd := nil;
CoUnInitialize;
end;

Това би трябвало да ти свърши работа:

procedure TfrmMain.Button1Click(Sender: TObject);

Const

 CAPICOM_MY_STORE = 'My';

var

  Store: CAPICOM_TLB.IStore;

  sd: CAPICOM_TLB.ISignedData;

  signer:CAPICOM_TLB.ISigner;

  signer2:ISigner2;

  signedData:WideString;

begin

    Store:=CoStore.Create;

    Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_READ_ONLY);

    sd := CoSignedData.Create;

    sd.Content:='Koko Marinkin';

    signer:=CoSigner.Create;

    signer2:=signer as ISigner2;

    signedData := sd.Sign(signer2, False,CAPICOM_ENCODE_BASE64);

    ShowMessage(signedData);

end;

А как с тази процедура мога да подпиша excel файл? Пак ли на content се предава или е нещо различно?

Всичко се предава в content.
няма никакво значение какъв е файла, дали е екселски или тутурутков. Прочиташ файла двоично (бинарно), обръщаш го в масив (арай) от байтове, този масив го превръщаш в стринг, има си функция вградена, CAPICOM.Utilities, CAPICOM.Utilities.ByteArrayToBinaryString(арай) и след това продължаваш нататък. ако искаш, подписа може да бъде в отделен файл, просто смени detached от TRUE/FALSE SignedData.Sign(..., detached, CAPICOM_ENCODE_BINARY)... и т.н.
Твой помощник е

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

благодаря, този пример работи ок. криптира данните, иска си пин.
Но как мога да получа .p7s файл. Ако криптираните данни ги сейвна като файл
с разширение .p7s този файл на практика е невалиден CMS документ.
И как този подписан документ може да съдържа файл с определено име а не просто стринг.
Сигурно е нещо много елементарно, но нещо не схващам принципа.

Файла го създавам по следните 2 начина, след като вече имам подписана signedData:
FHandle:=FileCreate('c:\test2.txt.p7m');
FileWrite(FHandle, signedData, length(signedData));
FileClose(FHandle);

AssignFile(F,'c:\test.txt.p7m');
Rewrite(F);
Write(F,signedData);

И в двата случая създадения файл не може да се отвори с подписа и дава грешка невалиден CMS документ.

Пак съм аз. За сега не успявам да създам валиден файл.
Това е съдържанието на signedData след като съм я подписал със sign.
Вкарвам този стринг в текстов файл с разширение p7m или p7s но файла е с невалидна структура. има ли някой идей къде бъркам?

signedData=

MIIWNwYJKoZIhvcNAQcCoIIWKDCCFiQCAQExCzAJBgUrDgMCGgUAMCkGCSqGSIb3
DQEHAaAcBBpLAG8AawBvACAATQBhAHIAaQBuAGsAaQBuAKCCFKEwggXOMIIEtqAD
AgECAgg9zew1SrfgZjANBgkqhkiG9w0BAQUFADByMXAwCQYDVQQGDAJCRzAVBgNV
BAoMDkluZm9Ob3RhcnkgUExDMBYGCgmSJomT8ixkARkWCHFzaWduLWNhMBkGA1UE
AwwSaS1Ob3RhcnkgUSBTaWduIENBMBkGA1UECwwSaS1Ob3RhcnkgUSBTaWduIENB
MCIYDzIwMDYwMzEzMTYwNjM2WhgPMjAyMTAzMTMxNjA2MzZaMIGLMYGIMAkGA1UE
BgwCQkcwFQYDVQQKDA5JbmZvTm90YXJ5IFBMQzAeBgoJkiaJk/IsZAEZFhBxc2ln
bi1jb21wYW55LWNhMCEGA1UEAwwaaS1Ob3RhcnkgQ29tcGFueSBRIFNpZ24gQ0Ew
IQYDVQQLDBppLU5vdGFyeSBDb21wYW55IFEgU2lnbiBDQTCCASIwDQYJKoZIhvcN
AQEBBQADggEPADCCAQoCggEBAJ8+P6Bl4MTPMTmaLbnIv7As+BfDvthxP8Tn5kFm
9klHFUvhYPK9Sn4sjR35HTRLTijlRoPVHh1bY0HmFVkTkiwT66UyS3jKo2BZcpOA
kgHbq8kDFm+ZZ/CkSYVru0mekPf1xiVa/KoUZb7y/6uy60MpNvRhXCgXKCK5P6xD
zEyrv2lC3cj91tNb5yAdgL/S1tG+eqjXA+a2kPaVmU+1rJFL4TE0w1FNFDdWXAyO
qY+H8DALHuz2vRkcoAsmHFKUQjEzDkefJ0ujtlWRiaUamYFzd7yj+U4IWzHbIQYw
p+qlJfsxWyZM2Ul07xa4AfeRrzx8QXLiPKk/E7ucytiqw+UCAwEAAaOCAkgwggJE
MA4GA1UdDwEB/wQEAwIBBjBEBggrBgEFBQcBAQQ4MDYwNAYIKwYBBQUHMAGGKGh0
dHA6Ly9vY3NwLmluZm9ub3RhcnkuY29tL3Jlc3BvbmRlci5jZ2kwXwYIKwYBBQUH
AQsEUzBRME8GCCsGAQUFBzAFhkNsZGFwOi8vbGRhcC5pbmZvbm90YXJ5LmNvbS9k
Yz1xc2lnbi1jb21wYW55LWNhLGRjPWluZm9ub3RhcnksZGM9Y29tMIGwBgNVHSAE
gagwgaUwdQYLKwYBBAGBrQABAQIwZjA6BggrBgEFBQcCARYuaHR0cDovL3JlcG9z
aXRvcnkuaW5mb25vdGFyeS5jb20vY3BzL3FjcHMuaHRtbDAoBggrBgEFBQcCAjAc
GhppLU5vdGFyeSBDb21wYW55IFEgU2lnbiBDQTAsBgkrBgEEAYGtAAAwHzAdBggr
BgEFBQcCARYRaHR0cDovL3d3dy5jcmMuYmcwgYYGA1UdHwR/MH0wNKAuoCyGKmh0
dHA6Ly9jcmwuaW5mb25vdGFyeS5jb20vY3JsL3FzaWduLWNhLmNybIECAVYwRaA/
oD2GO2xkYXA6Ly9sZGFwLmluZm9ub3RhcnkuY29tL2RjPXFzaWduLWNhLGRjPWlu
Zm9ub3RhcnksZGM9Y29tgQIBVjAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBSz
Q3Yvg2OMAhhugHHlCJr82euw/TAfBgNVHSMEGDAWgBRb0zxobM1LskxC5e2NhPUl
ZNzUVzANBgkqhkiG9w0BAQUFAAOCAQEAK0BiSgNu1BJ73uANyASS9Y2oA8Bf199j
rFXqc5LGQ443MUenvK9jeJiYTIbG3o7Qk0+O3mShNvKyTSamOHRRieY72o82JOU6
/xNRYLU5mNeIv+4hKjuJfwm6C1Meg01WwMAFaGycXj1GTkoAN1viowSgETmuhBxQ
mdwnDAPE0FXw+/nmDliAVzq0vpk0V38CeJ/4j6GIooSTBTsOj9CKcqoooyQnQw07
sAOB/5/tI1omfORVsCmuobQtTo6SK9MPUAb59LmptTgfRRm2SLzvPb64CRfr/QA5
DObipn4hmGegjYSesHw6/kHDbmUk9QInlj4IzEQzgWtGqmljL5tgSTCCBsUwggSt
oAMCAQICCGiYooNxbog3MA0GCSqGSIb3DQEBBQUAMIGVMYGSMAkGA1UEBgwCQkcw
FQYDVQQKDA5JbmZvTm90YXJ5IFBMQzAVBgoJkiaJk/IsZAEZFgdyb290LWNhMBoG
A1UEAwwTSW5mb05vdGFyeSBDU1AgUm9vdDAaBgNVBAsME0luZm9Ob3RhcnkgQ1NQ
IFJvb3QwHwYJKoZIhvcNAQkBFhJjc3BAaW5mb25vdGFyeS5jb20wIhgPMjAwNjAz
MDkyMDAzMDlaGA8yMDI1MDMwOTIwMDMwOVowcjFwMAkGA1UEBgwCQkcwFQYDVQQK
DA5JbmZvTm90YXJ5IFBMQzAWBgoJkiaJk/IsZAEZFghxc2lnbi1jYTAZBgNVBAMM
EmktTm90YXJ5IFEgU2lnbiBDQTAZBgNVBAsMEmktTm90YXJ5IFEgU2lnbiBDQTCC
ASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAO7fpgZG6OUuK5ztz1Zc5Kbs
IRlu8ehH2o6dvIQuBs+e+tLKQwrT8wT5OlqfNiyXYZtdWD79SrjfeHaWm5g5RxqZ
USitYwXql1uEzDE+6F9j7Lc6LUnr6BteyvE6xdhb7rgEI1Us9ZDp4x5M9BLp53p9
DTmrdScOq+UIhqRb7hRs+YH/aVHlBV0gSy9IfttSaxTuI0u4jTVsYbtjxAy8ziQI
4pcPG8ca5ZrhSoO6uOrzaPNgwcv2KTZZi89n7Yg65urBWazPCsmtNq+iS8mzyfAs
WVQBIPhdl3lGv169lHauHw56gU5+AbyOwVu4DqjlXQqYt3F91ya54s3U+yRJG0EC
AwEAAaOCAjUwggIxMA4GA1UdDwEB/wQEAwIBBjBEBggrBgEFBQcBAQQ4MDYwNAYI
KwYBBQUHMAGGKGh0dHA6Ly9vY3NwLmluZm9ub3RhcnkuY29tL3Jlc3BvbmRlci5j
Z2kwVwYIKwYBBQUHAQsESzBJMEcGCCsGAQUFBzAFhjtsZGFwOi8vbGRhcC5pbmZv
bm90YXJ5LmNvbS9kYz1xc2lnbi1jYSxkYz1pbmZvbm90YXJ5LGRjPWNvbTCBpwYD
VR0gBIGfMIGcMGwGCisGAQQBga0AAQEwXjA6BggrBgEFBQcCARYuaHR0cDovL3Jl
cG9zaXRvcnkuaW5mb25vdGFyeS5jb20vY3BzL3FjcHMuaHRtbDAgBggrBgEFBQcC
AjAUGhJpLU5vdGFyeSBRIFNpZ24gQ0EwLAYJKwYBBAGBrQAAMB8wHQYIKwYBBQUH
AgEWEWh0dHA6Ly93d3cuY3JjLmJnMIGEBgNVHR8EfTB7MDOgLaArhilodHRwOi8v
Y3JsLmluZm9ub3RhcnkuY29tL2NybC9yb290LWNhLmNybIECAVYwRKA+oDyGOmxk
YXA6Ly9sZGFwLmluZm9ub3RhcnkuY29tL2RjPXJvb3QtY2EsZGM9aW5mb25vdGFy
eSxkYz1jb22BAgFWMA8GA1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFFvTPGhszUuy
TELl7Y2E9SVk3NRXMB8GA1UdIwQYMBaAFN3UTmdDP9PqYujaiW6OO24Lu5WfMA0G
CSqGSIb3DQEBBQUAA4ICAQAaU74DRzDYL0dh83D2dwgoV+/hY+GQNRnsKbkIzECl
68grFCVYvzqVC/Cv2KmxW0wJ/i/Q/DUsGKwKt4fqh/fy48huvUdWp7qh8CTuqU5W
HDdKC+Pny8RimY/1LHn70RDIzFupBg36pOQxuZY9qcGNjBfidbFZPes3fJuq5i3g
p6DqxAuX82V6sZbW/HPmlVvJveXTcOtQ3CQL/X3zv3wmVolQadwkFCjYkOxIAsY+
FzuDuymAy+xn7YftYi+qzP3CTibG4ScNA1sPzkItRb5QFpDp0pwowubnqHz9xgB4
S+Rlpt+VpZCxq6a8UXqQsbAO7cSiEaUEhrohWxRQG7HJDNT0iXjUe+19n97BcJiN
rOZGZUvbeKXRHTnzruMqNFjN+BGk4PCHGKt81va0wUZIOENNY65sB+Xgu2uRXQQG
uHoLarVuOIqvfiGCoqsJSDB8vcIPJOhRqkBHeK8lhBdzsLPw7F0dwKMuDGOx29xM
Q/Gq9LdwhuNoXBwRPbha2eLu5pmai0V2WTF2luEmMAdRzc36qfdcry1DRNLArEc+
cWsaGpaaRkMY9rEyJ13hYQXnq4j4Q6oQg8F+HbNdxxqOjlQ0iBzlZwJaYY8bNbXf
MAyMZ34nitDo9gy/hdbz1FOliqTYNG+oFl5EKLXAaZtA2yvjdjXeV7F8JU4f1Htd
CzCCCAIwggbqoAMCAQICCQDmMyV73Yt+xDANBgkqhkiG9w0BAQUFADCBizGBiDAJ
BgNVBAYMAkJHMBUGA1UECgwOSW5mb05vdGFyeSBQTEMwHgYKCZImiZPyLGQBGRYQ
cXNpZ24tY29tcGFueS1jYTAhBgNVBAMMGmktTm90YXJ5IENvbXBhbnkgUSBTaWdu
IENBMCEGA1UECwwaaS1Ob3RhcnkgQ29tcGFueSBRIFNpZ24gQ0EwIhgPMjAwNzA2
MTMxNDIxMDRaGA8yMDA4MDYxMzE0MjEwNFowggFQMYIBTDAJBgNVBAYMAkJHMAsG
A1UEEQwEMTAwMDAMBgNVBAgMBVNvZmlhMBMGBlUEA2QBAxYJVU5MSU1JVEVEMBMG
BlUECmQBAQwJMTIxNzYyMDQwMBgGCSqGSIb3DQEJARYLbWFpbEBnc3MuYmcwHQYG
VQQDZAEEDBNTR1MgLCBGRCAxMTgxNC8xOTk4MB4GBlUECmQBAwwUU0dTLDI2LjEw
LjE5OTgsMTE4MTQwHgYKCZImiZPyLGQBGRYQcXNpZ24tY29tcGFueS1jYTAhBgNV
BAoMGkdsb2JhbCBTaXN0ZW0gU2FsdXNoYW4gT09EMCQGA1UEAwwdRGV0ZWxpbiAg
VmVudHNpc2xhdm92IEtyYXN0ZXYwOAYJKoZIhvcNAQkIDCtTb2ZpYSxqLmsuRHJ1
amJhIDIgYmwuIDUwNCwgdmguQSwgZXQuMiBhcC42MIGfMA0GCSqGSIb3DQEBAQUA
A4GNADCBiQKBgQCPUJk6PrixCUAYnmFXfRLUfYG77oQAL03yRhbYdrYUJaMr7fF7
FCOToSmhTSzPwKCqiITD0F3/+r4haoAmU/G7HZEbdpRxoTEJAx3fJ0Z7jD4B1eY6
6TUsg41LYNu2yMdlgIL0JyxUqBYiCIy799eyyHVK4p3BeucDeJ1RueRp7QIDAQAB
o4IEHzCCBBswDgYDVR0PAQH/BAQDAgTwMB0GA1UdJQQWMBQGCCsGAQUFBwMEBggr
BgEFBQcDAjBEBggrBgEFBQcBAQQ4MDYwNAYIKwYBBQUHMAGGKGh0dHA6Ly9vY3Nw
LmluZm9ub3RhcnkuY29tL3Jlc3BvbmRlci5jZ2kwJAYIKwYBBQUHAQMEGDAWMBQG
CCsGAQUFBwsBMAgGBgQAjkYBATCCAaUGA1UdIASCAZwwggGYMIGTBgwrBgEEAYGt
AAEBAgEwgYIwSgYIKwYBBQUHAgEWPmh0dHA6Ly9yZXBvc2l0b3J5LmluZm9ub3Rh
cnkuY29tL2NlcnRwb2xpY3lfcXNpZ25fY29tcGFueS5odG1sMDQGCCsGAQUFBwIC
MCgaJmktTm90YXJ5IENvbXBhbnkgUSBTaWduIENlcnRpZmljYXRlIENQMIHRBgYE
AIswAQEwgcYwMwYIKwYBBQUHAgEWJ2h0dHA6Ly93d3cuaW5mb25vdGFyeS5jb20v
cWNwLXNzY2QuaHRtbDCBjgYIKwYBBQUHAgIwgYEaf1RoaXMgY2VydGlmaWNhdGUg
aXMgaXNzdWVkIGFzIHF1YWxpZmllZCBjZXJ0aWZpY2F0ZSBmb3IgYWR2YW5jZWQg
ZWxlY3Ryb25pYyBzaWduYXR1cmUgdXNpbmcgc2VjdXJlIHN0b3JhZ2UgY3J5cHRv
Z3JhcGhpYyBkZXZpY2UwLAYJKwYBBAGBrQAAMB8wHQYIKwYBBQUHAgEWEWh0dHA6
Ly93d3cuY3JjLmJnMIGYBgNVHR8EgZAwgY0wPKA2oDSGMmh0dHA6Ly9jcmwuaW5m
b25vdGFyeS5jb20vY3JsL3FzaWduLWNvbXBhbnktY2EuY3JsgQIBVjBNoEegRYZD
bGRhcDovL2xkYXAuaW5mb25vdGFyeS5jb20vZGM9cXNpZ24tY29tcGFueS1jYSxk
Yz1pbmZvbm90YXJ5LGRjPWNvbYECAVYwDwYDVR0TAQH/BAUwAwEBADAdBgNVHQ4E
FgQUqwZNcanuTU1OoaOa0bMQK+HVbbYwgegGA1UdEQSB4DCB3aSB2jCB1zGB1DAJ
BgNVBAYMAkJHMAsGA1UEEQwEMTAwMDAMBgNVBAgMBVNvZmlhMA4GCCsGAQUFBwkE
DAJCRzARBgNVBBQMCjA4ODg4MTMwNzgwFAYGVQQDZAEBDAo3NTA2MTI0MTIzMDUG
CSqGSIb3DQEJCAwoU29maWEsai5rLiBEcnVqYmEyIGJsLjUwNCB2aC5BIGV0LjIg
YXAuNjA8BgNVBAMMNdCU0LXRgtC10LvQuNC9ICDQktC10L3RhtC40YHQu9Cw0LLQ
vtCyINCa0YDRitGB0YLQtdCyMB8GA1UdIwQYMBaAFLNDdi+DY4wCGG6AceUImvzZ
67D9MA0GCSqGSIb3DQEBBQUAA4IBAQB8YhJQF6+Ilnea7wpbnlAmhy8TvxS2ngTc
E0gqbKXO1KUBI6x9E7P1JwFWOrkGf/UDvQzKDF/CEfJCbPF9zGsK0J9cAt+4Y1AD
6TEFuT3a3c1bb1sw6sl040/X0Br7MRV0zKypN4/xZK9gIdno4b0m04+U2GdUP/Fd
7SQZcOpF5JFZs4xwcgHUeGxnZhdJHWbkRkdofozhWN9VySbXfUGa0xllwFICQhBo
AeOFZ9Gc/qxewA+wOEn3im4ZX4ziV8z4cvABG5R1cNPY2yBYITBTsAsbuMmLmJx6
+BKxDu2pnYE0sqAaGzILmRU5ba6vCMkf776G97+ZfL8dKhEpLvNgMYIBQDCCATwC
AQEwgZkwgYsxgYgwCQYDVQQGDAJCRzAVBgNVBAoMDkluZm9Ob3RhcnkgUExDMB4G
CgmSJomT8ixkARkWEHFzaWduLWNvbXBhbnktY2EwIQYDVQQDDBppLU5vdGFyeSBD
b21wYW55IFEgU2lnbiBDQTAhBgNVBAsMGmktTm90YXJ5IENvbXBhbnkgUSBTaWdu
IENBAgkA5jMle92LfsQwCQYFKw4DAhoFADANBgkqhkiG9w0BAQEFAASBgCwYULPF
QKz17SKPuw9Vt5wzWSjlbUwxQjs0miR0cQVDIwXiyZYvXvO33b5cBtoc3FCtssT4
VJ06OEEaShJgrxHD42zBaDRfwhmr9qZlQ8LtbmSXK0EkY3bNBkmm70fvqTmGDdS1
IWaFWWG0+E1oTUJUFR4mQoSjWddjMmO6Jjnn

Ще приготвя днес-утре един пример, на Делфи 6.

Примера работи перфектно

Смених CAPICOM_ENCODE_BASE64 с CAPICOM_ENCODE_BINARY и подписа започна да се отваря с всички
сайнери/вюъри. Подписва успешно всякакви видове текстови файлове. С BASE64 подписва успешно
и Ексел файлове, но когато е на BINARY нещо се прецаква ексела и подписа е невалиден. Може би след подписването пак трябва да се конвертира по някакъв начин.

Работя на Делфи 6. Всичко се компилира без проблем.

Мерси много за помощта.

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