Програмная реализация алгоритма RSA Delphi

[Anna)]

Пример реализации RSA-кодирования на Delphi у меня что то есть но переделать под своё немогу так как там все сложно реализовано мне надо проще

[ByAlex]

Задавай вопросы где не понятно!

[Anna)]

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type

  TIncodeMes = array of Integer;

  TForm16 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Memo3: TMemo;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FMes: TIncodeMes;
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation
uses math;

{$R *.dfm}

//Çíà÷åíèå áèòà â äâîéíîì ñëîâå (32áèòà)
function Bit(Value, n: Integer): Boolean;
asm
   bt eax, edx
   setc al
   and eax, 0FFh
end;

//Ôóíêöèÿ áûcòðîãî âîçâåäåíèÿ â ñòåïåíü
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;

//Øèôðîâàíèå òåêñòà â Memo
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
  d := StrToIntDef(Edit1.Text, 183);
  n := StrToIntDef(Edit3.Text, 697);
  s := Decrypt(FMes,d , n);
  Memo3.Lines.Add(s)
end;

end.

есть такой код

но например
p
q
е
у меня заданы значит функция возведения в степень мне не нужна и её надо заменить чем то типа result := round(Power(x, e)) mod n; ??

Программа должна шифровать и дешифровать виденное имя ..

[ByAlex]

Сообщение от Anna)

Программа должна шифровать и дешифровать виденное имя ..

Скинь лучше весь проект!

[Anna)]

вот проект

[ByAlex]

Сообщение от Anna)

вот проект

Шифровка-дешифровка, вроде, работает!

[Anna)]

Я знаю что работает просто там слешком круто реализовану у меня же :
p
q
е

это о одна простая цифра и генерировать их мне не надо

p = 5, q = 19, е=7

не каких предложений?

[ByAlex]

Сообщение от Anna)

не каких предложений?

Проверь, немного упростил, если что, задавай вопросы!

[Anna)]

спасибо , проверить смогу лиш завтра (

[Анна Сафронова]

Ребят. у меня тут проблема. Я не совсем понимаю что такое RSA. Каким образом он шифрует текст этот алгоритм? Что таоке p,q,e? Объясните пожалуйста.