//字符串转16进制

//字符串转16进制

function StrToHex(src:string): string;

var

  i: integer;

  des: string;

begin

   des := '';

   for i := 1 to Length(src) do

   begin

     des := des + IntToHex(Ord(src[i]),2) + ' ';

   end;

   Result := des;

end;