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:

// Verschlüssel ein Passwort
function TfMain.PasswortVerschluesseln(unverpass:string):string;
var einzel,verpass:string;
    i,einzelzahl:integer;
    zeichen: char;
begin
  verpass:='';//initialisieren
  for i := 1 to length(unverpass) do
  begin
    einzel:=unverpass;
    zeichen:=einzel[i]; //einzelnes zeichen auswählen und in char8
    einzelzahl:=ord(zeichen)+funktionswert(i*i); //zeichen verschluesseln
    while einzelzahl > 255 do einzelzahl := einzelzahl - 224; //überlauf verhindern
    while einzelzahl < 32  do einzelzahl := einzelzahl + 224; //   "
    verpass:=verpass + chr(einzelzahl); //verschlüsseltes zeichen anhängen
  end;
  result:=verpass;
end;


// Entschlüsselt ein passwort
function tfMain.passwortentschluesseln(verpass:string):string;
var unverpass:string;
    i,einzelzahl:integer;
    zeichen:char;
begin
  unverpass:='';//initialisieren
  for i := 1 to length(verpass) do
  begin
    zeichen:=verpass[i]; //einzelnes zeichen auswählen
    einzelzahl:=ord(zeichen)-funktionswert(i*i); //zeichen entschluesseln
    while einzelzahl > 255 do einzelzahl := einzelzahl - 224; //überlauf verhindern
    while einzelzahl < 32  do einzelzahl := einzelzahl + 224; //   "
   unverpass:=unverpass + chr(einzelzahl); //entschlüsseltes zeichen anhängen
  end;
  result:=unverpass;
end;

function TfMain.funktionswert(x:integer):integer;
begin
  result:= 2*x*x+5*x+3 //konstante zahl per funktion y=2x²+5x+3 bestimmen
end;