Thema: Delphi not und and Operator

Einzelnen Beitrag anzeigen

Eichhoernchen

Registriert seit: 22. Apr 2004
Ort: Hagen
322 Beiträge
 
Turbo Delphi für Win32
 
#10

Re: not und and Operator

  Alt 12. Okt 2005, 22:04
hmm mist, stimmt,

okay der fehler wäre durch mein Programm nicht aufgefallen weil nur nach der 0ten stelle gefragt wird, hab ich gar nicht dran gedacht, aber gut dann merk ich mir das aufjedenfall mit der variablen und wie es richig geht!
Dankeschön!


Edit: hab noch ne kleine Frage...ich frag einfach nochmal hier, gehört zwar nur noch bedinnt dazu:
Ich bin dabei ein kleines Verschlüsselungsprogramm zu schreiben, was die Daten in den letzten Bits des Farbcodes versteckt.
Ich glaube das nennt man Stenographie.

ein Buchstabe (char) hat ja 8 bits. D.h. ich brauche 3 Pixel. 2x r, g, b und 1x r, g.
Wenn ich nun immer das 0te Bit des Farbwertes von r, g, b löche mit (r := r and $FE ) und dann wenn der das 0te byte des Buchstaben 1 ist dann setze ich (r := r or $01).
D.h.
r1 = 0.Bit
g1 = 1.Bit
b1 = 2.Bit
//Pixel wieder schreiben
r2 = 3.Bit
g2 = 4.Bit
b2 = 5.Bit
//Pixel wieder schreiben
r3 = 6.Bit
g3 = 7.Bit
b3 = b3
//Pixel wieder schreiben

Das müsste doch stimmen oder? Und zurück lesen geht ja einfach andersrum:
0.Bit = r(Pixel1)
1.Bit = g(Pixel1)
....


Ist da nen Denkfehler drin? Ich bekomme es nicht entschlüsselt und ich finde den Fehler nicht.
Jan
  Mit Zitat antworten Zitat