تبدیل یک عبارت کاراکتری به Hex

[ali_abbasi22145]

سلام
من از دلفی 7 استفاده می کنم.
1.دستورالعملی می خواهم که عبارت کاراکتری مثلا: 'Ali' و 'علی عباسی ' و'123dfhd' به 32Hex مانند مثال زیر است تبدیل کند:
00000000000000000000001CBE991A14
2.هر کاراکتری معادل کد اسکی (ASCII) دارد آیا حروف فارسی یونیکد هم کداسکی دارند؟
من تابعی می خواهم که عبارت 'علی عباسی ' را به یک عدد تبدیل کند وتابع دیگری دوبار آن عدد را به 'علی عباسی ' برگرداند.

[Mask]

بله کلیه حروف فارسی و انگلیسی کد اسکی دارند.
لطفا سرچ کنید. چندین بار درباره این موضوع در سایت توضیح داده شده.

[jeer_jeerak]

فکر کنم واسه vcf می خوای ؟

[بهروز عباسی]

{Convert a string to a hex string, obviously twice as long. Rudementary encryption, good for passing funny characters as parameters in a url}
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;
{Reverse of StringToHex(), assuming even size of 2 hex digits per represented character}
function HexToString(H: String): String;
var I: Integer;
begin
Result:= '';
for I := 1 to length (H) div 2 do
Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
end;
{Test}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=StringtoHex(Edit1.Text) ;
Edit3.Text:=HexToString(Edit2.Text)
end;