also eine komplette lösung will ich dir eigentlich nicht hinschreiben, aber hier mal etwas was dir die Richtung zeigen könnte
Nehmen wir an du hast ein dreistelliges Passwort "ABC" dann zerlegst du es in seine Chars und verschlüsselst via Xor
eine Wirklich schlechte (Weil langsame) und nicht für variable PW's geeignete Lösung sei etwa :
Delphi-Quellcode:
var i,j:Integer
bi:TBitmap;
r,g,b:Byte;
begin
.. Init
for i := 0
to bi.width -1
do
for j := 0
to bi.height -1
do begin
r := getRvalue(bi.canvas.pixels[i,j]);
g := getgvalue(bi.canvas.pixels[i,j]);
b := getbvalue(bi.canvas.pixels[i,j]);
r := r
Xor 65;
// 65 ist der Ascii Code von "A"
g := g
Xor 66;
// 66 ist der Ascii Code von "B"
b := b
Xor 67;
// 67 ist der Ascii Code von "C"
bi.canvas.pixels[i,j] :=
rgb(r,g,b);
end;
.. Freigeben
end;
ich hoffe das hilft dir auf die sprünge, letzendes must da aber noch einiges Optimieren das es nachher brauchbar geht..