Шифрование текста

[Valimer]

Здравствуйте, столкнулся с проблемой, нужно сделать это:
есть Publickmod и exp=010001
нужно текст шифровать в RSA при помощи данных выше

Помогите кодом, думаю тема уже заезженная, поэтому функции нет, ковылял в гугле и Яндексе, но что-то или плохо искал или ничего не нашёл, буду рад если поможете кодом

Собственно есть функция:

function EncryptString(source: 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
    if not(CryptAcquireContext(RSA, nil, nil, PROV_RSA_FULL,
      CRYPT_VERIFYCONTEXT)) then
      ShowMessage(IntToStr(GetLastError) + ' CryptAcquireContext');
 
    // Импортируем ключ
    KeyPair.LoadFromFile('pair.dat');
    if not(CryptImportKey(RSA, PByte(KeyPair.Memory), KeyPair.Size, 0, 0,
      HPair)) then
      ShowMessage(IntToStr(GetLastError) + ' CryptImportKey');
 
    // Готовим буфер
EDataSize := SizeOf(source);
if not(CryptEncrypt(HPair, 0, true, 0, nil, EDataSize, 0)) then
ShowMessage(IntToStr(GetLastError) + ' CryptEncrypt 1');
result:=source;
SetLength(result,EDataSize);
DDataSize := length(source);
if not(CryptEncrypt(HPair, 0, true, 0, PByte(PChar(result)), DDataSize, EDataSize)) then
      ShowMessage(IntToStr(GetLastError) + ' CryptEncrypt 2');
 
    Result := DecryptedData.DataString;
 
    // Освобождаем занятые ресурсы
    FreeAndNil(DecryptedData);
    FreeAndNil(EncryptedData);
    FreeAndNil(KeyPair);
    CryptDestroyKey(HPair);
    CryptReleaseContext(RSA, 0);
  end;

Но пишет что

RSA: HCRYPTPROV;
HPair: HCRYPTKEY;
Не известные идентификаторы

пытался подключить Chilkat ActiveX, но не получилось

Кто поможет буду благодарен и возможно заплачу некую сумму

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[PTyTb32]

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

Здравствуйте, столкнулся с проблемой, нужно сделать это:
есть Publickmod и exp=010001
нужно текст шифровать в RSA при помощи данных выше

Помогите кодом, думаю тема уже заезженная, поэтому функции нет, ковылял в гугле и Яндексе, но что-то или плохо искал или ничего не нашёл, буду рад если поможете кодом

Собственно есть функция:

function EncryptString(source: 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
    if not(CryptAcquireContext(RSA, nil, nil, PROV_RSA_FULL,
      CRYPT_VERIFYCONTEXT)) then
      ShowMessage(IntToStr(GetLastError) + ' CryptAcquireContext');
 
    // Импортируем ключ
    KeyPair.LoadFromFile('pair.dat');
    if not(CryptImportKey(RSA, PByte(KeyPair.Memory), KeyPair.Size, 0, 0,
      HPair)) then
      ShowMessage(IntToStr(GetLastError) + ' CryptImportKey');
 
    // Готовим буфер
EDataSize := SizeOf(source);
if not(CryptEncrypt(HPair, 0, true, 0, nil, EDataSize, 0)) then
ShowMessage(IntToStr(GetLastError) + ' CryptEncrypt 1');
result:=source;
SetLength(result,EDataSize);
DDataSize := length(source);
if not(CryptEncrypt(HPair, 0, true, 0, PByte(PChar(result)), DDataSize, EDataSize)) then
      ShowMessage(IntToStr(GetLastError) + ' CryptEncrypt 2');
 
    Result := DecryptedData.DataString;
 
    // Освобождаем занятые ресурсы
    FreeAndNil(DecryptedData);
    FreeAndNil(EncryptedData);
    FreeAndNil(KeyPair);
    CryptDestroyKey(HPair);
    CryptReleaseContext(RSA, 0);
  end;

Но пишет что

RSA: HCRYPTPROV;
HPair: HCRYPTKEY;
Не известные идентификаторы

пытался подключить Chilkat ActiveX, но не получилось

Кто поможет буду благодарен и возможно заплачу некую сумму

BB - коды юзай!

[Serge_Bliznykov]

если я правильно понимаю, то Вы используете Windows CryptoAPI
поэтому, его нужно подключить к программе (в виде модуля).

например, так:

please note to compile the code above you need header files for Crypt API. for example, you may use the wcrypt2.pas unit which is available at ftp://ftp.delphi-jedi.org/api/CryptoAPI2.zip

взято отсюда (кстати, там полезно почитать статьи...)