StrToHex Ersatz

[Nightshade]

Delphi-Quellcode:

function StringToHex(s:string) : string;
var t : integer;
begin
  result := '';
  for t := 1 to length(s) do begin
    if t = length(s) then
      result := result + intToStr(ord(s[t]))
    else
      result := result + IntToStr(ord(s[t])) + ' ';
  end;
end;