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

procedure TForm1.cmdencrypt(Sender: TObject);
var idcomb,actid:String;
text:array of byte absolute idcomb;
key,verschtext:array[0..64] of byte;
Reg:TRegistry;
i,init:integer;
begin
  idcomb:='Dieser String wird verschlüsselt';
  init:=32541187; //wird später zufallsgeneriert, zum debuggen festgelegt
  RandSeed:=init;
  for i:=0 to (Length(idcomb)) do key[i]:=random(255);
  for i:=0 to (Length(idcomb)) do verschtext[i]:=text[i] xor key[i];
  for i:=0 to (Length(idcomb)) do actid:=actid + Inttohex(verschtext[i],0);
  actid:=actid+inttohex(init,0);
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var actid,text:String;
idcomb:array of byte absolute text;
key,entschidcomb:array[0..64] of byte;
i:integer;
begin
  actid:=AnsiLeftStr(txtid.Text,strtoint(txtkeylength.Text)*2);  //txtkeylength enthält die Länge des Strings und damit die des Schlüssels (OTP!)
  randseed:=Strtoint('$' + AnsiRightStr(txtid.Text,Length(txtid.Text)-2-strtoint(txtkeylength.Text)*2));
  for i:=0 to (strtoint(txtkeylength.Text)) do key[i]:=random(255);
  i:=0; //Der Key wird meiner Meinung nach korrekt entschlüsselt und eingelesen
  //die Hextostr-Umwandlung ist hier wohl nur beim ersten Zeichen korrekt, danach kommen falsche Werte
  While i<Length(actid) do
  Begin
    text:=text+Chr(StrToIntDef('$'+Copy(actid,i,2),0));
    Inc(i,2);
  End;
  for i:=0 to (strtoint(txtkeylength.Text)) do entschidcomb[i]:= key[i] xor idcomb[i] ;
end; //wegen den Problemen bei der Hex-Umwandlung ist auch keine Entschlüsselung möglich                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function verschluesseln(text,key:string):string;
var i:integer;
begin
for i:=1 to length(text) do
  result:=result+char(byte(ord(text[i]) + ord(key[i]))); //Vorrausgesetzt, key und text sind gleichlang.
end;
function ent(text,key:string):string;
var i:integer;
begin
for i:=1 to length(text) do
  result:=result+char(byte(ord(text[i]) - ord(key[i]))); //Vorrausgesetzt, key und text sind gleichlang.
end;                    

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

function xorEnc(s:string;key:byte):string;
var i,l: integer;
begin
  result := s;
  l:=length(s);
  if l > 0 then
    for i := 1 to l do result[i] := char(byte(result[i]) xor key);
end;                    

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

function strXOR(text,key:STRING):STRING;
var I:INTEGER;
var R:STRING;
begin
  R:=text;
  for I:=1 to LENGTH(text) do
    R[I]:=CHAR(BYTE(R[I]) XOR BYTE(key[((I-1) MOD LENGTH(key))+1]));
  Result:=R;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Beispiel:

Text: ABCDEFGHIJ
Key : 123456

Verschlüsselung
Text mit Wiederholung von Key:

ABCDEFGHIJ
   XOR
1234561234                    

1:
2:
3:
4:
5:
6:

function TForm1.strXOR(text,key:String):String;
var i: integer;
begin
  result := text;
  for i := 1 to length(text) do result[i] := char(byte(result[i]) xor byte(key[i]));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.encryptClick(Sender: TObject);
var winid,idcomb,actid,key,code:String;
Reg:TRegistry;
i,tick:integer;
begin
  idcomb:='Text zum Verschlüsseln';
  tick:=gettickcount;
  RandSeed:=tick;
  key:=idcomb; //braucht man die Längenzuweisung? Bzw. warum gibts in der nächsten Zeile bei key[i] nen Fehler, wenn ich keine Längenzuweisung mache?
  for i:=1 to (Length(key)) do key[i]:=chr(random(255));
  code:=strxor(idcomb,key);
  for i:=1 to (Length(code)) do actid:=actid+inttohex(byte(code[i]),2);
  actid:=actid+inttohex(tick,2);
end;                    

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

procedure TForm1.decryptClick(Sender: TObject);
var actid,code,key:String;
i,keylength:integer;
begin
  keylength:=strtoint(txtkeylength.text); //hier muss die Key bzw. Text-Länge übergeben werden
  randseed:=strtoint('$'+copy(txtid.Text,keylength*2+1,15));
  Setlength(key,keylength); //auch hier muss ich ne Längenzuweisung machen, sonst gibts in der nächsten Zeile bei Key[i] nen Fehler!?
  for i:=1 to keylength do key[i]:=chr(random(255));
  i:=1;
  While i<keylength*2 do
  Begin
    code:=code+Chr(StrToIntDef('$'+Copy(txtid.text,i,2),0));
    Inc(i,2);
  End;
  actid:=strxor(code,key);
end;                    

1:
2:

Mathematikwettbewerb
HalloHalloHalloHallo