Forum: Multimedia
Delphi
by Neutral General,
28. Apr 2009
Also falls du die Methode von corpsman verwenden willst, ist hier eine schnellere:
procedure XorBitmapData(ABitmap: TBitmap; Key: Byte);
var p: PRGBQuad;
i,j: Integer;
begin
ABitmap.Pixelformat := pf32Bit;
for i := 0 to ABitmap.Height-1 do
begin
p := ABitmap.Scanline; //(Kann auch Scanline(i) sein... weiß grad nicht)
Forum: Multimedia
Delphi
by Neutral General,
28. Apr 2009
Hi,
Sollen die Bilder nur falsch aussehen, oder soll die ganze Datei verschlüsselt werden (nicht mehr darstellbar) ?
Im 2. Fall wäre es etwas einfacher (finde ich).
Mit corpsmans Methode ver- und entschlüsselst du. Beim ersten mal wird verschlüsselt, beim 2. mal wird entschlüsselt.