Delphi-Quellcode:
{**************************************************************************
* NAME: StringToHexStr
* DESC: Konvertiert einen String in eine hexadezimale Darstellung
*************************************************************************}
function StringToHexStr(const value:string):string;
begin
SetLength(Result, Length(value)*2); // es wird doppelter Platz benötigt
if Length(value) > 0 then
BinToHex(PChar(value), PChar(Result), Length(value));
end;
{**************************************************************************
* NAME: HexStrToString
* DESC: Dekodiert einen hexadezimalen String
*************************************************************************}
function HexStrToString(const value:string):string;
begin
SetLength(Result, Length(value) div 2); // es wird halber Platz benötigt
if Length(value) > 0 then
HexToBin(PChar(value), PChar(Result), Length(value));
end;
Das sollte dir vllt. helfen.
Ach du möchtest nur die Dezimalen des HEX...dann nimm Ord(Char)...