шифр эль гамаля на Delphi

[Athen]

Доброго времени суток!
хочу спросить, кто-нибудь может делал такой шифр или знает как его сделать? помогите исправить ошибки!
пыталась в ручную вводить переменные, и генерировать их, но почему-то дешифрация не правильно идет, может формулы не такие?

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

тут есть реализация

[Athen]

фигня это то что там есть....
в инете вообще никакого вразумительного примера реализации нет
здесь надо, чтобы кто-то посмотрел программу и сказал, что не так

[Athen]

ну что есть здесь программисты настоящие?
что никто не может ничего вразумительного написать?

[Athen]

если кто-то знает, но лень вникать, исправьте пожалуйста, я могу денег на телефон или на интернет положить!

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

Mm:=Round(b*Power(a,X)) mod P;

нужно заменить на

Mm:=Round(b/Power(a,X)) mod P;

так как в алгоритме

M = (b/a^X) (mod P)

во вторых у вас неправильно генерируется число p - оно должно быть простым: из алгоритма

выбирают некоторое большое простое число P

у меня выпало 38
p.s вашу прогу проще переписать чем исправить!

[Athen]

если ошибка только в этом, то почему просто методом ручной подстановки расшифровка тоже неверна?

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

может где то еще косяк в ваших функциях я сильно не вникала?
так как повторюсь

вашу прогу проще переписать чем исправить!

[Parmedoor]

Mm:=Round(b*Power(a,X)) mod P;
нужно поменять на
Mm:=(b*Power(a,p-1-x)) mod P;
программа заработает

[NOOOVI]

воспользовался данной программой, ибо, задание надо сделать, после замены предложенной Parmedoor, программа перестала генерировать =(