Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/22: Рейтинг темы: голосов - 22, средняя оценка - 4.55
0 / 0 / 1
Регистрация: 03.03.2014
Сообщений: 3
1

Шифр Хилла в делфи

03.03.2014, 19:56. Показов 4050. Ответов 2
Метки нет (Все метки)

Есть уже написанная программа " Шифратор" реализующая симметричный блочный алгоритм шифрования данных "шифр Хилла". В программе предусмотрено хранение имен пользователей и их ключей в базе данных, модуль шифрования данных - введенного сообщения или сообщения загруженного из файла. а также модуль дешифрования , реализующий восстановление открытого текста из зашифрованного и сохранение результатов в файле. Нужно ее просто доработать. Нужно чтобы при вводе ключа шифрования или дешифрования программа выдавала ошибку если вдруг ключ (матрица) не имеет обратную матрицу.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2014, 19:56
Ответы с готовыми решениями:

Лабораторная работа: Шифр Хилла
Составить программу с графическим интерфейсом, которая реализует Шифр Хилла

Шифр Хилла
Господа, пишу курсовую, тема шифр Хилла. Все компилируется, запускается, но при выводе...

Шифр Хилла
Для тех кто не знает, его суть - есть слово и ключ из букв, допустим слово "студент" а ключ...

Шифр Хилла
Доброго времени суток, помогите, пожалуйста 1. Найти матрицу K, такую, чтобы у нее была...

2
Супер-модератор
5911 / 2690 / 1298
Регистрация: 04.03.2013
Сообщений: 5,630
Записей в блоге: 1
03.03.2014, 20:36 2
liviza, а вам не кажется, что надо еще и код программы приложить?
0
0 / 0 / 1
Регистрация: 03.03.2014
Сообщений: 3
07.03.2014, 12:44  [ТС] 3
Лучший ответ Сообщение было отмечено liviza как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Pass;
interface
uses Classes, Controls, Forms, Dialogs, StdCtrls, MainUnit,
     DB, ADODB, ExtCtrls;
type
  TPassForm = class(TForm)
    leUser: TLabeledEdit;
    lePass: TLabeledEdit;
    btnOk: TButton;
    ADOTable: TADOTable;
    procedure btnOkClick(Sender: TObject);
  end;
var PassForm: TPassForm;
 
implementation
{$R *.dfm}
 
procedure TPassForm.btnOkClick(Sender: TObject);
var
  User, Pass: string;
begin
  User := leUser.Text;
  Pass := lePass.Text;
  if (User = '') or (Pass = '') then
  begin
    leUser.SetFocus;
    exit;
  end;
  AdoTable.Active := true;
  if (AdoTable.Locate('User', User, [])) and
     (AdoTable.Locate('Password', Pass, [])) then
  begin
    AdoTable.Active := false;
    PassForm.Hide;
    MainForm.ShowModal;
    Application.Terminate;
  end
  else
  begin
    AdoTable.Active := false;
    ShowMessage('Неверное имя пользователя или пароль');
    leUser.Text := '';
    lePass.Text := '';
    leUser.SetFocus;
  end;
end;
end.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit MainUnit;
interface
uses Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
     Hill, Spin;
type
  TMainForm = class(TForm)
    gbSource: TGroupBox;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    mmSource: TMemo;
    gbDest: TGroupBox;
    mmDest: TMemo;
    btnOpen: TButton;
    btnCipher: TButton;
    btnDecipher: TButton;
    btnSave: TButton;
    leKey: TLabeledEdit;
    lblStart: TLabel;
    seStart: TSpinEdit;
    lblEnd: TLabel;
    seEnd: TSpinEdit;
    procedure btnOpenClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCipherClick(Sender: TObject);
  end;
var MainForm: TMainForm;
 
implementation
{$R *.dfm}
 
