Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
dashaudina06
0 / 0 / 0
Регистрация: 10.05.2017
Сообщений: 2
#1

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

21.05.2017, 13:22. Просмотров 165. Ответов 0

Делаю диплом по курсовой, темой которой была реализация алгоритма 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2017, 13:22
Ответы с готовыми решениями:

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

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

Алгоритм DES Delphi
Здравствуйте. Такая тема. Есть программа шифровки текста алгоритмом Des в...

Алгоритм шифрования RS4
Написать программу для зашифрования файла с использованием алгоритма RS4....

Как применить алгоритм шифрования?
Ребята, как применить алгоритм шифрования в delphi 7? алгоритм присутствует в...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2017, 13:22

Создать двухэтапный алгоритм шифрования и дешифрования
нужно создать двухэтапный алгоритм шифрования и дешифрования. на первом этапе...

Создать приложение для шифрования/дешифрования файла ASCII методом
Необходимо создать приложение для шифрования/дешифрования файла ASCII методом в...

Составить программу, реализующую функции шифрования и расшифровывания текста по алгоритму шифрования RSA
1. Составить модуль программы вычисления простых чисел и вычислить сто простых...


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

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

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