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

[lastell]

Попробовал сделать так и + осуществил кодировку в BASE64(так требуется), текст получается неверным

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

Либо используйте готовое Crypto API от MS(Стилет ссылок накидал), либо пишите по RFC с нуля сами. Недоделки дописывать и так тяжко, а в случае шифрования ещё и повесится хочется.

[lastell]

Сообщение от Человек_Борща

Либо используйте готовое Crypto API от MS(Стилет ссылок накидал), либо пишите по RFC с нуля сами. Недоделки дописывать и так тяжко, а в случае шифрования ещё и повесится хочется.

Я попробовал использовать по тем примерам, что дали (cryptoapi), но ничего не получилось.

[lastell]

Пользуюсь этим:

function EncryptString(source: string;key: string): string;
  var
    DecryptedData, EncryptedData, KeyPair: TStringStream;
    RSA: HCRYPTPROV;
    HPair: HCRYPTKEY;
    DDataSize, EDataSize: DWORD;
  begin
    DecryptedData := TStringStream.Create(source);
    EncryptedData := TStringStream.Create;
    KeyPair := TStringStream.Create;

    // Инициализаируем CryptoAPI
    CryptAcquireContext(@RSA, nil, nil, PROV_RSA_FULL,
      CRYPT_VERIFYCONTEXT);

    // Импортируем ключ
    KeyPair.WriteString(key);
    CryptImportKey(RSA, PByte(KeyPair.Memory), KeyPair.Size, 0, 0,
      @HPair);

    // Готовим буфер
     DecryptedData.SetSize(DDataSize);
    DDataSize := Length(source);
    CopyMemory(DecryptedData.Memory, pointer(source), DDataSize);
     EDataSize := SizeOf(source);
    CryptEncrypt(HPair, 0, true, 0, nil, @EDataSize, 0);

    // Шифруем
    DDataSize := DecryptedData.Size;
    CryptEncrypt(HPair, 0, true, 0, PByte(DecryptedData.Memory),
      @DDataSize, EDataSize);

    Result := DecryptedData.DataString;

    // Освобождаем занятые ресурсы
    FreeAndNil(DecryptedData);
    FreeAndNil(EncryptedData);
    FreeAndNil(KeyPair);
    CryptDestroyKey(HPair);
    CryptReleaseContext(RSA, 0);
  end;

Результат неверен!

Пробую это:

function EncryptString(source: string;key: string): string;
  var
    DecryptedData, EncryptedData, KeyPair: TStringStream;
    RSA: HCRYPTPROV;
    HPair: HCRYPTKEY;
    DDataSize, EDataSize: DWORD;
  begin
    DecryptedData := TStringStream.Create(source);
    EncryptedData := TStringStream.Create;
    KeyPair := TStringStream.Create;

    // Инициализаируем CryptoAPI
    CryptAcquireContext(@RSA, nil, nil, PROV_RSA_FULL,
      CRYPT_VERIFYCONTEXT);

    // Импортируем ключ
    KeyPair.WriteString(key);
    CryptImportKey(RSA, PByte(KeyPair.Memory), KeyPair.Size, 0, 0,
      @HPair);

    // Готовим буфер
    EDataSize := SizeOf(source);
    CryptEncrypt(HPair, 0, true, 0, nil, @EDataSize, 0);

    // Шифруем
    DDataSize := DecryptedData.Size;
    CryptEncrypt(HPair, 0, true, 0, PByte(DecryptedData.Memory),
      @DDataSize, EDataSize);

    Result := DecryptedData.DataString;

    // Освобождаем занятые ресурсы
    FreeAndNil(DecryptedData);
    FreeAndNil(EncryptedData);
    FreeAndNil(KeyPair);
    CryptDestroyKey(HPair);
    CryptReleaseContext(RSA, 0);
  end;

Результат тоже неверен