шифрование и дешифрование файла

[Анастасия123456789]

народ помогите кодом а........ мне нужно зашифровать и разшифровывать файл.............. любым способом ...исходники прошу выкладывать или кидать на почту kashtankap31@ngs.ru...... я вот пыталась при помощи ord chr все это делать сделать но вот проблема он правильно не востанавливает...... вот код:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Button1: TButton;
Button2: TButton;
procedure shivv();
procedure deshiv();
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
desh,shiv:textfile;
i,d,k:integer;
strdev,strshiv,strtoshiv:string;
tt:char;

implementation

{$R *.dfm}


procedure TForm1.shivv;
begin
assignfile(shiv,'shiv.txt');
assignfile(desh,'2.txt');
reset(shiv);
rewrite(desh);
while not eof(shiv) do
begin
readln(shiv,strshiv);
for i:=1 to length(strshiv) do
begin
d:=ord(strshiv[i]);
writeln(desh,d);

end;
end;
closefile(shiv);
closefile(desh);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
shivv;
memo1.Lines.LoadFromFile('shiv.txt' );
memo2.Lines.LoadFromFile('2.txt');
end;

procedure TForm1.deshiv;
begin
assignfile(shiv,'3.txt');
assignfile(desh,'2.txt');
rewrite(shiv);
reset(desh);
while not eof(desh) do
begin
readln(desh,strshiv);
d:=strtoint(strshiv);
tt:=chr(d);
// tt:=tt[i]+t[i+1];
write(shiv,tt);
end;

closefile(shiv);
closefile(desh);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
deshiv;
memo3.Lines.LoadFromFile('2.txt');
memo4.Lines.LoadFromFile('3.txt');
end;

end.

[KORN]

http://www.google.ru/search?hl=ru&q=...e&lr=&aq=f&oq=

примеров полно, бери любой... когда уже сами начнем делать свои задачи7