procedure TMainForm.btnOpenClick(Sender: TObject);
begin
  mmSource.Clear;
  mmDest.Clear;
  if not OpenDialog.Execute then Exit;
  mmSource.Lines.LoadFromFile(OpenDialog.FileName);
end;
 
procedure TMainForm.btnSaveClick(Sender: TObject);
begin
  if not SaveDialog.Execute then Exit;
  mmDest.Lines.SaveToFile(SaveDialog.FileName);
end;
 
procedure TMainForm.btnCipherClick(Sender: TObject);
begin
  // Задаем начальный и конечный коды символов
  NStart := seStart.Value;
  NEnd := seEnd.Value;
  mmDest.Text := Cipher(mmSource.Text, leKey.Text,
                        (Sender as TButton).Tag);
end;
end.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
unit Hill;
interface
var NStart, NEnd: integer;
type
  TIntMatrix = array of array of integer;
  TRealMatrix = array of array of double;
  TIntVector = array of integer;
// Функция шифрования / дешифрования
function Cipher(Msg: string; Key: string; Dir: byte): string;
// Вычисление числа, обратного d по модулю N
function Inverse(d, N: integer): integer;
// Вычисление определителя матрицы A
function Det(A: TIntMatrix): integer;
// Вычисление обратной матрицы B для матрицы A по модулю N
procedure ReverseModMatrix(var A: TIntMatrix; N: integer);
 
implementation
uses Math;
var LettersCount: integer;
 
// Вычисление числа, обратного d по модулю N
function Inverse(d, N: integer): integer;
var i, p: integer;
begin
  p := 0;
  if d < 0 then
  begin
    for i := 1 to N do
      if (N - (Abs(d * i)) mod N) = 1 then
      begin
        p := i;
        break;
      end;
  end
  else if d > 0 then
  begin
    for i := 1 to N do
      if ((d * i) mod N) = 1 then
      begin
        p := i;
        break;
      end;
  end;
  Result := p;
end;
 
// Вычисление определителя матрицы A
function Det(A: TIntMatrix): integer;
var i, j, k: integer;
    p: double;
    B: TRealMatrix;
begin
  SetLength(B, High(A[0]) + 1, High(A[0]) + 1);
  for i := 0 to High(A[0]) do
    for j := 0 to High(A[0]) do
      B[i, j] := A[i, j];
  p := 1;
  for i := 0 to High(B[0]) - 1 do
  begin
    for j := i + 1 to High(B[0]) do
    begin
      B[j, i] := B[j, i] / B[i, i];
      for k := i + 1 to High(B[0]) do
        B[j, k] := B[j, k] - B[j, i] * B[i, k];
    end;
    p := p * B[i, i];
  end;
  Result := Round(p * B[High(B[0]), High(B[0])]);
  B := nil;
end;
 
// Вычисление обратной матрицы B для матрицы A по модулю N
procedure ReverseModMatrix(var A: TIntMatrix; N: integer);
var i, j, k, p: integer;
    pivot: double;
    C, D: TRealMatrix;
begin
  SetLength(C, High(A[0]) + 1, High(A[0]) + 1);
  SetLength(D, High(A[0]) + 1, High(A[0]) + 1);
  // Копируем во вспомогательный массив
  for i := 0 to High(A[0]) do
    for j := 0 to High(A[0]) do
      C[i, j] := A[i, j];
  // Создаем единичную матрицу
  for i := 0 to High(D[0]) do
  begin
    for j := 0 to High(D[0]) do
      D[i, j] := 0;
    D[i, i] := 1;
  end;
  for i := 0 to High(C[0]) do
  begin
    pivot := C[i, i];
    for j := 0 to High(C[0]) do
    begin
      C[i, j] := C[i, j] / pivot;
      D[i, j] := D[i, j] / pivot;
    end;
    for j := 0 to High(C[0]) do
    begin
      if i = j then continue;
      pivot := C[j, i];
      for k := 0 to High(C[0]) do
      begin
        C[j, k] := C[j, k] - C[i, k] * pivot;
        D[j, k] := D[j, k] - D[i, k] * pivot;
      end;
    end;
  end;
  k := Det(A);
  p := Inverse(k, N);
  for i := 0 to High(A[0]) do
    for j := 0 to High(A[0]) do
    begin
      A[i, j] := Round(D[i, j] * k * p) mod N;
      if A[i, j] < 0 then A[i, j] := A[i, j] + N;
    end;
  C := nil;
  D := nil;
