Estimados buenas tardes
A ver si alguien me ayuda con esto necesito firmar un pdf electrónicamente teniendo los siguientes elementos
- El pdf en si ( creado con harbour )
- el archivo certificado.p12 que esta en el disco duro
gracias por su ayuda
saludos
Wilson
Felix, Jefe muchas gracias por las respuestas
estoy enfermon y no estoy trabajando mucho por eso la demora
con los acceso de Felix logre armar un programa pero me esta ando error que no puede abrir el archivo certificado y creo que el problema es que yo tengo un archivo certificado.p12 y creo que se necesita de otra extension obviamente debe ser otro formato ( soy novato en el tema ) .pfx creo es la extension que necesito como transformarlo ?
muchas gracias
Wilson
Recursos usados
- harbour para bcc7 provisto por don Antonio de Linares con ssl incluido
- un ejemplo de Diego en el enlace de Felix
OJO no tengo errores de compilacion solo no me abre el archivo de clave
saludos
Wilson
Basándome en este POST, me surge una idea?
Es posible hacer esta firma, con archivo .p12, desde mod_harbour?
function main()
local cDrive := hb_curdrive()
local cBase := cDrive + ':\' + curdir() + '\'
local cPdf := cBase + 'laimprenta.pdf'
local cP12 := cBase + 'certificado.p12'
local clave := '1234'
local cPdf_Firmado := strtran( lower(cPdf), '.pdf', '_firmado.pdf')
local nRet
local aErrores := { 'Firma OK','al abrir el archivo .CRT','al abrir el archivo .KEY','al Crear el Objeto Private.Key',;
'...la Key no corresponde al Certificado','al abrir el archivo a Firmar','al crear el objeto CMS',;
'al asignar Data al objeto CMS','al cerrar la data del objeto CMS','al crear el Archivo de Salida',;
'en la generación final del archivo CMS' }
nRet = HB_CMS_SIGNFILE_PFX( cPdf, cP12, clave, cPdf_Firmado)
if nRet <> 1
? aErrores[ nRet ]
end
return nil