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

[Тёма(C@$pEr)]

Добрый день! Вот делаю шифрование методом RSA, сделал выборку простых чисел из n = 33^5 методом "Решето-Эратосфена" и все это записывается в файл, теперь из этих чисел нужно выбрать такие 2-а числа, которые при умножении друг на друга получили n. У меня не получается( Проблема в том что считает программа по символу всю строку, а мне нужно что бы он считал от пробела до пробела символы и то что получилось делил на n.
Вот часть кода где не мог придумать как это написать:

procedure TForm1.Button2Click(Sender: TObject);
var n, a, k, i : integer;
f : textfile;
F_1: string;
m : char;
begin
AssignFile(f , 'C:\Users\Desktop\RSA\text.txt');
reset(f);
while not EOF(f) do
begin
readln(f, f_1);
memo1.Text:=memo1.Text + f_1;
for i:=1 to length(f_1) do
begin
if f_1 = ' ' then begin // вот тут должно стоять где считает от пробела
// до пробела ну дальше не важно это сам уже)

m:=n/StrToInt(f_1[i]);
memo1.Text:=memo1.Text + FloatToStr(m) + ' ; ' ;
// if (mod(m) = 0 and n = m * f_1) then....
end;
end;
CloseFile(f);

если можно то с объяснениями, должен же понять, но придумать не как не могу мож переработал((
Что не понятно в коде спрашивайте не стесняйтесь)
Заранее спасибо)

[Тёма(C@$pEr)]

Что не кто не кто не знает?( Тут грубо говоря нужно что бы программа считала из файла цифры от пробела до пробела. Именно из файла, т.е если бы хотел сделать просто программу я бы из первой части кода, т.е матрицы простых чисел и выбирал, а так хочется именно через файл. Например:
123 4567 3214
вот и читать он будет первое это - 123, второе - 4567 и третье - 3214.
Хоть подскажите мож ф-ция какая есть?

[ОДИНОЧЕСТВО В СЕТИ]

Хоть подскажите мож ф-ция какая есть?

read -эта ф-ия называется;

var f:file of integer;
      k:integer;
begin
.....
While not eof(f)
Read(f,k);
....
end.

[Тёма(C@$pEr)]

т.е

While not eof(f)
Read(f,k);

он будет считывать группу цифр, а не одну? или же он тут будет считать цифры одной строки до нажатия Enter? т.е например
123
432
вот так тип первый это 123 и второй 432, да?

[ОДИНОЧЕСТВО В СЕТИ]

он будет считывать группу цифр, а не одну?

а что мешает попробовать???
вот вам рабочий код он же инфа к размышлению

procedure TForm1.btn1Click(Sender: TObject);
var f:file of Integer;
  i:Integer;
begin
AssignFile(f,'inp.int');
Rewrite(f);
For I :=1 to 45 do
 write(f,i);
CloseFile(f);
  AssignFile(f,'inp.int');
Reset(f);
while not Eof(f) do
begin
  Read(f,i);
 Showmessage(IntToStr(i));
 end;
CloseFile(f);
end;

end.

[Тёма(C@$pEr)]

Да я как раз пробовал. Вот в отдельно созданном проекте сделал твой код ну немного изменив, хотел проверить что же он мне выведет из того файла где у меня простые числа в файле много удалил чего и оставил ток вот это:
2 ; 3 ; 5 ; 7 ; 11 ; 13 ; 17 ; 19 ; 23 ; 29 ; 31 ;
вот код

procedure TForm1.FormCreate(Sender: TObject);
var f:file of integer; i:integer;
begin
AssignFile(f,'C:\RSA\text.txt');
reset(f);
while not Eof(f) do
begin
Read(f,i);
Showmessage(IntToStr(i));
end;
CloseFile(f);
end;
end.

но он мне выводит какие то странные многозначные числа которых в файле нету, типа 540745778,540745779, 540745781 ,540745783 и т.д, а что это?

[ОДИНОЧЕСТВО В СЕТИ]

а что это?

Тёма(C@$pEr)

2 ; 3 ; 5 ; 7 ; 11 ; 13 ; 17 ; 19 ; 23 ; 29 ; 31 ;

мой вам совет почитайте про типизированные файлы
или откройте файлик 'inp.int' (создаваемый моим кодом) в блокноте и посмотрите чего вы там увидите!

[Тёма(C@$pEr)]

Ооо большое спасибо вижу что выводит то что надо. Обязательно повторю эту тему, как раз видимо её как то пропустил.

[AlexUnder88]

Ребята очень прошу помогите, выложите программу на делфи для шифрования и расшифрования RSA, просто 2 экзамена в 1 день и не успеваю...заранее спасибо всем кто откликнется.

[A_r_r_a_y]

у меня есть, но очень специфично сделано, нам препод сам придумывал хэш-функцию, и она в коде прописана, через интерфейс не меняется. Выкладывать?