Шифрование RSA

[Кислый]

приведенному мною коду

pack = 123AAA45M
rsakey = 1123456789ABCDEF
результат = 0 | размер 1
F

pack = 123AAA45F
rsakey = 1123456789ABCDEF
результат = 100ef4fc65feff86 | размер 16
F

Добавлено через 1 час 1 минуту
xkor,
какие функции ты использовал ?
у меня мысть уже была организовать перевод str2hex, но это повлечет за собой необоснованное увеличение длинны pack

была мысль

Добавлено через 1 минуту
была мысль выставить base = 256, но выдает на гора ошибку :

Исключение в операции с плавающей точкой

[xkor]

Кислый, у меня так:

function RSAEncrypt_GMP(login, psw: AnsiString; var rsakey): TBytes;
var
  sD: AnsiString;
  m,d,r: mpz_t;
  count: Integer;
begin
  RSAkeyDecode(rsakey);
  if length(login)>14 then setlength(login,14);
  while length(login)<14 do login:=login+#0;
  if length(psw)>16 then setlength(psw,16);
  while length(psw)<16 do psw:=psw+#0;
  sD:=#$24#0#0+login+psw+#0#0#0#0;
  mpz_init(m);
  mpz_import(m,128,1,1,0,0,rsakey);
  mpz_init(d);
  mpz_import(d,Length(sD),1,1,0,0,sD[1]);
  mpz_init(r);
  mpz_powm_ui(r,d,65537,m);
  count:=32;
  SetLength(Result,128);
  mpz_export(Result[0],count,1,4,1,0,r);
  mpz_clear(r);
  mpz_clear(d);
  mpz_clear(m);
end;

[Кислый]

Ггг

и работает ?

Добавлено через 2 часа 0 минут
у меня просто твой код запарывается на

mpz_export(Result[0],count,1,4,1,0,r);

мегешь обьяснить почему ты именно эти аргументы пердаешь ?

[xkor]

Кислый, работет, не первый год, а почему должны быть не эти аргументы?)
можно в принципе count сделать не 32 а 128 и вместо 4 написать 1, но тогда если старший байт будет нулевым, что весьма вероятно, то Result будет в 256 раз больше чем должно)