Ich habe gerade einen kleinen Algorithmus zur Passwortverschlüsselung geschrieben. Er verschlüsselt das Passwort mit sich selbst in einem XOR-Verfahren:
Delphi-Quellcode:
function encodepassword(password:string):string;
var
i:integer;
begin
result:='';
for i:=1 to length(password) do
result:=result+char(byte(password[i]) xor byte(password[length(password)+1-i]));
end;
function passwordisok(password,encodedpassword:string):boolean;
var
i:integer;
begin
result:=true;
for i:=1 to length(password) do
result:=result and (encodedpassword[i]=char(byte(password[i]) xor byte(password[length(password)+1-i])));
end;
In einem anderen selbstgeschriebenen Programm muss das Passwort mit ENCODEPASSWORD verschlüsselt werden. Das was rauskommt dann im Programm als Konstante speichern:
password='encodepassword('abc')'
Dann im Programm folgend verwenden:
Delphi-Quellcode:
if passwordisok(edit1.text,password) then
passwortok
else
passwortfalsch;