OpenNFSe

OpenNFSe (http://www.opennfse.com.br/forums/index.php)
-   Área relacionada a NFS-e (http://www.opennfse.com.br/forums/forumdisplay.php?f=3)
-   -   Nota Fiscal Eletronica de Campo Grante (http://www.opennfse.com.br/forums/showthread.php?t=25)

Adriano Luiz Alves 21/01/2010 16:42

Nota Fiscal Eletronica de Campo Grante
 
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 21/01/2010 20:37

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

Att,
Luiz Vaz

Adriano Luiz Alves 22/01/2010 10:28

Citação:

Postado Originalmente por LuizVaz (Post 42)
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 26/01/2010 16:41

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 26/01/2010 22:39

Citação:

Postado Originalmente por vinicius (Post 44)
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:



Código:

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 08/06/2010 19:05

Citação:

Postado Originalmente por LuizVaz (Post 45)
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:



Código:

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 13/08/2010 19:46

Aqui:

Att,
Luiz vaz


Horários baseados na GMT -2. Agora são 08:49.

vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.3.0