Ошибка. Берём hex-код, шифруем hex-код, собираем всё в файл.

[Poltish]

Всем добрый день Вопрос в следующем:
или лыжи не едут или у меня ещё мало опыта.
В общем решил написать крутой-супер-мега-шифратор файлов. Ну так, для практики. Проблема в том, что вроде бы всё сделал, а ничерта не работает

Вот код проекта:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, sEdit, sGroupBox, sButton, sMemo,
  ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    OpenDialog1: TOpenDialog;
    GroupBox1: TGroupBox;
    RichEdit1: TRichEdit;
    Label1: TLabel;
    Label3: TLabel;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CrKey: integer;
implementation

uses Unit2;

{$R *.dfm}
function SaveBinArrayToFile(AFileName:string; ABuf:array of byte):boolean;
var
  fs:TFileStream;
  n:integer;
begin

  fs:=TFileStream.Create(AFileName, fmCreate {fmOpenWrite});
  try
    fs.Position := 0;
    n := Length(ABuf);
    fs.Write(ABuf, n);
  finally
    fs.Free;
  end;
end;

//Алгоримт шифрования XOR
function CryptStr(Str: String): String;
var i: Integer;
    s: string;
begin
  for i:= 1 to Length(Str) do
    s := s + Chr((Ord(Str[i]) xor CrKey) mod 256);
  Result := s;
End;

// Открытие файла
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = true then
begin
form1.Edit1.Text:= Opendialog1.FileName;
form1.RichEdit1.Lines.Add('Файл '+ExtractFIleName(OpenDialog1.FileName)+' был открыт в '+ timetostr(time)+'.');
form1.RichEdit1.Lines.Add('');
end;
CopyFile (PChar(Opendialog1.FileName), PChar(OpenDialog1.FileName + '.bak'), true);
if FileExists(OpenDIalog1.FileName) then  begin form1.RichEdit1.Lines.Add('Бэкап файла создан в '+ timetostr(time)); form1.RichEdit1.Lines.Add(''); end;
end;
//Шифрование файла
procedure TForm1.Button2Click(Sender: TObject);
var
f: file;
arr, arr1, buff: array of Byte;
Size, t, i: integer;

begin
if form1.Edit2.Text <> '' then
begin
AssignFile (f, OpenDialog1.FileName);
Reset (f,1);
Size:= Filesize(f);
SetLength(Arr,Size);
BlockRead(f,Arr[0],Size);
CloseFile(f);

CrKey:= strtoint(form1.Edit2.Text);

for t:= 0 to length (Arr) do
begin
    CryptStr (char(Arr[t]));
end;


if not SaveDialog1.Execute then exit;
SaveBinArrayToFile(SaveDialog1.FileName, Arr);

end else ShowMessage ('Введите пароль и повторите операцию!');
end;



end.

Открываю, читаю файл. Записываю всё в массив. Далее шифрую массив XOR-алгоритмом и массив (по-идее уже зашифрованный) перевожу снова в файл. Всё бы хорошо, да что там, всё даже работает. Только вот не правильно. Сохраняет тот же файл, который я открывал. Хотя массив вроде бы защифровал. В чём проблема, подскажите?

[Poltish]

Не CryptStr (char(Arr[t]));
А Arr[t]:= CryptStr (char(Arr[t]));
ну собственно всё и заработало

[BDA]

Молодец, что нашли ошибку.

Исправьте еще и for t := 0 to length (Arr) - 1 do. Без -1 будет выход за границы массива.
Или замените на for t := 0 to High(Arr) do.