TISS - MD5hash em Delphi

Função para gerar Hash nas mensagens XML do Padrão TISS da ANS

uses md5;

function LimpaXML(XML:String):String;
var
x:Integer;
lDeleta,lBranco : Boolean;
cXML : String;
begin
lDeleta := false;
lBranco := False;
cXML := '';
XML := trim(XML);
for x:=0 to Length(XML) do begin
if (XML[x] = #13) then continue
else if (XML[x] = #10) then continue
else if (XML[x] = #0 ) then continue
else if (XML[x] = '<') then begin
cXML := Trim(cXML);
if (XML[x+1] = '/') then lBranco := False else lBranco := true;
lDeleta := True
end
else if XML[x] = '>' then begin
if Copy(XML,x-4,5) <> 'hash>' then // vamos desconciderar o codigo hash do arquivo
lDeleta := False;
continue;
end;
if (lDeleta) then continue;
if (not lBranco) and (XML[x] = ' ') then continue;
cXML := cXML+XML[x];
end;
result := cXML;
end;

// http://www.fichtner.net/delphi/md5.delphi.phtml?download=md5.pas

Add Favorites / Bookmark

importar no delicious