Assinatura e envio SEM Capicom

[juniorsk8]

Olá, boa tarde pessoal...

Estava tendo muitos problemas com o envio de DFe utilizando a CAPICOM (principalmente com certificados A3), necessidade de ficar instalando certificados da VALID com instalador próprio deles (para evitar o erro The Cryptographic Service Provider type '24) e PRINCIPALMENTE: Alguns certificados A3 não funciona NEM NA MARRETA com WS do Mato Grosso...

Enfim, gostaria de disponibilizar e também contar com a ajuda de vocês para testar uma solução que fiz para não utilizar a CAPICOM nem OPENSSL... Como não encontrei nenhuma solução "boa" para o Delphi, acabei fazendo as rotinas de assinatura e envio para o WS dentro do C# e utilizando essas DLLs no Delphi... APENAS essas duas funções são utilizadas, todo o restante é tratada diretamente pelo ACBR no Delphi...

Peço ajuda pois estou com "pouco" tempo para melhorar o código, e sei que será bem útil para muitos aqui...

PS1: Estou usando ela em produção em alguns clientes, está se mostrando satisfatório até agora.
PS2: Vou deixar aberto o código em C#, só preciso de um tempo para criar um repo no github e upar
PS3: Não limpei nada no código (sem tempo), utilizei a mesma classe do ACBrDFeCapicom, então está com quase tudo da original.
PS4: A DLL deverá ficar no diretório da aplicação.
PS5: Foi feita utilizando .NET Framework 2.0 (único requisito para funcionar)
PS6: A empresa gentilmente cedeu o código de fonte para que possa ser usado pelos demais programadores do ACBr.
 

Modificações:
 - ACBrDFeSSL.pas:
     Adicionar a uses:
    uses strutils, synacode, ACBrDFeUtil, ACBrValidador, ACBrUtil, ACBrDFeException, ACBrDFeKinyx...

     Adicionar o novo tipo de biblioteca a ser utilizado:
     TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap, libKinyx);

     Adicionar outra condição na função SetSSLib: 
    procedure TDFeSSL.SetSSLLib(ASSLLib: TSSLLib);
    begin
     ...
        libKinyx:
        begin
          FSSLClass := TDFeKinyx.Create(Self);
        end
     ..
    end;

 

 

 

ACBrDFeKinyx.pas

KinyxDFeLib.dll

[Daniel Simoes]

uses
  ACBrCAPICOM_TLB, ACBrMSXML2_TLB,
....
...

function TDFeKinyx.SelecionarCertificado: String;
var
  Store: IStore3;
  Certs: ICertificates2;
  Certs2: ICertificates2;
  Cert: ICertificate2;
begin
  Store := CoStore.Create;
  Store.Open(FStoreLocation, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_READ_ONLY);

  Certs := Store.Certificates as ICertificates2;
  Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)',
    'Selecione o Certificado Digital para uso no aplicativo', False);

  if (Certs2.Count > 0) then
  begin
    Cert := IInterface(Certs2.Item[1]) as ICertificate2;
    FpDFeSSL.NumeroSerie := String(Cert.SerialNumber);
    CarregarCertificado;
    Result := GetCertNumeroSerie;
  end
  else
    Result := '';
end;

Me parece que ainda depende da CAPICOM

 

 

[juniorsk8]

Citar

PS3: Não limpei nada no código (sem tempo), utilizei a mesma classe do ACBrDFeCapicom, então está com quase tudo da original.

Daniel, só alterei a rotina de Assinar o XML e Enviar a requisição (partes essenciais) , o restante ainda nem toquei, esse é o objetivo de compartilhar, para que mais colaboradores possam testar e manter.

O meu problema até então foi resolvido, pois o principal erro (the cryptographic service provider type '24' is not supported) foi resolvido não utilizando a CAPICOM para assinar, e por último, meu problema com o envio ao WebService do MT com certificado A3 alterando a função de enviar requisição (Executar).

 

Att,
Jeferson.

[Daniel Simoes]

Sinto muito... Não vou incorporar. 

O código de "KinyxDFeLib.dll" não é aberto...  (poderia estar aberto em outro projeto)...

E ainda existem muitas dependências da CAPICOM...

Vamos manter o tópico... Pode ser que outro usuário do fórum, tenha interesse em lhe ajudar com esses problemas...

[juniorsk8]

Daniel, esse sempre foi o intuito.

Preciso de colaboradores que queiram auxiliar nos testes e manter o código.
Sobre não ser aberto, ainda hoje vou criar o repo no github e subir como um projeto a parte.

Att,
Jeferson.