Программа текстовый редактор «Блокнот» с функциями шифрования и дешифрования

@Paul_Winslow · Регистрация: 14.06.2012

Author24 — интернет-сервис помощи студентам

Доброго времени суток друзья!!

Сразу перейду к делу, есть курсовая работа, есть две проблемы которые нужно исправить. Тема курсовой работы: Программа текстовый редактор «Блокнот» с функциями
шифрования и дешифрования вводимого текста четырьмя методами: Атбаш, Цезаря, Полибия, Гронсфельда.

В программе реализовал два первых метода, с остальными двумя проблема. В Полибие надо реализовать шифрование через Memo, там в программе есть StringGrid, препод сказал что надо Memo с ним связывать. Как это сделать я не знаю.

В гронсфельде всё проще, надо реализовать шифрование, процедуры шифрования описаны, на кнопки прописываю выполнение даёт ошибку...

Вот ссылка на саму программу, там же и отчёт [url]

Заранее спасибо за любую помощь

@Puporev · 20.06.2012, 12:45

Paul_Winslow, Думайте прежде чем посылать куда-то.

Услуги FreeSpace доступны только для белорусских сетей. Ваша сеть не зарегистрирована в РУП "Белтелеком" как белорусская. Если Вы считаете, что это ошибка, пожалуйста, обратитесь к нам в техподдержку: support@freespace.by (в письме укажите Ваш IP: 188.18.95.31). Если Вы пользуетесь браузером Opera, убедитесь, что у Вас отключена функция Opera Turbo

Проект и все материалы можно прикрепить архивом в тему и не мудрить.

@Paul_Winslow · 20.06.2012, 13:06 **[ТС]**

Спасибо, честное слово не знал)) Архив с курсовой прикрепил. Если не сложно то гляньте, может чем поможете))

@antikiler_ · 20.06.2012, 15:33

В гронсфельде всё проще, надо реализовать шифрование, процедуры шифрования описаны, на кнопки прописываю выполнение даёт ошибку...

В unit10 пропеши в кнопках следующий код

Delphi

procedure TForm10.Button3Click(Sender: TObject);
begin
Memo1.Text:=Crypt(memo1.Text,edit1.text)
end;

Delphi

procedure TForm10.Button4Click(Sender: TObject);
begin
Memo1.Text:=DeCrypt(memo1.Text,edit1.text)
end;

Но, так работает только для латиницы(во всяком случае для 2010). Для кирилицы(2010), надо поменять тип в функциях на ansi

Delphi

function Crypt(Str, Key: ansiString): String;
var
  i, q: Integer;
begin
  for i := 1 to Length(Str) do
    begin
      q := (Ord(Str[i]) + (Ord(Key[(Pred(i) mod Length(Key)) + 1]) - Ord('0')));
        if q >= 256 then Dec(q, 256);
      Str[i] := ansichar(q);
      Result := Str;
    end;
end;
 
function DeCrypt(Str, Key: ansiString): String;
var
  i, q: Integer;
begin
  for i := 1 to Length(Str) do
    begin
      q := (Ord(Str[i]) - (Ord(Key[(Pred(i) mod Length(Key)) + 1]) - Ord('0')));
        if q < 0 then Inc(q, 256);
      Str[i] := ansichar(q);
      Result := Str;
    end;
end;

@Paul_Winslow · 20.06.2012, 16:31 **[ТС]**

Знаете бывает такая ерунда, ищешь по всему дому ключи, а они лежат на самом очевидном месте. Тут такая же ситуация была....

бывает в общем....

antikiler_: Спасибо тебе большое за помощь)) очень признателен

@Paul_Winslow 0 / 0 / 0 Регистрация: 14.06.2012 Сообщений: 8
		1
	Программа текстовый редактор «Блокнот» с функциями шифрования и дешифрования 19.06.2012, 23:17. Показов 2671. Ответов 4 Метки нет (Все метки) Доброго времени суток друзья!! Сразу перейду к делу, есть курсовая работа, есть две проблемы которые нужно исправить. Тема курсовой работы: Программа текстовый редактор «Блокнот» с функциями шифрования и дешифрования вводимого текста четырьмя методами: Атбаш, Цезаря, Полибия, Гронсфельда. В программе реализовал два первых метода, с остальными двумя проблема. В Полибие надо реализовать шифрование через Memo, там в программе есть StringGrid, препод сказал что надо Memo с ним связывать. Как это сделать я не знаю. В гронсфельде всё проще, надо реализовать шифрование, процедуры шифрования описаны, на кнопки прописываю выполнение даёт ошибку... Вот ссылка на саму программу, там же и отчёт [url] Заранее спасибо за любую помощь 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.06.2012, 12:45	2
	Paul_Winslow, Думайте прежде чем посылать куда-то. Услуги FreeSpace доступны только для белорусских сетей. Ваша сеть не зарегистрирована в РУП "Белтелеком" как белорусская. Если Вы считаете, что это ошибка, пожалуйста, обратитесь к нам в техподдержку: support@freespace.by (в письме укажите Ваш IP: 188.18.95.31). Если Вы пользуетесь браузером Opera, убедитесь, что у Вас отключена функция Opera Turbo Проект и все материалы можно прикрепить архивом в тему и не мудрить. 1

@Paul_Winslow 0 / 0 / 0 Регистрация: 14.06.2012 Сообщений: 8
	20.06.2012, 16:31 [ТС]	5
	Знаете бывает такая ерунда, ищешь по всему дому ключи, а они лежат на самом очевидном месте. Тут такая же ситуация была.... бывает в общем.... antikiler_: Спасибо тебе большое за помощь)) очень признателен 0

Программа текстовый редактор «Блокнот» с функциями шифрования и дешифрования

Решение