Nota Fiscal Eletronica de Campo Grante

[Adriano Luiz Alves]

Senhores, tenho que gerar uma assinatura digital para a Nota Fiscal de Campo Grande, que utiliza como padrão SHA-1. Alguem pode me ajudar ?

[LuizVaz]

Poste por favor o formato da NFSe de Campo Grande para eu dar uma olhada!

Att,
Luiz Vaz

[Adriano Luiz Alves]

Postado Originalmente por LuizVaz

Poste por favor o formato da NFSe de Campo Grande para eu dar uma olhada!

Att,
Luiz Vaz

Luiz, estou lhe enviando o xml que o pessoal esta pedindo para ser gerado. ate hai tudo bem o meu problema maior e na geração da Tag <Assinatura>, que deve ser a concatenação dos campos:
Inscrição municipal do contribuinte +
Serie do Rps +
Numero do Rps +
Data da Emissao do RPS formato yyyyMMdd +
Tributacao +
Situacao do Rps +
Tiopo de Recolhimento +
Valor do Servico +
Valor da Deducao +
Codigo da atividade +
CPF/CNPJ do tomador,
apos a concatenação acima é gerado um código has utilizando o padarão SHA-1 e passado no campo assinatura

[vinicius]

Olá amigo, encontrei o exemplo da assinatura, e outras rotinas em java e outras linguagens aqui http://www.issdigitalthe.com.br/nfse/Exemplos.zip.

[LuizVaz]

Postado Originalmente por vinicius

Olá amigo, encontrei o exemplo da assinatura, e outras rotinas em java e outras linguagens aqui http://www.issdigitalthe.com.br/nfse/Exemplos.zip.

Interessante, o código de assinatura não tem.
Está somente compilado como DCU.
A Versão de Delphi Utilizada é o BDS 2006 ou Delphi 10.

Para quem não tem pode pegar a versão lite:
hxxp://rapidshare.com/files/29607660/Delphi10_Lite_v4.1_SP2_Integrated.rar

DCU2INT

Usando o DCU2INT (Delphi 2.0-8.0, 2005(.net and WIN32), 2006(WIN32 only)&Kylix1.0-3.0 Units Parser.) pelo menos consegui descobrir que componente ele usou.
É o LockBox2 da TurboPower.

TurboPower LockBox2 (OpenSource)

LockBox 2 é um toolkit multi-platforma para encriptação de dados. Eles contêm rotinas & componentes para uso com Borland Delphi, C++Builder, & Kylix. Ele provês suporte para Blowfish, RSA, MD5, SHA-1, DES, triple- DES, Rijndael, & assinatura digital de mensagens.

TurboPower LockBox | Get TurboPower LockBox at SourceForge.net

TAG Assinatura
Usando o exemplo abaixo é possível gerar o código SHA1:

uses LbClass;

function CalulateCheckSum(text: string): string; 
var
    sha1 : TlbSHA1; 
     SHA1Digest : TSHA1Digest; 
 begin 
  sha1 := TLBSha1.Create(nil); 
  Try
    sha1.HashString(text); 
     sha1.GetDigest(SHA1Digest); 
     result := BufferToHex(SHA1Digest, SizeOf(SHA1Digest)); 
  finally
     sha1.Free; 
  end;
end;

Att,
Luiz Vaz

[giordanirocha]

Postado Originalmente por LuizVaz

Interessante, o código de assinatura não tem.
Está somente compilado como DCU.
A Versão de Delphi Utilizada é o BDS 2006 ou Delphi 10.

Para quem não tem pode pegar a versão lite:
hxxp://rapidshare.com/files/29607660/Delphi10_Lite_v4.1_SP2_Integrated.rar

DCU2INT

Usando o DCU2INT (Delphi 2.0-8.0, 2005(.net and WIN32), 2006(WIN32 only)&Kylix1.0-3.0 Units Parser.) pelo menos consegui descobrir que componente ele usou.
É o LockBox2 da TurboPower.

TurboPower LockBox2 (OpenSource)

LockBox 2 é um toolkit multi-platforma para encriptação de dados. Eles contêm rotinas & componentes para uso com Borland Delphi, C++Builder, & Kylix. Ele provês suporte para Blowfish, RSA, MD5, SHA-1, DES, triple- DES, Rijndael, & assinatura digital de mensagens.

TurboPower LockBox | Get TurboPower LockBox at SourceForge.net

TAG Assinatura
Usando o exemplo abaixo é possível gerar o código SHA1:

uses LbClass;

function CalulateCheckSum(text: string): string; 
var
    sha1 : TlbSHA1; 
     SHA1Digest : TSHA1Digest; 
 begin 
  sha1 := TLBSha1.Create(nil); 
  Try
    sha1.HashString(text); 
     sha1.GetDigest(SHA1Digest); 
     result := BufferToHex(SHA1Digest, SizeOf(SHA1Digest)); 
  finally
     sha1.Free; 
  end;
end;

Att,
Luiz Vaz

Ola Luiz Vaz.

Onde conseguir esta "LbClass" para realizar a assinatura ?

Obrigado.

[LuizVaz]

Aqui:

http://sourceforge.net/projects/tplockbox

Att,
Luiz vaz