VPF::шифрование методом цезаря - Форум программистов

kupall

Дата 2.6.2010, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 25.5.2010

Репутация: нет
Всего: нет

да , думаю завтра смогу и скайп установлю наконец-то)

PsiMagistr

Дата 2.6.2010, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Давай до завтра. А я пока подумаю, что можно сделать.

--------------------

"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

(с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.

kupall

Дата 2.6.2010, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 25.5.2010

Репутация: нет
Всего: нет

до завтра)

PsiMagistr

Дата 3.6.2010, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

kupall, Кое что я вам придумал. Запишите:

Код


Function DelSim(kluch:string):string; //Эта функция будет сначала удалять из алфавита все символы ключа.
var alfavit: string; i : integer; simvol:string; S:integer;
begin
alfavit:= 'abcdefghijklmnopqrstuvwxyz';
For  i:= 1 To Length(kluch) do

begin
simvol:= kluch[i];
while Pos(simvol, alfavit) <> 0 do

begin
S:= Pos(simvol, alfavit);
Delete(alfavit, s,1);
end;
end;
Result:=alfavit;
end;

Код


Function Preobrazovanie (numberkluch:integer; kluch:string) :string; // А это преобразововать алфавит без символов ключа в шифроалфавит.
var alfavit:string; Var temp:integer;
begin
alfavit := DelSim(Form1.T2.Text);
Result := RightStr(alfavit, numberkluch);
Result:=Result+kluch;
temp:= Length(alfavit) - StrToInt(Form1.T.Text);
Result:=REsult + LeftStr(alfavit,temp);
ShowMessage(Result);
end;

Киньте на форму кнопку. И два текстовых поля. T и T2. Т будет хранить смещение. Т2 сам ключ.

Запишите в обработчике:

procedure TForm1.Button1Click(Sender: TObject);
begin
Preobrazovanie(StrToInt(T.Text), T2.Text);
end;

И вы увидите шифроалфавит.

Обращайтесь.

Это сообщение отредактировал(а) PsiMagistr - 3.6.2010, 13:49

--------------------

kupall

Дата 3.6.2010, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 25.5.2010

Репутация: нет
Всего: нет

круто) спасибо большое))

PsiMagistr

Дата 3.6.2010, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

В принципе можно даже внутренний цикл убрать. Он для того, чтобы даже если в алфавит закралась лишняя буква (дублер), она бы удалилась (если бы входила в ключ)

Добавлено @ 14:45

Код


Function DelSim(kluch:string):string;
var alfavit: string; i : integer; simvol:string; S:integer;
begin
alfavit:= 'abcdefghijklmnopqrstuvwxz';
For  i:= 1 To Length(kluch) do
begin
simvol:= kluch[i];
//while Pos(simvol, alfavit) <> 0 do

//begin
S:= Pos(simvol, alfavit);
Delete(alfavit, s,1);
//end;

end;
Result:=alfavit;
end;

Вот я убрал внутренний цикл.

Это сообщение отредактировал(а) PsiMagistr - 3.6.2010, 14:45

--------------------

PsiMagistr

Дата 6.6.2010, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 479
Регистрация: 31.12.2009

Репутация: 1
Всего: 1

Алекс-Юстасу или программа "Юный Штирлиц" (для шифровальщиков).

Шифратор Вижинера (тот же шифратор Цезаря но с переменной позицией ключа).

Что-то подобное я писал на ВБ, а теперь решился повторить на Дельфи

Шифратор Вижинера используется для шифрования текста по ключевому слову.

Объясняю принцип действия "прибора":

1) Представим себе русский алфавит, замкнутый как бы в кольцо. То есть за буквой "я" идет "а".

2) Нам нужно зашифровать открытый текст: "гора" по ключевому слову: "дева"

3) Мы берем первый символ открытого текста: "г". Буква "г" занимает 4 позицию в алфавите.

4) Теперь берем первый символ ключа букву "д". Буква "д" занимает 5 позициую в алфавите.

5) Плюсуем позиции открытого текста и ключа. 4+5 := 9; Девятую позицию в русском алфавите занимает буква "3".

6) Значит "З" - первая буква шифровки.

Выйти за пределы алфавита нельзя - он замкнут в кольцо. Точно так же нельзя выйти за пределы слова ключа (за последней буквой ключа идет первая и т.д.).

