Шифрование RSA по публичному ключу

[lastell]

Имеется 1 публичный ключ и текст. Нужно зашифровать текст по методу RSA

Пример того, что надо:
http://www.sources.ru/csharp/RSACryptoPad.html

Но только для delphi

Облазил весь google, но ничего дельного вообще не нашёл

Есть варианты?

[Человек_Борща]

DCrypt пакет ни разу не видели? Значит вообще гугл не открывали.

[lastell]

DCrypt

А он тут при чём? Что-то я вообще на нём не видел реализации rsa шифрования текста.

[саша40]

Сообщение от lastell

Есть варианты?

Для начала в википедию: https://ru.wikipedia.org/wiki/RSA
Там берешь алгоритм и уже его переводишь на любой удобный тебе язык программирования.
За тебя тут работать не будут, пора самим уже башкой поработать!

[lastell]

Сообщение от саша40

Для начала в википедию: https://ru.wikipedia.org/wiki/RSA
Там берешь алгоритм и уже его переводишь на любой удобный тебе язык программирования.
За тебя тут работать не будут, пора самим уже башкой поработать!

Не можете помочь, удалитесь с темы, пожалуйста

Нужен готовый пример..

[Stilet]

Вообще-то примера у меня нет.
Однако тема обсуждалась: http://www.programmersforum.ru/showthread.php?p=954007
http://www.programmersforum.ru/showthread.php?t=118154
Так что в гугле ты не был.

[lastell]

17:01
В результате шифрования должно быть вроде этого:
http://www.sources.ru/csharp/RSACryptoPad.png

17:10

Сообщение от Stilet

Вообще-то примера у меня нет.
Однако тема обсуждалась: http://www.programmersforum.ru/showthread.php?p=954007
http://www.programmersforum.ru/showthread.php?t=118154
Так что в гугле ты не был.

Не нашёл ничего, что нужно именно мне

17:35
Пожалуйста, очень нужно готовое решение!

17:43

function RSAEncrypt(Source: String; Key: RawByteString): RawByteString;
var
  KeyPair: TStringStream;
  RSA: HCRYPTPROV;
  HPair: HCRYPTKEY;
  DDataSize, EDataSize: DWORD;

begin
  Result := '';
  KeyPair := TStringStream.Create(Key);
  if CryptAcquireContext(@RSA, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) then
  try
    if CryptImportKey(RSA, PByte(KeyPair.Memory), KeyPair.Size, 0, 0, @HPair) then
    try
      EDataSize := SizeOf(Source);
      if CryptEncrypt(HPair, 0, true, 0, nil, @EDataSize, 0) then
      begin
        Result := Source;
        SetLength(Result, EDataSize);
        DDataSize := Length(Source) * SizeOf(Char);
        if not(CryptEncrypt(HPair, 0, True, 0, PByte(PChar(Result)), @DDataSize, EDataSize)) then
          Result := '';
      end;
    finally
      CryptDestroyKey(HPair);
    end;
  finally
  CryptReleaseContext(RSA, 0);
  end;
  FreeAndNil(KeyPair);
end;

Есть приблизительный код, но он не работает, результата вообще нет

Форум не чат, не плоди подряд кучу сообщений, есть кнопка правка

[lastell]

Так и не нашёл решения

[Serge_Bliznykov]

Сообщение от lastell

В результате шифрования должно быть вроде этого:

на скриншоте явно представлен результат кодирования в base64.
Т.е. вам нужно зашифрованную информацию прогнать через Base64 Encode

[lastell]

на скриншоте явно представлен результат кодирования в base64.
Т.е. вам нужно зашифрованную информацию прогнать через Base64 Encode

Спасибо. Но мне сначала тогда rsa шифрование нужно и сервер для этого даёт свой публичный ключ: publickey_mod