Шифрование текстового файла на Delphi

[вася радугов]

Помогите написать программу:
вводятся данные ФИО, Дата рождения,Образование. Затем при нажатии на кнопку сохранить эти данные записываются в файл. При записи в файл все введённые данные шифруются алгоритмом простой перестановки, замены или xor(без разницы). При открытии файла все данные должны декодироваться.

[Stilet]

А что именно не получается?
Вот когда-то тут писал это:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 procedure OpenSaveListAndXOR(filea:string;list:Tstrings;XORkey:byte;Open:boolean=true);

implementation

{$R *.dfm}
  //********* PROCEDURE**********
procedure OpenSaveListAndXOR(filea:string;list:Tstrings;XORkey:byte;Open:boolean=true);
var sf:TFileStream;
 i:integer;b:byte;  s:string;
begin
if not open then begin
    sf:=TFileStream.Create(filea,fmcreate);
     //********* FOR ******************
     for  i:=0  to list.Count-1  do
     begin
       b:=byte(list.CommaText[i]) xor XORkey;
       sf.Write(b,sizeof(i));
     end;
     //******* END FOR ****************{}
end else begin
   sf:=TFileStream.Create(filea,fmOpenRead);
     //********* FOR ******************
     for  i:=0  to sf.Size  do
     begin
       sf.Read(b,sizeof(b));
       s:=s+chr(b xor XORkey);
       //b:=byte(list.Text[i]) xor XORkey;
//       sf.Write(b,sizeof(i));
     end;
     //******* END FOR ****************{}
end;
sf.Free;
end;
//********* END PROCEDURE******* {}


procedure TForm1.Button1Click(Sender: TObject);

begin
OpenSaveListAndXOR('c:\temp\qq',ListBox1.Items,4,false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
OpenSaveListAndXOR('c:\temp\qq',ListBox1.Items,4);
end;

end.

Шифровать файл XORом должна

[вася радугов]

извините, не очень силен в программировании, а в этой строке мы выбираем файл ,который будем шифровать?

OpenSaveListAndXOR('c:\temp\qq',ListBox1.Items,4);

[Stilet]

Да. Если писать

OpenSaveListAndXOR('c:\temp\qq',ListBox1.Items,4,false);

то файл будет создан из листбокса и защифрован ключем 4
Если же false заменить на true или совсем не писать, файл будет считан и расшифрован.
Одна только ремарка: там где файл расшифровывается в переменку S в конце за циклом нужно что-то типа:

List.Text:=s;

Ато получается что считка в никуда происходит. Прога просто видать недописанная, я ее из сусеков наскреб.
Сюда же: list.CommaText замени на list.Tеxt от греха подальше.

[вася радугов]

а можно сделать шифрование готового текстового файла?

[Stilet]

Почему нет?

   s:='';
   With TFileStream.Create(filea,fmOpenRead) do begin
     SetLength(s,size);
     Read(s[1],Length(s));
     for  i:=1  to length(s)  do s[i]:=chr(s[i] xor XORkey);
     free;
   end;

   with TFileStream.Create(filea,fmcreate) do begin
       Write(s[1],length(s));
     free;
   end;
   s:='';

Учитывая что S стоит определить как AnsiString;