Алгоритм RSA

[danek130995]

Serge_Bliznykov, все работает, спасибо. Скажите пожалуйста, что Вы сделали и почему раньше не работало?

[Serge_Bliznykov]

я сделал так, чтобы эти функции работали так же, как в вашем исходном примере!
и ничего более того.

чтобы функция bukvatocifra(bukva: char): integer;
для 'A' возвращала код 1
для 'B' возвращала код 2
...
для 'Y' возвращала код 25
для 'Z' возвращала код 26

и функция cifratobukva
для кода 1 возвращала букву 'A'
для кода 2 возвращала букву 'B'
для кода 3 возвращала букву 'C'
для кода 4 возвращала букву 'D'
...
для кода 26 возвращала букву 'Z'

для решения я воспользовался тем фактом, что коды латиницы идут подряд.
поэтому, чтобы получить номер буквы, нужно от номера (кода) буквы в кодовой таблице отнять код буквы 'A' и прибавить к этому коду единичку (иначе нумерация будет от нуля).
а чтобы из номера буквы получить её символ нужно сделать обратное действие - отнять единицу и прибавить код буквы 'A' в кодовой таблице.

вот и всё!

[danek130995]

Serge_Bliznykov, а, ну да, точно, я просто забыл, что у меня цифра А это должно быть 1. Я просто хотел сделать, чтобы он кодировал букву А, начиная с 30, B - с 31. И соответственно возвращала тоже чтобы 30 и 31.. Но для этого нужно указать большие p и q. А когда я их указываю большими, программа зацикливается навсегда. Следовательно, выход один - использовать Ваш вариант. Спасибо!