|
Registriert seit: 31. Aug 2005
Ort: Dortmund, Germany
388 Beiträge
Delphi 2006 Enterprise
|
Re: STEGANOGRAPHIE
4. Mär 2007, 13:55
Hi!
Also, hab' ich das richtig verstanden:
Ein String (z.B. "as koer fdk erkll fiekr") wird in gerade und ungerade Stücke aufgeteilt und dann ungerade in 1 und gerade in 0 umgewandelt?
Dann solltest du mal nach "Explode" suchen. Damit kann man einen String via Trennzeichen (hier das Leerzeichen) in ein Array schreiben lassen. Dann musst du nur noch die länge der einzelnen Elemente prüfen -> if Odd(Length(Strings[i])) then ... else ... und jeweils acht Bits in ein Byte umwandeln...
Umgekehrt könntest du die einelnen Zeichen in Bits umwandeln und dann per Random() ungerade/gerade Anzahlen an Zufallsbuchstaben generieren (dann sind nicht immer nur 3 Buchstaben für 0-Bits sondern auch mal 5, 7 oder 9...)
Viele Grüße,
Chris
|