Obwohl.... habe noch was in meinen Quelltexten gefunden, um aus Hex/Bin Klartext zu machen:
Delphi-Quellcode:
function BinToValidStr(SourceStr : String) : String;
var
ChrCnt : Word;
begin
result := SourceStr;
If (length(result) > 0) then
for ChrCnt := 1 to length(result) do
If (Ord(result[ChrCnt]) < $20) {or (Ord(result[ChrCnt]) > $AF)} then
If not ((Ord(result[ChrCnt]) = $0D) or (Ord(result[ChrCnt]) = $0A)) then
result[ChrCnt] := '.';
end;
Delphi-Quellcode:
s := '00,48,61,6c,6c,6f,00';
s := HexToBinStr(s);
s := BinToValidStr(s); // Ergebnis: '.Hallo.'
BinToValidStr macht dabei nix anderes als einfach Sonderzeichen, die nix auf dem Bildschirm zu tun haben, rauszufiltern und durch Punkte zu ersetzen.