LDAP SID ermitteln

[cst_07]

Sorry, ich bekomme es irgendwie nicht gebacken. Bei der Sid kommt irgendwie nichts g'scheids heraus...

Codeschnipsel

Code:

Var 
          i      : integer; 
          sField : String; 
          sSid   : String; 
begin 
  sField := ADOQuery1.FieldByName('objectSid').AsString; 
  for i := 1 to length(sField) do sSid := sSid + IntToHex(Ord(Copy(sField,i,1)[1]),2) + ' '; 
  showmessage(sSid); 
end;

Zum Umwandeln der HexWerte in Strings habe ich folgende Funktion verwendet:

Code:

Function HexToStr(s: String): String;
Var i: Integer;
Begin
  Result:=''; i:=1;
  While i<Length(s) Do Begin
    Result:=Result+Chr(StrToIntDef('$'+Copy(s,i,2),0));
    Inc(i,2);
  End;
End;

Mit deinem Beispiel bekomme ich irgendwelche HexWertke heraus, welche aber leider keinen lesbaren String ergeben, sondern irgendwelche Sonderzeichen. Ich vermute, dass der Rückgabeparameter "AsString" nicht funktioniert

Wie bekomme ich den Wert der ObjectSid in ein ByteArray und dieses dann in ein String umgewandelt?