Kym

Bom dia Tiago, eu não assinei um arquivo, assinei uma string. Uso o seguinte código: FACBrDFe := TACBrDFe.Create(Application); try FACBrDFe.Configuracoes.Geral.SSLLib := libWinCrypt; FACBrDFe.Configuracoes.Certificados.NumeroSerie := certDigitalSerie; FACBrDFe.Configuracoes.Certificados.Senha := certDigitalSenha; assinaturaDigital := FACBrDFe.SSL.CalcHash(registroAto, dgstSHA256, outBase64, True); finally FACBrDFe.Free; end; Variáveis certDigitalSerie, certDigitalSenha, assinaturaDigital são todas string. A variável registroAto contém a string que quero assinar. Fábio

Show de bola! Vou estudar o exemplo, muito obrigado novamente!

Daniel, agora com tudo assinado digitalmente eu preciso enviar pra um webservice. O webservice usa oauth2, preciso me autenticar, gerar um access_token e depois enviar, tudo com POST. To fazendo aqui usando Indy, tem alguma coisa no ACBr que ajuda nessa parte também? Obrigado novamente meu amigo!

Reinstalei tudo em 32bits com a opção de remover a instalação antiga e parece que funcionou agora Daniel! Consegui compilar, selecionar o certificado, etc.. Agora vou estudar o código pra ver como adaptar para minha necessidade! Se o ACBr suprir minhas necessidades, gostaria de saber como posso contribuir de volta. Muito obrigado novamente! Fábio

Não mudei nada Daniel. Eu instalei no meu Delphi XE3 pelo ACBrInstall_Trunk2.exe, porém eu instalei a versão 64bits. Era pra ter instalado a 32bits? Deixei as opções tudo padrão como vem no instalador, fiz somente a instalação mínima, que está marcado ACBr_Comum e ACBr_Diversos, tinha que selecionar alguma outra coisa? É possível remover e instalar de novo? Obrigado! Fábio

Copei dessa pasta: D:\dev\delphi\componentes\ACBr\DLLs\XMLSec

Eu criei um projeto novo, só adicionei ACBrDFeSSL ao uses ele já faz isso, compila, roda e fecha. Não da erro, não da mensagem, nada. Eu tiro ACBrDFeSSL do uses, ele roda normal.

Bom dia Daniel, fiz a instalação do ACBr pelo ACBrInstall_Trunk2.exe no Delphi XE3. Ao tentar compilar o projeto que você indicou (SATSign) deu o seguinte erro: Criei um projeto novo e copiei todos os componentes e código, consegui compilar, mas na hora de executar disse que não encontrou as DLL'S libxml2.dll e libxmlsec.dll. Encontrei essas DLL's no diretório \XMLSec.., copiei pro diretório do projeto.., consegui compilar e executar o projeto, mas ele não aparece nada, não da erro, é como se o projeto abrisse e fechasse sozinho, só pisca a tela, sem nenhum erro ou mensagem. Onde posso estar errando? Pergunto novamente, se você puder me assessorar por telefone ou mesmo remotamente, eu ficaria feliz em pagar por sua ajuda. Obrigado! Fábio

Já estou baixando aqui e vou estudar! Muito obrigado Daniel! Fábio

Daniel muito obrigado! Eu nunca usei o ACbr, vou procurar então esse componente e exemplo que você indicou! Por acaso você me daria uma assessoria? Se você dizer esse tipo de serviço, claro, me passe um orçamento por favor. Meu contato está no primeiro post. Obrigado novamente! Fábio

Boa tarde, Eu preciso executar esse procedimento abaixo em Delphi, eu já possuo uma string com os valores desejados, só falta assinar digitalmente usando certificado A1 ou A3 e pegar a hash assinada. Alguém sabe como fazer isso em Delphi? Se os componentes ACbr podem me ajudar? Se alguém puder me ajudar, pode me adicionar no zap (19)99639-1801 e passar um orçamento pois estou com bastante urgência! Obrigado! 6.3 Geração do Hash Assinado O conteúdo de cada campo deverá ser formatado como determinado em anexo e concatenados com o caractere “|”. Exemplo: 1234561AB123456789012318I|CIACIACIACIACIACIACIACIACIACIACI|12345678901234|I.N.I.C.I. A.I.S.|201806281631426|620|80|50|50|50|50|50|50|1000|ASSINATURA Do resultado da concatenação devem ser obtidos os bytes conforme a codificação UTF8. Um hash será gerado a partir dos bytes resultantes da operação anterior. O hash deverá ser assinado usando a chave privada da Serventia. O hash assinado é adicionado ao final do registro. Exemplo: 1234561AB123456789012318I|CIACIACIACIACIACIACIACIACIACIACI|12345678901234|I.N.I.C.I. A.I.S.|201806281631426|620|80|50|50|50|50|50|50|1000|n829XD4stswH7ZNx54rzOWuGYBeqw6B dtiBOaxizpkpkp3VLHTkmEKOWkXrHVeISo76RPM6SxOTZBfxkmu/kQMn8V1D99ePB4S6CQh9rH6 T5vmj1oj82ObTe8IiwO03qpoxwzOfER70tlvn4HwCi0ekNvgsvGpXekiCzweO473yeLHQutxl4Pv4FHZ YaZYsWDcr3zdDT01nBzfj3xg7LveOlaJdeAkdzsppOvdYzHwTSR+mgNgtWJAM2TAe6uHRq1ZcB6 3z0T4lw9uopWOqOwdAbu4ByKuedGyZFc2FMkC5V0N3RRapI5XjH3fQRNmOeFvZvK7qAEPruw2l NXhX/Nw==