4 / 4 / 1
Регистрация: 11.12.2011
Сообщений: 44
1

Шифрование текста в RSA

07.03.2012, 13:35. Показов 5380. Ответов 3
Метки нет (Все метки)

Есть ли какие нибудь статьи для новичков?
Исходник есть но в нем я ничего не понял:
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
function Bit(Value, n: Integer): Boolean;
asm
   bt eax, edx
   setc al
   and eax, 0FFh
end;
 
function FastPower(a, b, n: integer): integer;
var i: integer;
    ai: extended;
begin
  ai := a;
  for I := Trunc(log2(b)) - 1 downto 0 do
  if Bit(b, i) then ai := Round(sqr(ai) * a) mod n else ai := Round(sqr(ai)) mod n;
  result := Round(ai);
end;
 
function Encrypt(s: string; e, n: integer): TIncodeMes;
  var I: Integer;
begin
  SetLength(result, length(s));
  for I := 0 to Length(s) - 1 do
    result[i] := FastPower(ord(s[i + 1]), e, n)
end;
 
function Decrypt(s: array of integer; e, n: integer): string;
  var i: Integer;
begin
  SetLength(Result, Length(s));
  for I := 0 to Length(s) - 1 do
    result[i + 1] := chr(FastPower(s[i], e, n))
end;
 
procedure TForm16.Button1Click(Sender: TObject);
  var i, n, e: Integer;
begin
  n := StrToIntDef(Edit3.Text, 697);
  e := StrToIntDef(Edit2.Text, 7);
  FMes := Encrypt(Memo1.Lines.Text, e, n);
  for i := 0 to High(FMes) do Memo2.Lines.Append(IntToStr(FMes[i]));
end;
 
procedure TForm16.Button2Click(Sender: TObject);
var i, n, d: integer;
 s : string;
 begin
 SetLength(FMes, Memo2.lines.count);
 for i := 0 to Memo2.Lines.Count-1 do
 Fmes[i] := StrToInt(Memo2.lines[i]);
 d := StrToIntDef(Edit1.Text, 183);
 n := StrToIntDef(Edit3.Text, 697);
 s := Decrypt(FMes,d , n);
 Memo3.Lines.Add(s)
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.03.2012, 13:35
Ответы с готовыми решениями:

Шифрование текста по алгоритму RSA
Добрый вечер. Для курсовой работы нужно написать программу на делфи, шифрующую текст с помощью...

RSA шифрование
Привет Программерам, у меня вопрос есть программа которая шифрует и дешифрует методом РСА , но дело...

Шифрование RSA
Имеется 1 публичный ключ и текст. Нужно зашифровать текст по методу RSA Добавлено через 20 минут...

rsa шифрование
нашел исходники- http://plagiata.net.ru/?p=140 но не разберусь. как присваивать свои ключи?

3
Заблокирован
07.03.2012, 14:36 2
RSA вещь довольно сложная для реализации новичками. И вообще. Текcты никогда им не шифруют. Это будет очень долго, если текст большой. Текст шифруют симметричным шрифром. А в RSA шифруется ключ.
Что касается текста приложения, который вы привели, это обрубок большого приложения.
А вообще существукют библиотеки для работы с ассиметричными шрифтами, коим и является RSA.
0
4 / 4 / 1
Регистрация: 11.12.2011
Сообщений: 44
07.03.2012, 14:38  [ТС] 3
А чем тогда лучше шифровать текст?
0
Заблокирован
07.03.2012, 14:59 4
Это про RSA
http://kastaneda.kiev.ua/crypto/rsa/

Тексты шифруют симметричным шрифтом. Одним из лучших считают AES
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2012, 14:59
Помогаю со студенческими работами здесь

Шифрование алгоритмом RSA
Задается исходная строка и надо зашифровать её по алгоритму RSA Для работы с большими числами...

RSA шифрование по публичному ключу
Пытаюсь авторизоваться в Steam. Раньше я использовал модуль "rsacalc" RSACALC: procedure...

RSA Шифрование на основе публичного ключа и экспоненты
Сегодня обгуглился уже... Как в делфях вообще реализовывается это шифрование?

Шифрование RSA: к строке добавляются три единицы
Всем Привет.Хочу шифровать через РСА,Исползую FGint компонент. но там почему то моего string - а...


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

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

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