Código Delphi [-] function StringToHex(S: String): string; var I: Integer; begin Result:= ''; for I := 1 to length (S) do Result:= Result + IntToHex(ord(S[i]),2); end;
function StringToHex(S: String): string; var I: Integer; begin Result:= ''; for I := 1 to length (S) do Result:= Result + IntToHex(ord(S[i]),2); end;