GARANTIR DESCONTO

Fórum [TISS] Cálculo e validação do Hash para o TISS #341223

02/05/2007

0

Delphi

Oi pessoal!

Este thread é pra tornar mais visível um código disponibilizado pelo nosso amigo [b:8c7c840d96]zeduardo2000[/b:8c7c840d96].

Se puder ajudar alguem: Utilizo uma suite de componentes free para criptografia que tem o hash de md5 (http://www.cityinthesky.co.uk/cryptography.html), estou usando o esquema de data binding do dudubaio. E no codigo ficou mais ou menos assim: Function MD5Hash(Buffer : String):String; Var MD5_Hash : TDCP_MD5; Hash : Array[0..15] of byte; //31 Temp : String; f : Byte; begin For f:=0 to 15 do Hash[f]:=0; Buffer:=Trim(Buffer); MD5_Hash:=TDCP_MD5.Create(NIL); MD5_Hash.Init; MD5_Hash.UpdateStr(Buffer); MD5_Hash.Final(Hash); For f:=0 to 15 do Temp:=Temp+IntToHex(Hash[f],2); Result:=Copy(Temp,1,32); MD5_Hash.Burn; MD5_Hash.Free; end; ... Aux := xmlTISS.XML.Text; while Pos(´>´,Aux) > 0 do Delete(Aux,Pos(´<´,Aux),Pos(´>´,Aux)-Pos(´<´,Aux)+1); msg.Epilogo.Hash := MD5Hash(Aux); xmlTISS.SaveToFile(´teste.xml´);



Depois de gerar o hash, se vc quiser verificar o se mesmo é válido, veja este site:

http://pajhome.org.uk/crypt/md5/

É só colar o texto original que ele calcula o hash pra vc.


Dudubaiao

Dudubaiao

Responder

Posts

04/05/2007

Briciosm

O que seria xmlTISS.XML.Text???

Que componente??


Responder

Gostei + 0

06/05/2007

Dudubaiao

É um TXmldocument.


Responder

Gostei + 0

06/05/2007

Dudubaiao

Só tem um detalhe. Pra poder usar o Txmldocument vc tem que utilizar as classes geradas pelo XML Databiding Wizard.

O problema é que se vc tentar gerar essas classes vai perceber que o Delphi gera inúmeras classes duplicadas. Isso levou a maioria das pessoas a desistir desse caminho.

A boa notícia é a seguinte: passei umas horinhas e corriji a unit gerada pelo Delphi. Se vc quiser, me passe seu email através de uma mensagem privada que eu mando a unit, ou pra quem estiver interessado.


Responder

Gostei + 0

24/03/2009

Fabiodrs

Bom dia, pessoal.

Sempre acompanhei alguns fóruns (como este) em busca de ajuda para alguns problemas relacionados à TISS.
Fica agora uma pequena contribuição de um link que talvez possa ajudar aos colegas com dificuldades em lidar com o HASH.

É uma ferramenta online que pode ajudar o prestador no caso de hash inválido, pois corrige o hash no arquivo e possibilita o download do arquivo com hash válido:

http://www.utilitiss.net/

Espero ter ajudado,
Abraços!
Fábio Demarchi


Responder

Gostei + 0

06/05/2016

Anderson Possamai

Gente gero o HASH corretamente, mas pro padrao ANS nao, alguem sabe qual parte a ANS tira do XML?
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar