1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

const 
key[1]=0.452;
key[2]=6.930;

for r:=1 to 10 do
begin
c1=edit1.gettextlen * sin(edit2.gettextlen) +key[1] / key[2];

// wenn r ein betimmter wert ist dann folgendes
if (r=4) or (r=9) then
begin
c2=edit3.gettextlen * round(cos(edit2.gettextlen) + key[2]);
end;

end;

// realwert nach string
tmp:=floattostr(c1*c2);

// umwandeln nach hex
for i:=1 to length(tmp) do
begin
schluessel:=schluessel + IntToHex(Ord(zeilentext[i]),2);
end;					

1:

input[x]:=chr(ord(input[x]) + ord(schluessel[u]));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

const 
key[1]=0.452;
key[2]=6.930;

e1 := edit1.gettextlen;
e2 := edit2.gettextlen;
e3 := edit3.gettextlen;

c1=e1 * sin(e2) + key[1] / key[2]; //e1*sin(e2) + konst, abs < e1+konst, diskret
c2=e3 * round(cos(e2) + key[2]); //6,7,8 * e3, diskret, int

// realwert nach string
tmp:=floattostr(c1*c2); //Str, 6,7,8*e3*e1*sin(e2), diskret

// umwandeln nach hex
for i:=1 to length(tmp) do
begin
  schluessel:=schluessel + IntToHex(Ord(zeilentext[i]),2);//Bringt nicht viel Entropie, da sicherlich irgendwo vorhanden
end;					

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:
55:
56:
57:
58:
59:
60:
61:

const key1=0.62;
      key2=1.38;
      key3=5.02;

procedure TForm1.checksumme;
var er:array[1..5] of real;
    i:integer;
    immertext:string;
    z:char;
    fertig:string;
    tmp:string;
    runde:integer;
    maxrunden:integer;
begin
immertext:='';
fertig:='';
schluessel:='';
runde:=1;
maxrunden:=15;

wert[1]  := vorname.GetTextLen +1;
wert[2]  := nachname.GetTextLen +1;
wert[3]  := strasse.GetTextLen +1;
wert[4]  := hausnummer.GetTextLen +1;
wert[5]  := postleitzahl.Value +1;
wert[6]  := wohnort.GetTextLen +1;
wert[7]  := telefon.GetTextLen +1;
wert[8]  := handy.GetTextLen +1;
wert[9]  := status.ItemIndex +1;
wert[10] := kundenart.ItemIndex +1;
wert[11] := memo1.GetTextLen +1;

er[1]:=1; er[2]:=1; er[3]:=1;
er[4]:=1; er[5]:=1;

for runde:=1 to round(maxrunden div 2) do
begin
er[1]:=er[1] + wert[1] * wert[3] / wert[2];
er[2]:=er[2] - abs(round(cos(er[1]) + wert[4] *wert[5]));
er[3]:=er[3] * wert[6] - key2*(wert[7] / wert[8]);
er[4]:=er[4] / sin(wert[9] + wert[10] * wert[11]);

if (runde=4) or (runde=7) then
begin
er[2]:=er[2] + round(sin(er[1]+er[2])) - er[3] / er[4];
er[5]:=sin(er[5] * cos(er[5]) - key1 * er[3] / key3 / wert[2]);
end;
end;

immertext:=floattostr(er[5]) + floattostr(er[2]);
immertext:=immertext + floattostr(wert[2]);

for i:=1 to length(immertext) do
begin
tmp:=tmp+IntToHex(Ord(immertext[i]),2);
end;

schluessel:=tmp;
immertext:='';
fertig:='';
end;					

1:
2:
3:
4:
5:
6:
7:
8:

input:=edit1.text;

for i:=1 to length(input) do
begin
input[i]:=chr(ord(input[i]) xor ord(schluessel[x]));
if x>length(schluessel) then begin x:=1; end;
end;
edit2.text:=input;