[TISS] Cálculo e validação do Hash para o TISS
Oi pessoal!
Este thread é pra tornar mais visível um código disponibilizado pelo nosso amigo [b:8c7c840d96]zeduardo2000[/b:8c7c840d96].
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.
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
Curtidas 0
Respostas
Briciosm
02/05/2007
O que seria xmlTISS.XML.Text???
Que componente??
Que componente??
GOSTEI 0
Dudubaiao
02/05/2007
É um TXmldocument.
GOSTEI 0
Dudubaiao
02/05/2007
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.
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.
GOSTEI 0
Fabiodrs
02/05/2007
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
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
GOSTEI 0
Anderson Possamai
02/05/2007
Gente gero o HASH corretamente, mas pro padrao ANS nao, alguem sabe qual parte a ANS tira do XML?
GOSTEI 0