Delphi: String To Hex/ Hex To Str

[Larsi]

hi,
kann mir jemand dafür n jeweils n anwendungsbeispiel geben:

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;

Wäre echt total nett :)




MFG Lars Wiltfang

[sirius]

Ein Hex-Editor wäre das erste.
Oder auch das RTF-Format. Da werden bilder in Hexform gespeichert.
Tja, ansonsten.. ein Disassembler

[Larsi]

sry wenn ichs falsch formuliert habe, aber ich möchte ein bisschen code wie ich die funktion verwenden kann.

[Gehstock]

Ist das Ernst Gemeint ?

Delphi-Quellcode:

Edit1.Text := '48616C6C6F206963682062696E2065696E2054657874';
Edit2.Text := StringToHexStr(Edit1.Text);

und

Delphi-Quellcode:

Edit1.Text := 'Hallo ich bin ein Text';
Edit2.Text := HexStrToString(Edit1.Text);

[fLaSh11]

Ein weiteres Beispiel wäre ein Zahlenkonverter (Dezimal <-> Binär <-> Hexadezimal <-> ...)


//Edit:

Zitat:

Zitat von Gehstock

Ist das Ernst Gemeint ?

Nein. Wenn dann ernst! :P

[Larsi]

dankeschön :)