Gute Algorithmen?

[Delphi Freak]

Hallo,

ich habe gerade angefangen ein Verschlüsselungsprogramm zum Verschlüsseln von Dateien und Texten zu schreiben. Ich habe im Internet u.a. folgende Routinen gefunden. Meine Frage ist nun, ob mir jemand von euch sagen kann, wie diese Algorithmen heißen bzw. wie sicher diese sind.

Routine zur Datei-Verschlüsselung:

Delphi-Quellcode:

procedure FileEncrypt(FileName : string; Key : string);
var
  I : Integer;
  Zeichen : Byte;
  mem : TFileStream;
  keylen : Integer;
  keypos : Integer;
begin
  mem := TFileStream.Create(Filename,fmOpenReadWrite or fmShareExclusive);
  keylen := length(key)-1;
  keypos := 0;
    form2.ProgressBar1.Max:= mem.Size ;
  for I := 1 to mem.Size do
  begin
    if i mod 1000 = 0 then
    form2.ProgressBar1.position := i;


    mem.Position := I;
    mem.Read(Zeichen,1);

    if keypos = keylen then
      begin
        Zeichen := Zeichen-ord(key[keypos]);
        keypos := 0;
      end
    else
      begin
        Zeichen := Zeichen-ord(key[keypos]);
        inc(keypos);
      end;

    Mem.Position := I;
    mem.Write(Zeichen,1);
  end;
  mem.free;
end;

Routine zur Text-Verschlüsselung:

Delphi-Quellcode:

function InternalEncrypt(const S: AnsiString; Key: Word): AnsiString;
var 
  I: Word; 
  Seed: Word;
begin 
  Result := S; 
  Seed := Key;
  form2.ProgressBar1.Max:= Length(Result) ;
  for I := 1 to Length(Result) do
  begin

    form2.ProgressBar1.position := i;

    Result[I] := Char(Byte(Result[I]) xor (Seed shr 8)); 
    Seed := (Byte(Result[I]) + Seed) * Word(C1) + Word(C2) 
  end 
end;