0 / 0 / 0
Регистрация: 10.05.2017
Сообщений: 2
1

Приложение, реализующее алгоритм шифрования DES

21.05.2017, 13:22. Показов 1408. Ответов 0
Метки des (Все метки)

Author24 — интернет-сервис помощи студентам
Делаю диплом по курсовой, темой которой была реализация алгоритма DES в делфи. Теперь нужно как то расширить тему. Подскажите что можно сделать? Препод предложил на криптостойкость как то проверить. Подойдет ли просто анализ алгоритма на криптостойкость или можно что-то сделать конкретно для моего приложения?( или проанализировать его или сделать какую-то дополнительную защиту?)..В общем я в тумане..
Текст программы
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
unit Unit1; interface uses
 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DES, StdCtrls;
 
type
 
TForm1 = class(TForm) Label1: TLabel;
Edit1: TEdit;
 
Label2: TLabel;
 
Memo1: TMemo;
 
Button1: TButton;
 
Label3: TLabel;
 
Memo2: TMemo;
 
Button2: TButton;
 
Memo3: TMemo;
 
Label4: TLabel;
 
Memo4: TMemo;
 
procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Memo1Change(Sender: TObject); procedureFormCreate(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Memo2Change(Sender: TObject); private
 
{ Private declarations } public Data:TBitString;
 
end; var
 
Form1: TForm1; implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject); Var
 
25
 
I:Integer;
 
S:String; begin
 
IF ((Length(Memo1.Text)mod 8 <> 0) OR (Length(Edit1.Text)mod 8 <> 0)) Then
 
Begin
 
MessageBox(Handle,
 
'Количество букв в сообщении должно быть кратоно 8 (перевод строки считается за 2 буквы)'+ #10#13'Ключ должен состоять из 8 символов',
 
Nil,MB_ICONSTOP);
 
Exit;
 
End;
 
SetLength(Data,0);
 
I:=1;
 
While I<=Length(Memo1.Text) Do
 
Begin
 
S:=Copy(Memo1.Text,I,8);
 
Data:=ConcatBits([Data,DESEncode(S,Edit1.Text)]);
 
I:=I+8;
 
End;
 
Memo2.Text:=BinToAnsiStr(Data);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject); var
 
I:Integer; begin
 
IF ((Length(Memo2.Text)mod 8 <> 0) OR (Length(Edit1.Text)mod 8 <> 0)) Then
 
Begin
 
MessageBox(Handle,
 
'Количество букв в сообщении должно быть кратоно 8 (перевод строки считается за 2 буквы)'+ #10#13'Ключ должен состоять из 8 символов',
 
Nil,MB_ICONSTOP);
 
Exit;
 
End;
 
SetLength(Data,0);
 
I:=1;
 
While I<=Length(Memo2.Text) Do
 
Begin
 
Data:=ConcatBits([Data,DESDecode(Copy(Memo2.Text,I,8),Edit1.Text)]);
 
I:=I+8;
 
End;
 
Memo1.Text:=BinToAnsiStr(Data);
 
26
 
end;
 
procedure TForm1.Memo1Change(Sender: TObject); begin
 
IF Memo1.Text<>'' Then
 
Memo3.Text:=BinToStr(AnsiStrToBin(Memo1.Text))
 
Else Memo3.Clear;
 
Label2.Caption:='Message - ('+IntToStr(Length(Memo1.Text))+' characters)';
 
end;
 
procedure TForm1.FormCreate(Sender: TObject); begin
 
Memo1.OnChange(Self);
 
Edit1.OnChange(Self);
 
end;
 
procedure TForm1.Edit1Change(Sender: TObject); begin
 
Label4.Caption:=IntToStr(Length(Edit1.Text))+' characters'; end;
 
procedure TForm1.Memo2Change(Sender: TObject); begin
 
IF Memo2.Text<>'' Then
 
Memo4.Text:=BinToStr(AnsiStrToBin(Memo2.Text))
 
Else Memo4.Clear;
 
Label3.Caption:='Encoded message - ('+IntToStr(Length(Memo2.Text))+'
 
characters)';
 
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2017, 13:22
Ответы с готовыми решениями:

Алгоритм шифрования DES (Входные данные в HEX)
Добрый день! Нужен исходник кода либо готовая программа, которая осуществляет шифрование по...

Нужен пример шифрования DES
помогите пожалуйста, нужно сдать программу сегодня до экзамена, нужна любая программа где...

Разработать Delphi-приложение, реализующее операции над содержимым файла
Привет всем! Я новичок. Очень нужна помощь. Нужно создать приложение для работы с текстовым файлом...

Алгоритм шифрования DES
Требуется написать программу реализующую симметричный алгоритм шифрования DES. В Инете много...

0
21.05.2017, 13:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2017, 13:22
Помогаю со студенческими работами здесь

Алгоритм шифрования DES и цифровая подпись MD5
Необходимо разработать консольное приложение, выполняющее следующий набор операций с помощью...

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

Исправить код DES шифрования
Пишу курсовую и нужно прикрутить шифрование. Решил применить DES. Нужно что-бы входящий блок был...

Шифрования DES, как подлючить кириллицу?
Всем привет! Друзья вот код программы : using System; using System.Collections.Generic; using...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru