кривое шифрование memo

[Serge_Bliznykov]

вот рабочий пример. Простейший!

Проверки на то, правильный ли пароль используется - нет! Проверки на ошибки доступа к файлу - нет! ну и т.д....

но всё - "шуршит"!



p.s. чтобы тем любопытствующим, что там "у нё внутре" не качать архив вместе c exe-шником, привожу код прямо здесь:

procedure TForm1.btEncodeClick(Sender: TObject);
var key, sInput, sResult : string;
  myFileStream : TFileStream;
  i, k  : integer;
begin
  myFileSTream := TFileStream.Create(edFileName.Text, fmCreate );
  key := Trim(edKey.Text);
  sInput := Memo1.Text;

  k := 1;
  sResult := '';
  for i := 1 to length(sInput) do
    begin
      sResult := sResult + chr((ord(sInput[i]) XOR ord(key[k])));
      inc(k);
      if (k>length(key)) then k := 1;
    end;

  myFileSTream.Write(sResult[1],length(sResult));
  FreeAndNil(myFileSTream); // закроем файл
  Application.MessageBox('Готово. Файл записан.','Информация',
                       MB_ICONINFORMATION or mb_ok);
end;

procedure TForm1.btDecodeClick(Sender: TObject);
var key, sInput, sResult : string;
  myFileStream : TFileStream;
  i, k, L  : integer;
begin
  if Not FileExists(edFileName.Text) then begin
    Application.MessageBox(PChar('Файл '+edFileName.Text+' не найден!'),
            'Ошибка',  MB_ICONERROR or mb_ok);
    Exit;
  end;
  key := Trim(edKey.Text);
  myFileSTream := TFileStream.Create(edFileName.Text, fmOpenRead );

  L := myFileSTream.Size;
  SetLength(sResult, L);
  myFileSTream.Read(sResult[1], L);
  FreeAndNil(myFileSTream); // закроем файл

  k := 1;
  for i := 1 to L do
    begin
      sResult[i] := chr((ord(sResult[i]) XOR ord(key[k])));
      inc(k);
      if (k>length(key)) then k := 1;
    end;

  Memo1.Text := sResult;
  Application.MessageBox('Готово. Файл расшифрован.','Информация',
                       MB_ICONINFORMATION or mb_ok);

end;

[T-dayne]

Serge_Bliznykov
о огрооомное спасибо, низкий поклон, и + в репутацию