Image Canvas Pixel in Memo

[XXcD]

Hallo,
ich versuche gerade ein Image pixel für pixel abzuarbeiten und die Fraben als Zeichen in ein Memofeld einzufügen.
Nur leider will meine Prozedur nicht richtig funktionieren.

Eigentlich sollte das rauskommen: Das ist ein Testtext.
Es kommt aber das heraus: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

Das ist die Prozedure:

Delphi-Quellcode:

procedure TForm15.Button2Click(Sender: TObject);
var
color: TColor;
B, Y, X: Integer;
hex, s, t:string;
begin
for Y := 0 to Image1.Height do
begin
for X := 0 to Image1.Width do
begin
color:=image1.Canvas.Pixels[X,Y];
B := GetBValue(color);
hex:=IntToHex(B, 2);
t:=Chr(StrToInt('$'+hex));
s:=s+t;
end;
Memo1.Lines.add(s);
s:='';
end;
end;

Vielleicht weiß ja einer was ich falsch gemacht habe, ich bedanke mich schonml für die Hilfe.

[Medium]

Anmerkungen, die das Problem wahrscheinlich nicht betreffen, aber dennoch erwähnenswert sind:
- Lass die Schleifen bis Image1.Width-1 (gleiches bei Height) laufen. Im Moment rauscht du immer einen Pixel zu weit.
- Die Wursterei mit Hex ist überflüssig. t := chr(B); mehr brauchst du nicht. Als Einzeiler: "s := s + chr(GetBValue(Image1.Canvas.Pixels[X, Y]));"

Was das Problem selbst angeht, so würde es helfen, wenn du dir die Zahlenwerte von B mal testweise mit ausgeben lässt. 'ÿ' ist wenn ich nicht irre #254 oder #255. Wenn B andere Werte hat, liegts vermutlich doch irgendwie an der Hex-Fummelei, wobei ich um die Uhrzeit auf den ersten Blick nicht erkenne warum (mal aussen vor gelassen, dass es unnötig ist).

Auch würde mich das zugrunde liegende Bild mal interessieren!

[mkinzler]

Es scheint eine Art Verschlüsselung ähnlich Steganograpie zu sein. Wobei es in diesem Fall nicht besonders sicher ist, da der text nicht im Bild versteckt , sondern das Bild ist.

[soulies]

hoi,

vllt. brauchst du ja auch die anderen Farbanteile (R + G) dazu, und
so zusagen aus der Summer aller wird der entsprechende Hex Wert gebildet
der wiederum einem Char entspricht.

cya

[XXcD]

Hmm die Tips waren schon nicht schlecht habe das jetzt nen wenig verbessert.
Aber das Problem ist noch nicht gelöst.
Und das ganze ist im moment zu Testzwecken, in dem Bild sollen später ganze Datenpakete gespeichert werden.
Wenn ich per Showmessage den jeweiligen Chr ausgeben lasse dann funktioniert es.

Delphi-Quellcode:

procedure TForm15.Button2Click(Sender: TObject);
var
color: TColor;
B, Y, X: Integer;
hex, s, t:string;
begin
for Y := 0 to Image1.Height-1 do
begin
for X := 0 to Image1.Width-1 do
begin
color:=image1.Canvas.Pixels[X,Y];
B := GetBValue(color);
t:=Chr(B);
--->>> Showmessage(t);
s:=s+t;
end;
Memo1.Lines.add(s);
s:='';
end;
end;

Mit Showmessage wird immer der richtige Chr angezeigt, aber ich muss das ganze ja in den string kriegen und das will nicht klappen.

[Medium]

Du initialisierst s nicht. Ich bin gerade unsicher, ob das für lokale Strings nötig ist, aber setz vor deine Schleifen mal ein "s := '';". Ansonsten ist das Zusammenbauen mit "s := s + t" an sich nicht falsch, wenn auch nicht gerade speicherfreundlich.

Edit: Und gewöhne dir in deinem eigenen Interesse eine Codeformatierung an. Erhöht die Lesbarkeit gewaltig!

Delphi-Quellcode:

procedure TForm15.Button2Click(Sender: TObject);
var
  color: TColor;
  B, Y, X: Integer;
  hex, s, t:string;
