Assinar JSON Base64 API Bradesco.

[Diego A. Folieni]

Boa Tarde.

Preciso Assinar um JSON resultando num base64 para enviar para a API de Registro Online de Boletos no Bradesco.
Encontrei esse link 

Fiz o processo de Converter o .pfx no .pem como descrito. Depois faço a chamada de uma Função 

function Assinar: AnsiString;
var
  Arquivo : TStrings;
  ACBrEAD : TACBrEAD;
  DialogArq: TOpenDialog;
  ChavePrivada : TChavePrivada;
begin
  Arquivo     := TStringList.Create;
  ACBrEAD     := TACBrEAD.Create(nil);
  DialogArq   := TOpenDialog.Create(nil);
  ChavePrivada := TChavePrivada.Create;
  try
    ACBrEAD.OnGetChavePrivada := ChavePrivada.GetChavePrivada;
    DialogArq.Execute;
    Arquivo.LoadFromFile(DialogArq.FileName);
    Result := ACBrEAD.CalcularAssinaturaArquivo(DialogArq.FileName, TACBrEADDgst(dgstSHA256),outBase64);
  finally
    Arquivo.Free;
    ACBrEAD.Free;
    DialogArq.Free;
    ChavePrivada.Free;
  end;
end;

Onde no GetChavePrivada o parâmetro Chave recebe o Text de uma StringList que foi preenchida com LoadfromFile(Certificado.pem).

Mas tudo que eu consigo é "Erro ao Ler a Chave".

[Juliana Tamizou]

Bom dia.

Seu problema foi resolvido? Se sim seria interessante compartilhar com a comunidade.

Att.

[RodrigoGA]

Boa tarde !

Diego A. Folieni conseguiu resolver ?

[Diego A. Folieni]

Boa tarde.

Peço desculpas a ambos pela demora, consegui gerar uma assinatura em Base64 que o WebService aceite, no entanto, ainda recebo retornos indesejáveis.

Para gerar a assinatura acabei abandonando o componente do ACBr e fazendo uso de outros meios(consegui gerar uma assinatura por ele também, mas ao tentar decodificar o 64 neste site (https://www.base64decode.org/), o mesmo era inválido);

Mesmo assim agradeço a todos.

[Diego A. Folieni]

Esbarrei por acidente aqui https://github.com/cybexr/Delphi-unit-OpenSSL/blob/master/OpenSSLUtils.pas e foi onde encontrei minha solução, espero que ajude outros.

[Jhonlenon Ribeiro]

Diego A. Folieni Boa noite, tentei baixar o arquivo no link mais já foi removido...vc poderia postar como fez pra assinar o json do boleto do Bradesco? to fazendo aqui mais precisava assinar o json e ecodificar em 64.

[Nelson Santos]

Achei outro link com o dito arquivo:

https://github.com/bambucode/tfacturaelectronica/blob/master/OpenSSL/OpenSSLUtils.pas