PC Toledo

... Harbour
header directory so they can be used by other components.
+ export sha2 and hmac/sha2 low-level functions from Harbour dynlib
* src/rtl/sha1.c
* src/rtl/sha1.h
* src/rtl/sha1hmac.c
* src/rtl/sha1hmac.h
* src/rtl/sha2.c
* src/rtl/sha2hmac.c
* src/rtl/hbsha1.c
* src/rtl/hbsha1hm.c ...

... conseguir assinar pelo CAPICOM, vou ver o código que vc postou e aceito mais dicas se vc tiver
de como assinar com o CAPICOM com o algoritmo RSA SHA1.

A solução com o openssl.exe e certificado A1 foi essa aqui:


// Cria o arquivo chave PEM a partir do arquivo do certificado PFX:
cCommand ...

... aqui com esse nome 20250324 - Manual_de_Especificações_Técnicas_do_DANFE_NFC-e_QR_Code.pdf.

Estou testando o QRCode 3.0 na SEFAZ SP, quando uso HB_SHA1() a nota fiscal em contingência é emitida... mas quando assino os parâmetros do QRCode conforme mesmo manual
não valida a assinatura. É ruim isso, o ...

... aqui com esse nome 20250324 - Manual_de_Especificações_Técnicas_do_DANFE_NFC-e_QR_Code.pdf.

Estou testando o QRCode 3.0 na SEFAZ SP, quando uso HB_SHA1() a nota fiscal em contingência é emitida... mas quando assino os parâmetros do QRCode conforme mesmo manual
não valida a assinatura. É ruim isso, o ...

... nHandle := FOPEN( cFile_Str_a_Assinar )
FWRITE( nHandle, cStr_a_assinar )
FCLOSE( nHandle )


// Aqui não funciona
cCommand_Dois := "openssl dgst -sha1 -sign " + cPrivateKeyPEMFile + " -out " + cFile_Str_Assinada + " " + cFile_Str_a_Assinar
__RUN( cCommand_Dois )
// Aqui não funciona

// Lê os dados ...

... está sendo assinar a string de parâmetros desse novo layout de QRCode.

Alguém sabe como assina uma string com o harbour no algoritmo RSA SHA1.

Eu tentei essa receitinha pra assinar mas meu código não funcionou:
'<?xml version="1.0" encoding="UTF-8"?>' +;
'<ds:Signature xmlns:ds="http ...

... http://www.w3.org/TR/2001/REC-xml-c14n-20010315"></CanonicalizationMethod>
<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"></SignatureMethod>
<Reference URI="#NFe31250799999999999999550010000005211524869277">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000 ...

... Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
<dsig:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
<dsig:Reference URI="#lote1">
<dsig:Transforms>
<dsig:Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
<dsig ...

... Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
<dsig:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
<dsig:Reference URI="#lote1">
<dsig:Transforms>
<dsig:Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
<dsig ...

... Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
<Reference URI="#NFe43250143631419000154650010000043321010005280">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped ...

... Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
<SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
<Reference URI="#NFe29241446635689001245556620004809011000778606">
<Transforms>
<Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped ...

... If parametrosiniciais->modnfe == [65] .and. Alltrim(parametrosiniciais->ceibge) == [43] // Nfce e RS
oXml+= [<infNFeSupl>]

cHashCSC:= hb_sha1(cId + [|2|] + Str(parametrosiniciais->tpanfe, 1) + [|] + Alltrim(STR(parametrosiniciais->IDENTCSC)) + parametrosiniciais->NRCSC)

oXml+= [<qrCode ...

... e tive que fazer uma pequena mudança, já que o próprio dizia p/ adicionar, fiz e funcionou perfeitamente.

Excutei assim "signtool.exe sign /fd sha1 /v /f certificado.pfx /du "https://hostgweb.com.br" /d "Sistema de portaria" /t http://timestamp.digicert.com portaria.exe", onde:

certificado.pfx ...

... are
UTF8 encoded. Adapted from Far Manager source code.
It works rather well. Implicitly detects UTF8 BOM, too.
Uses the same kind of license as SHA1/SHA2 sources.


IF ! IsASCII7( cFile, @tmp ) .AND. ! hb_StrIsUTF8( cFile )
AAdd( aErr, hb_StrFormat( "content: is non-UTF-8/ASCII-7: %1$d", tmp ...

... CAPICOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_NAME 1
#define CAPICOM_AUTHENTICATED_ATTRIBUTE_DOCUMENT_DESCRIPTION 2

#define CAPICOM_CERTIFICATE_FIND_SHA1_HASH 0
#define CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME 1
#define CAPICOM_CERTIFICATE_FIND_ISSUER_NAME 2
#define CAPICOM_CERTIFICATE_FIND_ROOT_NAME 3 ...