Как написать программу шифрования методом Атбаш???

[Zempery]

Шифрование методом Атбаш. Мне надо чтоб текст для шифровки брался из одного txt-файла, а зашифрованный текст записывался в другой txt-файл. Помогите плиз, срочно к зачету нужно!!!

Вот код, тока здесь применяется Memo

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



function Atbash(s:string):string;
var
  i:Integer;
begin
  for i:=1 to Length(s) do
  s[i]:=Chr(255-Ord(s[i]));
  Result:=s;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=Atbash(memo1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Text:=Atbash(memo1.Text);
end;

end.

правило шифрования состоит в замене i-й буквы алфавита буквой с номером n - i + 1, где n - число букв в алфавите.

[evg_m]

const alf='QWERTY';
var txt: string;
for j:=1 to len(txt) do
begin
  i:=pos(txt[j],alf);
  txt[j]:=alf[n-i+1];
end;

[Zempery]

и что этот код создаст файл-txt?

[Serge_Bliznykov]

Блин... ну нельзя же быть таким беспомощным!!!
Неужели нельзя открыть ЛЮБУЮ книжку по Паскалю/Дельфи и прочитать там раздел работа с файлами!??!?!!!

В вашем случае, чтобы сохранить содержимое Memo1 в текстовый файл достаточно:

  Memo1.Lines.SaveToFile('ТутИмяВашегоТекстовогоФайла.txt')

NB.
а вообще, чтобы записать что-то в файл
используйте либо классический подход (через файловые переменные). например:

var f : textfile;
begin
   AssignFile(f,'ТутИмяВашегоТекстовогоФайла.txt');
   {открываем на запись (тем самым перезаписываем файл!) }
   Rewrite(f);
   for i:=0 to Memo1.Lines.Count-1 do
     Writeln(f, Memo1.Lines.Strings[i]);
   CloseFile(f);

либо через TFileStream (пример кода писать не буду, сами разберётесь, если понадобится!)

[Zempery]

Почему когда загрузка текста идет через файл текст в зашифрованном виде отображается квадратиками(при русском и англ. языке, на другом компе тока при рус)????

ЛЮДИ ПОМОГИТЕ ПОЖАЛУЙСТА!!!

[DeKot]

ЛЮДИ ПОМОГИТЕ ПОЖАЛУЙСТА!!!

В чем конкретно? Попытайтесь сформулировать свои проблемы почетче.
Покажите свои наработки, где не получается или не понятно.

Почему когда загрузка текста идет через файл текст в зашифрованном виде отображается квадратиками(при русском и англ. языке, на другом компе тока при рус)????

А где это видно? Сами подумайте - нормальный человек в ответ на Ваш "вопль" ( ПОМОГИТЕ !) , что должен делать?
Программирование - это область деятельности, не допускающая неопределенности. Вот и старайтесь спрашивать вполне определенные вещи.

[Zempery]

А где это видно?

в созданном файле, отображаются квадратики.
если вместо создания файла использовать Memo то там введенный текст отображается в виде вертикальных палок

В чем конкретно? Попытайтесь сформулировать свои проблемы почетче.
Покажите свои наработки, где не получается или не понятно.

нужно чтоб при при нажатии на кнопку "зашифровать" текст считывался из файла, и уже в зашифрованном виде помещался во вновь созданный другой файл-txt.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;


    procedure RadioGroup1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



function shifrovka(s:string):string;
var
  i:Integer;
begin
  for i:=1 to Length(s) do
  s[i]:=Chr(255-Ord(s[i]));
  Result:=s;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
If RadioGroup1.ItemIndex=0 then
begin
memo1.Lines.loadfromfile('c:\1.txt');
memo1.Text:=shifrovka(memo1.Text);
end
else
If RadioGroup1.ItemIndex=1 then
memo1.Text:=shifrovka(memo1.Text);
memo1.Lines.savetofile('c:\2.txt');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 memo1.Text:=' ';
end;

end.

[Serge_Bliznykov]

Zempery
проект (исходники, *.PAS, *.DPR, *.DFM) и тестовый файл(ы) запакуйте в архив и выложите архив сюда, на форум (это делается через ответ в "Расширенный режим - Управление вложениями". (если нет ещё прав прикреплять вложения на форум - тогда выложите на любой файлообменник, сюда ссылку на скачивание!)
Иначе можно только гадать..

точно можно сказать одно - проблема в кодировках!!!

Прежде всего, на какой Дельфи программируете? Если RAD 2009/2010 - то там могут быть проблемы с unicode.

Либо, высока вероятность того, что Вы используете шрифт, в котором НЕТ русских букв. Либо UNICODE шрифт и не задаёте русскую локаль...

выкладывайте проект.. посмотрим, что у Вас там творится..

p.s. если скорость интернета позволяет, то можете в архив включить и исполняемый файл (т.н. "EXEшник")

[Zempery]

ссылка на исходник --> http://depositfiles.com/files/eio0a8228

Прежде всего, на какой Дельфи программируете? Если RAD 2009/2010 - то там могут быть проблемы с unicode.

Версия Delphi --> Delphi 7

Либо, высока вероятность того, что Вы используете шрифт, в котором НЕТ русских букв. Либо UNICODE шрифт и не задаёте русскую локаль...

Шрифт использую стандартный (ничего не меняю)

Еще нужно чтоб верстка(переносы, отступы, и т.п.) зашифрованного текста была такая же как и в исходном

[Serge_Bliznykov]

всё у Вас работает! (почти - смотри ниже)

1) как и ожидалось, проблема в кодировке исходного файла. Текстовый файл должен быть в кодировке Windows! (она же ANSI, она же Win-1251)
пример файла в правильной кодировке во вложении.

2) код русской буквы я равен 255. в результате перекодировки получается ноль. и он потом рушит работу каких-то компонентов... Ноль в строке считается как конец строки!
поэтому рекомендую исправить код кодирования на:

  for i:=1 to Length(s) do begin
    s[i]:=Chr(256-Ord(s[i]));

3) в обработке нужно файл 2.txt писать только если второй RadioGroup выбран. Там у Вас пропущены begin / end... имхо, разумеется...

If RadioGroup1.ItemIndex=1 then begin
  memo1.Text:=shifrovka(memo1.Text);
  memo1.Lines.savetofile('2.txt');
end;

4) и последнее. Логика работы программы не очень прямая... ;( Надо позволять ввести текст в Мемо и потом его уже кодировать/раскодировать. А сохранять/загружать надо ПО ДРУГИМ событиям. (например, добавить кнопочки сохранить текст, загрузить текст.)
Это тоже Имхо, разумеется...

удачи.