Verschluesselung by Tigerhead

[SleepyMaster]

Das Prinzip der Verschlüsselung ist zu "offen"/einfach oder keine Ahnung wie man das Ausdrücken soll

Delphi-Quellcode:

function EnCrypt(var Text, Passwort: string): string;
const
  KA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i: integer;
  j: integer;
begin
  Text := uppercase(Text);
  Passwort := uppercase(Passwort);
  result := '';
  j := 1;
  for i :=1 to Length(Text) do
    begin
    result := result + KA[((integer(Text[i])-integer('A')) + (integer(Passwort[j])-integer('A'))+1)];
    if j < Length(Text) then
      j:=j+1
    else
      j := 1;
    end;
end;

function DeCrypt(var Text, Passwort: string): string;
const
  KA = 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ';
var
  i: integer;
  j: integer;
begin
  Text := uppercase(Text);
  Passwort := uppercase(Passwort);
  result := '';
  j := 1;
  for i :=1 to Length(Text) do
    begin
    result := result + KA[(integer(Text[i])-integer('A')) - (integer(Passwort[j])-integer('A'))+1+ 26];
    if j < Length(Text) then
      j:=j+1
    else
      j := 1;
    end;
end;