Ok das funktioniert genauso wie meine alte funktion.
Ich habe jetzt folgendes gemacht:
Delphi-Quellcode:
function HexStringToStr(d : string):string;
var
I, s: Integer;
n: string;
begin
s:=1;
for I := 1 to length(d) div 2 do
begin
n:= copy(d, s, 2);
Form6.packetinjecttemp.Text:=Form6.packetinjecttemp.Text+chr(StrToInt('$'+d));
s:= I * 2 + 1;
end;
end;
In Basic funktioniert die Function, da habe ich mir das ein wenig abgeschaut:
Code:
Public Function HexToString(sMessage As String) As String
Dim i As Integer
For i = 1 To Len(sMessage) Step 2
HexToString = HexToString & Chr(Int("&h" & Mid(sMessage, i, 2)))
Next
End Function
Vielleicht weiß ja einer was da nicht stimmt.