Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > RSA, 2048 бит

Автор: longuser 6.12.2013, 15:10

Народ, помогите, замучился уже. smile

Получаю от сервера public modulus и public exponent, используя их мне нужно зашифровать свой пароль. Modulus - строка длиной в 512 символов, т.е. 2048 бит.
Искал готовые классы, которые не требуют сторонних библиотек, нашёл некий LockBox, версию 2 и 3. Вторая версия попроще, как я понял. Код для второй версии:

Код


function EncryptRSA(const ClearText, Exponent, Modulus: String): String;
var
  RSA: TLbRSA;
begin
  RSA := TLbRSA.Create(nil);
  try
    RSA.KeySize:=aks1024;
    RSA.PublicKey.ExponentAsString := Exponent;
    RSA.PublicKey.ModulusAsString := Modulus;
    Result := RSA.EncryptString(ClearText);
  finally
    FreeAndNil(RSA);
  end;
end;

Вроде бы всё просто, и должно работать, но вторая версия LockBox`а не поддерживает ключи больше 1024 бита.
Третья версия уж слишком мудрёная, примеров нет толком, так и не разобрался в ней.
Вот как-то так.
В шифровании я дуб, поэтому готовый пример был бы очень кстати.