end;
 
// Функция шифрования / Дешифрования
function Cipher(Msg: string; Key: string; Dir: byte): string;
var MatrixSize, i, j, k, m, CharToAdd: integer;
    s: string;
    Matrix: TIntMatrix;
begin
  if not (Dir in [1..2]) then exit;
  // Рассчитываем сторону матрицы ключа
  MatrixSize := Ceil(Sqrt(Length(Key)));
  // Заполняем матрицу ключа
  SetLength(Matrix, MatrixSize, MatrixSize);
  for i := 0 to MatrixSize - 1 do
    for j := 0 to MatrixSize - 1 do
      Matrix[i, j] := Ord(Key[1 + (i * MatrixSize + j) mod
                                  Length(Key)]) - NStart + 1;
  if Dir = 1 then  // Шифрование
  begin
    CharToAdd := 0;
    while (Length(Msg) mod MatrixSize) <> 0 do
    begin
      Msg := Msg + Chr(NStart);
      Inc(CharToAdd);
    end;
  end
  else             // Дешифрование
  begin
    // Определяем количество добавленных в сообщение символов
    CharToAdd := Ord(Msg[1]) - NStart;
    // Убираем вспомогательный символ
    Delete(Msg, 1, 1);
    // Вычисляем обратную матрицу по модулю LettersCount
    ReverseModMatrix(Matrix, LettersCount);
  end;
  s := '';
  // Разбиваем сообщение на группы по MatrixSize символов
  for i := 1 to (Length(Msg) div MatrixSize) do
    // Проходим по строкам ключа
    for k := 0 to MatrixSize - 1 do
    begin
      m := 0;
      // Проходим по столбцам ключа
      for j := 0 to MatrixSize - 1 do
        m := m + Matrix[k, j] * (Ord(Msg[(i - 1) * MatrixSize
                                     + j + 1]) - NStart + 1);
      m := m mod LettersCount;
      if m = 0 then m := LettersCount;
      s := s + Chr(NStart - 1 + m);
    end;
  if Dir = 1 then  // Шифрование
    //Заносим в начало закодированной строки количество
    // добавленных символов, чтобы потом их удалить при
    // декодировании
    s := Chr(NStart + CharToAdd) + s
  else             // Дешифрование
  begin
    // Удаляем лишние символы из конца сообщения
    for i := 1 to CharToAdd do
      Delete(s, Length(s), 1);
  end;
  // Удалаем матрицу из памяти
  Matrix := nil;
  // Возвращаем закодированное сообщение
  Result := s;
end;
 
initialization
  // По умолчанию - для символов A..Z
  NStart := 65; // Диапазон символов
  NEnd := 255;
  //  Мощность алфавита (количество символов)
  LettersCount := NEnd - NStart + 1;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2014, 12:44

Шифр Хилла, дешифрование
Помогите пожалуйста с шифром Хилла. Использую алфавит из 29 символов. Шифрует верно, я проверяла, а...

Шифр хилла - закомпилировать как?
Windows forms С++ помогите закомпилировать Следуя описанному выше алгоритму представлен код...

Аффинное матричное преобразование (Шифр Хилла),
Здравствуйте, господа форумчане! Столкнулся с такой задачи и прошу помощи. Если у кого есть...

Составить программу шифрования и расшифровки в Delphi по соответствующему заданию: шифр Атбаш + шифр Цезеря
Составить программу шифрования и расшифровки в Delphi по соответствующему заданию: шифр Атбаш +...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.