begin
  for Y := 0 to Image1.Height-1 do
  begin
    s := '';
    for X := 0 to Image1.Width-1 do
    begin
      color := image1.Canvas.Pixels[X, Y];
      B := GetBValue(color);
      t := Chr(B);
      //Showmessage(t);
      s := s + t;
    end;
    Memo1.Lines.add(s);
  end;
end;

[Muetze1]

Zitat:

Zitat von Medium

Du initialisierst s nicht. Ich bin gerade unsicher, ob das für lokale Strings nötig ist, aber setz vor deine Schleifen mal ein "s := '';". Ansonsten ist das Zusammenbauen mit "s := s + t" an sich nicht falsch, wenn auch nicht gerade speicherfreundlich.

Nein, nicht nötig bei lokalen Variablen vom Typ String, da Strings ja verwaltete Resourcen sind.

PS: Müsste es bei deiner Sig nicht "to breakfast" heißen?

[Medium]

Mh, dann ists seltsam :gruebel:

Zitat:

Zitat von Muetze1

PS: Müsste es bei deiner Sig nicht "to breakfast" heißen?

Nope :)

[shmia]

Hmm, es fehlt noch etwas an der richtigen Strategie für Steganographie.
Also man darf/sollte ja nur das niederwertigste Bit einer Farbe verwenden, andernfalls fällt es auf.
Pro Pixel sind es drei Grundfarben, also wäre 3 Bit möglich.
Man könnte aus den 3 Bits ein Nutzdatenbit über einen Mehrheitsentscheid machen.
Nutzbit ist dann True, wenn mehr als ein Farbbit gesetzt ist.
R|G|B Nutzbit
0|0|0 => 0
0|1|0 => 0
1|1|0 => 1
....

Durch dieses Verfahren werden die Daten verschleiert, so dass ein potentieller Lauscher nicht gleich weiss, wie die Nutzdaten codiert sind.

[XXcD]

Hmm ja das soll ja erstmal keine Verschlüsselung sein sondern nur Daten sollen in dem Bild sein.
Und mit den Tips hat es leider noch nicht hingehauen.

[shmia]

Image.Width und Image.Height geben nicht immer die wirklich Höhe und Breite des Bitmaps wieder.
Man muss Image1.Picture.Width und Image1.Picture.Height verwenden!

PS: ich hab mit jetzt eine Stegano-Klasse programmiert, die ich demnächst als Freeware rausgebe.

[Medium]

Häng doch am besten mal dein Projekt und das Testbild an. Beim reinen Draufgucken kann ich so erstmal keinen Fehler mehr feststellen, der zu genanntem Effekt führt.

[XXcD]

Sorry ich konnte noch nicht früher antworten mein Monitor streikt gerade,
aber hier habe ich mal das Projekt angehängt. Ich hoffe mal mir kann dann einer sagen
warum das nicht funktioniert.

[Luckie]

Zitat:

Zitat von XXcD

Hallo,
ich versuche gerade ein Image pixel für pixel abzuarbeiten und die Fraben als Zeichen in ein Memofeld einzufügen.
Nur leider will meine Prozedur nicht richtig funktionieren.

Eigentlich sollte das rauskommen: Das ist ein Testtext.
Es kommt aber das heraus: ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

Sagt mal Jungs, wo kauft ihr eure Glaskugeln? Wie kommt man bei der Problembeschreibung auf Steganographie?

[Medium]

@Luckie: Bei Text in Bildern "vergurkst" kann man schon in die Richtung denken, aber der TE ließ an sich nix in diese Richtung verlauten, da stimme ich zu :)

@XXcD: Du hast in dem rar ein anderes Bild genommen, als in deiner Ausgangsfrage beschrieben, und hierbei ist der Effekt, dass nachher nichts im Memo steht. Das liegt daran, dass der erste Pixel im Bild komplett schwarz ist, also am Anfang gleich ein chr(0) steht. #0 ist aber bei PChar (was die Win-API intern nutzt) das Zeichen für "Ende des Strings", und somit ist klar warum der restliche Text "Testex" nicht im Memo landet, obwohl er im zusammengesetzten String drin steht.

Lösung: Du musst entweder darauf achten, dass in den Bildern nur Blauwerte > 31 auftauchen, oder vor dem Anhängen an den String diese ausschließen da es nicht darstellbare Steuerzeichen mit unterschiedlichen Effekten sind. Da aber wie gesagt nicht das gleiche Bild wie o.g. im Archiv ist, kann man nicht sagen was genau da schief gegangen ist.