RSA шифрование

@tager3 · Регистрация: 02.11.2010

Привет Программерам, у меня вопрос есть программа которая шифрует и дешифрует методом РСА , но дело в том что делает это она пока не закроешь программу , а как сделать так чтобы например зашифровал какой то код , сохранил его, данные ключей тоже сохранил , а потом когда запустил опять прогу открыл и расшифровал,

ниже прикрепил исходник, буду ждать ваши советы

да и еще момент я имею ввиду то что , я код который получил зашифрованый просто скопировал сtrl+c закрыл прогу , открыл заново , вставил шифр ctrl+v параметры выставил те же, и он вообще ничего не расшифровыывает просто пустота , я вот к чему клоню то, попробуйте сами

@nxnx · 18.11.2010, 18:11

сохранять данные из мемо в файл через

Delphi

1	memo1.Lines.SaveFromFile();

загружать

Delphi

1	memo1.Lines.LoadFromFile();

в скобках имя файла

Добавлено через 2 минуты
ключи можно записывать как первые строчки мемо

@tager3 · 22.11.2010, 16:30 **[ТС]**

что то не получается, а как именно сделать чтобы
например едит1.текст = 150
едит2.текст= 7
едит3.текст = 300

в мемо 2. шифрованый текст

сохранял чтобы в текстовом файле

150
7
300
234 534 234 232 (зашифрованый код)
-----
и при загрузке возвращал значения на свои места?

@Евгений В · 24.11.2010, 00:10

tager3,
1. Внеси изменения. Получится

Delphi

//Шифрование текста в 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]));
 
   {сохраняем зашифрованный текст в файл}
   Memo2.Lines.SaveToFile('C:\code.txt');
 
end;

2.

Сообщение от tager3

вставил шифр ctrl+v параметры выставил те же, и он вообще ничего не расшифровывает просто пустота

Закодированный текст храниться в массиве FMes. При кодировании он создается, и при декодировании используется. Когда ты делаешь через ctrl+v, то в FMes данных не будет.

Поэтому вот вариант, как достать сохраненный закодированный файл, и поместить его данные не только в Memo2, но и в FMes.

Delphi

procedure TForm16.btn1Click(Sender: TObject);
var
  Way:string;
  i:Integer;
begin
Way:= 'C:\code.txt';  // путь, где лежит зашифрованный файл
Memo2.Lines.LoadFromFile(Way);
 
 SetLength(FMes,Memo2.Lines.Count);
 
for i:=0 to Memo2.Lines.Count-1 do
FMes[i]:=StrToInt(Memo2.Lines[i]);

Теперь можно расшифровывать.

Программу можно и дальше дорабатывать, например через SaveDialog спрашивать, куда сохранять закодированный файл, через OpenDialog находить, и т.д.

@tager3 · 24.11.2010, 09:21 **[ТС]**

Евгений спасибо Большое, теперь я стал чуть чуть больше знать

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140
	22.11.2010, 16:30 [ТС]	3
	что то не получается, а как именно сделать чтобы например едит1.текст = 150 едит2.текст= 7 едит3.текст = 300 в мемо 2. шифрованый текст сохранял чтобы в текстовом файле 150 7 300 234 534 234 232 (зашифрованый код) ----- и при загрузке возвращал значения на свои места? 0

@tager3 5 / 5 / 3 Регистрация: 02.11.2010 Сообщений: 140
	24.11.2010, 09:21 [ТС]	5
	Евгений спасибо Большое, теперь я стал чуть чуть больше знать 0

Опции темы