кто может объяснить???

[Надежда Карунова]

кто может объяснить эти процедуры что в них происходит???

procedure TForm1.rsaButton1Click(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 TForm1.rsaButton2Click(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;

[BeJIuKuu_Hexo4yxa]

n := StrToIntDef(Edit3.Text, 697); - Преобразует строку в число, по умолчанию (если пустая строки или не числовые символы) - 697.
Телепаты подсказывают, что есть еще скрытые от взора процедуры Encrypt и Decrypt. Одна из них скорее всего расшифровывает текст, другая зашифровывает.

Стало быть 1 процедура Зашифровывает текст с указанных позиций Memo1 и пишет его в Memo2.
2-я расшифровывает и пишет в Memo3