Passwortschutz

[Elite]

Auch wenn ich euch zustimme, dass eine Verschlüsselung der Daten ein falscher Ansatzpunkt ist, habe ich dennoch mal zwei Funktionen ausgegraben, die einen Text zumindest für Anfänger relativ unkenntlich machen. Das ist natürlich kein vergleich zu wirklichen Verschlüsselungsalgorythmen, aber vielleicht kannst du es ja gebrauchen, Tom:

Delphi-Quellcode:

// verschlüsseln
function Encrypt(text: string): string;
const
  adder = 30; // kann beliebig sein, ändert Erscheinungsbild d. verschlüsselt. Textes,
              // muss gleich dem adder in Decrypt sein
var
  loop, counter, key:Integer;
begin
  counter := 0;
  key := Length(Text) mod 10 + 5;
  for loop := 1 to length(text) do
  begin
    Inc(counter, key);
    if (ord(text[loop])+(adder+key+counter)) > 255 then
      result:=result + (chr(ord(text[loop])+(adder+key+counter)-255))
    else
      result:=result + (chr(ord(text[loop])+(adder+key+counter)));
    If Counter > 150 then
    Counter := 0;
  end;
end;


// entschlüsseln
function Decrypt(text: string):string;
const
  adder = 30;
var
  loop, counter, key: Integer;
begin
  counter := 0;
  key := Length(Text) mod 10 + 5;
  for loop := 1 to length(text) do
  begin
    Inc(counter, key);
    if (ord(text[loop])) <= (adder+key+counter) then
      result:=result + (chr(ord(text[loop])-adder-key-counter+255))
    else
      result:=result + (chr(ord(text[loop])-adder-key-counter));
    If Counter > 150 then
      Counter := 0;
  end;
end;