1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

var
  Form1: TForm1;
  Bild: TBitMap;

implementation

{$R *.DFM}

procedure BmpCodeDecode(Bmp: TBitmap; Code: String);
  function XorColor(Col: TColor; X: Byte): TColor;
  var
    R, G, B: Byte;
  begin
    R:= Byte(ColorToRGB(Col)) xor X;
    G:= Byte(ColorToRGB(Col) shr 8) xor X;
    B:= Byte(ColorToRGB(Col) shr 16) xor X;
    Result := (B shl 16) + (G shl 8) + R;
  end;
var
  x, y, k: Word;
begin
  k := 1;
  for x := 0 to Bmp.Width - 1 do for y := 0 to Bmp.Height - 1 do begin
    with Bmp do begin
      Canvas.Pixels[x, y] := XorColor(Canvas.Pixels[x, y], (x * Ord(Code[k])));
      Canvas.Pixels[x, y] := XorColor(Canvas.Pixels[x, y], (y * Ord(Code[k])));
      Canvas.Pixels[x, y] := XorColor(Canvas.Pixels[x, y], (Sqr(Ord(Code[k]))));
      Inc(k); if k > Length(Code) then k := 1;
    end;
  end;
end; {Popov}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bild := TBitMap.Create;
  Bild.LoadFromFile('c:\100.bmp'); // ANDERES BILD ANGEBEN
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bild.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Kodierung: String;
begin
  Kodierung := 'Das ist der Text mit dem man das Bild kodiert';
  Canvas.Draw(0, 0, Bild);
  BmpCodeDecode(Bild, Kodierung);
  Canvas.Draw(0, 0, Bild);
end;

end.