Шифрование методом RSA

@4zone · Регистрация: 20.12.2009

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

Есть такой вот алфавит:
А -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

Вот программа для расшифровки сообщений:

Pascal

program RSA;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
Const d=247;
Const n=323;
Var x,m,i,f: integer;
begin
m:=1;
while (m>0) do
Begin
Write ('m='); Readln(m);
x:=m mod n;
for i:=1 to d-1 do
begin
f:=x*m;
x:=f mod n;
end;
Write('x=',x);
Readln;
end;
end.

Пример зашифрованного сообщения : ключ (247,323)

Код

140 090 304 090 172 079 284 158 209 178 252 177 158 013 172 158 189 209 312 090 313 140 090 209 140 090 304 090 172 079 284 158 109

Вот еще одно: ключ (343, 1271)

Код

1241 0676 0839 0328 0839 0286 1084 0063 0190 1241 0676 0839 0328 0839 0286 1084 0190 0785 0190 1241 0676 0839 0328 0839 0286 1084 0977

Помогите пожалуйста реализовать обратное, то-есть зашифровка сообщения.

@4zone · 20.04.2010, 19:19 **[ТС]**

Или на это делфи делать нужно?

@4zone 1 / 1 / 1 Регистрация: 20.12.2009 Сообщений: 23
	20.04.2010, 19:19 [ТС]	2
	Или на это делфи делать нужно? 0