Шифрование 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 раз больше чем должно)

[Кислый]

блин. у меня на этой строчке в си Ошибка сегментации ))
попробовал заменить на mpz_out_str(stdout, 32, r);
1 ) можешь описать назначение аргументов ? видимо я что-то не так понял..
2 ) снял лог функции RSAEncrypt в файл:

pack: maxno 123 (туча нулей не отображается тут)
sR : џ^g"8kъЫ
+qГ1˜zбИ=oбw°ч,ЪOS%A“й<®/Ї^˜;ќ§’fѕ8‰9њњц\PЅ™?}Щ$р *љlBСew53EMаY•Dе_8«V<¦Q ¦…‹„ЭІФЅѓЈ2ђaз4…юЋnЏъ(…Ч.№

у меня же mpz_out_str выдает керовину

[xkor]

procedure mpz_export(var rop, count; order, size, endian, nails: Cardinal; const op: mpz_t); cdecl;
rop - то куда экспортируем
count - сколько элементов импортируем
order - порядок экспорта (0 - от младшего к старшему, 1 - наоборот)
size - размер элемента в байтах
endian - порядок байт в элементах (как и order)
nails - а хер его знает, не помню...
op - откуда экспортируем

то есть я экспортирую в 128мибайтный результат (Result) 128байтное число (r) в виде 32ух 4хбайтных элементов от старшего байта к младшему)

Сообщение от Кислый

у меня же mpz_out_str выдает керовину

и в чем херовиность? что ты его просишь выдать то и выдаёт...

[Кислый]

kisly@kisly-desktop:~$ ./1234 MAXNI MAXNO
pack = MAXNI
rsakey = MAXNO

result = 9di3k1r6vd285o4h

Добавлено через 1 минуту
и чем отличается mpz_out_str от mpz_export ?

Добавлено через 1 минуту

и в чем херовиность?

в размере..
видимо я не ту функцию прошу.. )))

[xkor]

Сообщение от Кислый

и чем отличается mpz_out_str от mpz_export

mpz_out_str переводит число в строку в заданной системе счисления (причем 256ричная система не поддерживается)
mpz_export экспортирует число в память в бинарном виде
так что я хз чем они вообще похожи
а ещё я хз чего ты вообще пытаешь сделать, явно не авторизоваться на сервере линейки

[Кислый]

ну что ж так сразу)) ну я еще только учусь.. просто англ. плохо понимаю

[xkor]

Сообщение от Кислый

просто англ. плохо понимаю

а английский то тут вообще где?