Создайте проект и совершите необходимые приготовления:

1) Добавьте на форму два одинаковых поля класса TMemo с именами (Name) - txtOriginal и txtCode. В первом поле храним оригинальный текст, во втором получаем шифровку.

Текстовое поле класса TEdit с именем (Name) - T. Здесь держим ключ.

Добавьте также две кнопки. Не меняйте имен. Первая будет шифровать, вторая расшифровывать. Задайте соответствующие Caption Расположите компоненты аккуратно, по своему вкусу.

Внимание код:

Код


//Перейдите в раздел глобальных переменных, запишите после слова var

Form1: TForm1; //Эту строку добавила среда Дельфи.

 SimText: string[1]; //Эта переменная хранит символ открытого текста

  SimCode:string[1]; //А эта переменная - символ ключа.

  i2:integer; //Счетчик позиции ключа

  Summa:Integer; // Сумма позиций символа ключа и и символа открытого текста

  const alfavit:string = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавитная константа. При желании можно добавить сюда заглавные //буквы и цифры

//Перейдите в обработчик щелка кнопки Button1 и запишите:

procedure TForm1.Button1Click(Sender: TObject);

var i:integer; //Локальная переменная счетчик цикла

begin //
if (T.Text <>'') and (TxtOriginal.Text <> '') then //Если поле открытого текста и ключевое поле не является пустым то:

begin //

txtCode.Clear; //очистим поле шифротекста

i2:= 0; //Обнулим счетчик ключа

For i:= 1 to Length(txtOriginal.Lines.Text) do // Мы входим в цикл от 1 до количества символов в оригинал-тексте. 

begin //В цикле выполняется:

SimText:= txtOriginal.Text[i]; 

If Pos(SimText,alfavit)<> 0 then
begin

Summa:=Pos(SimText,alfavit);
i2:= i2+1;
if i2> Length(T.Text) then i2:=1;
SimCode:= T.Text[i2];
Summa:= Summa+ Pos(SimCode, alfavit);
if Summa > Length(alfavit) then Summa:= Summa-Length(alfavit);
txtCode.Text:=txtCode.Text + Copy(alfavit,summa,1);
end

else
txtCode.Text:=txtCode.Text + SiMText;
end;
end

else
ShowMessage('Проверьте правильность ввода ключа и текста!');
end;

//Обработчик второй кнопки ("Дешифрование")

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
if (T.Text <>'') and (TxtOriginal.Text <> '') then

begin

txtCode.Clear;
i2:= 0;
For i:= 1 to Length(txtOriginal.Lines.Text) do
begin
SimText:= txtOriginal.Text[i];

If Pos(SimText,alfavit)<> 0 then
begin

Summa:=Pos(SimText,alfavit);
i2:= i2+1;
if i2 > Length(T.Text) then i2:=1;
SimCode := T.Text[i2];
Summa := Summa - Pos(SimCode, alfavit);
if Summa < 1 then Summa:= Length(alfavit)+Summa;

txtCode.Text := txtCode.Text + Copy(alfavit,summa,1);
end

else
txtCode.Text := txtCode.Text + SiMText;
end;
end

else
ShowMessage('Проверьте правильность ввода ключа и текста!');
end;

Я нарочно прервал линию комментариев. Попробуйте для начала сами разобраться, что именно происходит в коде.

Разработано и тестировано мною в среде Дельфи 6.

P.S. Для начинающих прогммеров: не вздумайте шифровать "Войну и мир," "Три мушкетера" и все другие большие по объему тексты. Зависание в цикле гарантирую.

Это сообщение отредактировал(а) PsiMagistr - 6.6.2010, 16:55

--------------------

Shreder

Дата 14.5.2012, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.5.2012

Репутация: нет
Всего: нет

Помогите пожалуйста. Препод в универе задал разработать Delphi-проект шифрования данных методом Цезаря. Алфавит - ЛАТИНСКИЕ СТРОЧНЫЕ БУКВЫ, ключ "yes", сдвиг +5. Предусмотреть автоматическую передачу фокуса и очистку редакционных полей после выполнения программы. И вообще не понятно как делать... если сможете помогите чем сможете ) будет достаточно всего лишь кода программы(желательно с комментариями) . форму в Delphi оформить смогу.

Это сообщение отредактировал(а) Shreder - 14.5.2012, 17:11

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »