hi Jungs.

Also ich hab folgenden Binärwert als .reg vorliegen:

5f,0e,ad,ff,d4,44,89,6c,96,6e,06,26,b2,f6,52,04,21 ,bc,f6,d6,5c,0a,\
25,37,be,70,98,e7,d9,45,8a

Den möchte ich gerne aus der Delphi Anwendung in die Registry schreiben.

Doch wie kann ich den Als Binärwert in die Reg schreiben ? Also in der Registry muss der dann genauso aussehen.

Villeicht kann mir jemand ein Beispielcode geben ?

Danke !

mfg
Predator

Hallo Predator;
Schau dir mal die Funktionen "WriteBinaryData (Methode von TRegistry)" und "ReadBinaryData (Methode von TRegistry)" aus der Unit Registry an.
bye
Claus

uch hat ich vergessen, die habe ich mir schon angeschaut aber wenn ich z.B.:
einen string habe s := 'hier die binäre werte';

und dann WriteBinaryData('ID', s, length(s));

schreibt er sie nicht so sonder macht andere Zahlen draus.

Also deswegen frage ich . Komme da einfach net weiter und beim Beispielcode könnte ich mich da reindenken deswegen.

Danke.

Hallo Predator,
das verstehe ich nicht ganz. Wenn Du zum Beispiel in einem String einfach ein "A" stehen hättest, dann wird ein Hexa x'41' oder dezimal eine 65 in das Array geschrieben. Was steht dann bei Dir?
bye
Claus

also nehmen wir von meinem Binären Code die ersten 2 Stellen: 5f !!!

Daraus wird dann in die Registry geschrieben: 64 und bei dem 0e wird 11 geschrieben.

Da stimmt doch was net.

Kannst du nichtmal ein Beispiel posten ? Also der String den ich oben gepostet hab ist der original Binär String aus der Registry. Nur ich will den jetzt aus Delphi in die reg schreiben.

Danke.

Dann probiers mal hiermit:

zusammenfalten · markieren

Delphi-Quellcode:

function HexToBinStr(HexStr : string) : String;
const
  ValidHexChars : set Of Char = ['0'..'9', 'A'..'F', 'a'..'f'];
  Convert: array['0'..'f'] of SmallInt =
    ( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15);
var
  HexTmpStr : String;
  HexSize : Integer;
  HexPos : Integer;
begin
  result := '';
  HexTmpStr := HexStr + ' ';
  HexSize := length(HexTmpStr);
  HexPos := 0;
  while ((HexSize - HexPos) > 1) do
    begin
      while not (HexTmpStr[HexPos+1] in ValidHexChars) do
        begin
          Inc(HexPos);
          If ((HexSize - HexPos) < 1) then
            Break;
        end;
      If ((HexSize - HexPos) < 2) then
        Break;

      result := result + Char((Convert[HexTmpStr[HexPos+1]] shl 4) + Convert[HexTmpStr[HexPos+2]]);
      Inc(HexPos, 2);
    end;
end;

markieren

Delphi-Quellcode:

s := '0a,1d,4f,7c';
s := HexToBinStr(s);
WriteBinaryData('ID', s[1], length(s));

hmm geht irgendwie auch net, sind wieder andere Werte und die Kommas fehlen.

zusammenfalten · markieren

Delphi-Quellcode:

var
  ccd: TRegistry;
  s: String;
  Buffer: Byte;
begin
   ccd := TRegistry.Create;
   ccd.RootKey := HKEY_LOCAL_MACHINE;
   ccd.OpenKey('\SOFTWARE\Elaborate Bytes\CloneCD\CDKey', true);
   s := '5f,0e,ad,ff,d4,44,89,6c,96,6e,06,26,b2,f6,52,04,21,bc,f6,d6,5c,0a,25,37,be,70,98,e7,d9,45,8a';
   s := HextoBinStr(s);
   ccd.WriteBinaryData('Serial', s, length(s));
   ccd.Free;

oder mach ich was falsch ?

Habs raus, alles richtig, bis auf eine Zeile:
WriteBinaryData('Serial', s[1], length(s)); Man muss den ersten Char eines Strings angeben, anstatt nur den Stringnamen

juhuu Danke vielen Dank.

Jetzt kanns weitergehen mit der Entwicklung juhuuu.

cu
Predator

eine frage hätte ich noch.

Kann man aus sonem hex Code bzw. Binär Code herausfinden wie der Original Code heißt ?

also mein Kumpel codet an dieser Routine und das ist eine BenutzerID die in hex umgewandelt wird und binär in die reg geschrieben wird.

Wie kann ich das machen, das aus diesem Hex wieder Klartext wird ? Danke.

cu
Predator