Wenn der Code nicht verschlüsselt ist, dann speicher den String (der mit HexToBinStr umgewandelt wurde) doch einfach mal in eine Datei und öffne diese mit UltraEdit oder ähnlichem.
Ach ja, hier noch der umgekehrte Weg:
Delphi-Quellcode:
function BinToHexStr(SourceStr : String; Separator : String = ',') : String;
var
ChrCnt : Word;
begin
result := '';
If (length(SourceStr) > 0) then
for ChrCnt := 1 to length(SourceStr) do
begin
result := result + LowerCase(Format('%0:2.2x', [Ord(SourceStr[ChrCnt])]));
If not (ChrCnt = length(SourceStr)) then
result := result + Separator;
end;
end;
Delphi-Quellcode:
s := StringOfChar(#0, $7FFF);
slen := ReadBinaryData('Serial', s[1], length(s));
s := Copy(s, 1, slen);
s := BinToHexStr(s);