Text-Verschlüsselungsprogramm

[Jens Schumann]

Hallo Ultimator,
Du musst mit Streams arbeiten.
z.B.

Delphi-Quellcode:

procedure TFormCrypt.SaveCrypt(const Filename: TFilename);
var
  MStream    : TMemoryStream;
  FileStream : TFilestream;
  aByte      : Byte;
begin
  MStream:=TMemoryStream.Create;
  FileStream:=TFilestream.Create(Filename,fmCreate);
  Try
    memText.Lines.SaveToStream(MStream); // Memo in einen MemoryStream speichern
    MStream.Position:=0;
    While MStream.Position<MStream.Size do
      begin
      MStream.Read(aByte,SizeOf(Byte));
      aByte:=aByte xor iKey; // Verschlüsselung
      FileStream.Write(aByte,SizeOf(Byte));
      end;
  Finally
    MStream.Free;
    Filestream.Free;
    end;
end;

procedure TFormCrypt.LoadCrypt(const Filename: TFilename);
var
  MStream    : TMemoryStream;
  FileStream : TFilestream;
  aByte      : Byte;
begin
  MStream:=TMemoryStream.Create;
  FileStream:=TFilestream.Create(Filename,fmOpenRead);
  Try
    FileStream.Position:=0;
    While FileStream.Position<FileStream.Size do
      begin
      FileStream.Read(aByte,SizeOf(Byte));
      aByte:=aByte xor iKey; // Entschlüsselung
      MStream.Write(aByte,SizeOf(Byte));
      end;
    MStream.Position:=0;
    memText.Lines.LoadFromStream(MStream);
  Finally
    MStream.Free;
    Filestream.Free;
    end;
end;

Achtung: Es handelt sich hierbei um eine extrem primitive Verschlüsselung. Die Verschlüsselung hat auch nur Anschauungscharakter. Habe ich mal für eine AG verwendet