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

procedure TRSACalculator.Calculate(const Plaintext,Modulus: ANSIString;  var Ciphertext: ANSIString);
var i:integer;
begin
  i:=0;
  while busy do begin
    inc(i);
    if i>1000 then exit;
    sleep(50);
    Application.ProcessMessages;
  end;
  //
  Password.setAttribute('value',Plaintext,0);    
  ModulusE.setAttribute('value',Modulus,0);
  web.RunJS('Go();');
  Ciphertext:=CiphertextE.getAttribute('value',0);
end;
 
constructor TRSACalculator.Create(form: TForm);
begin
  busy:=true;
  p:=TPanel.Create(Form);
  p.Parent:=Form;
  web:=TWebBrowser.Create(p);
  web.Visible:=false;
  TWinControl(web).Parent:=p;
  p.Height:=0;
  p.Width:=0;
  web.OnDocumentComplete:=self.WebDocumentComplete;
  web.OnBeforeNavigate2:=self.WebNavigate2;
  web.Navigate(iniName);
 
end;

authkey = 'DE2C23F5B87C4535CF1241B85ED5DC9C97E2E2A9C411B93F417718D92D4F0294A37A36E8FF1C346FCB56426405F0CEB59C6BA21EC5C70F046930B800E830091F62F7B76252458FAB026A0F8ACF59246203EFCA254C057C55A648385A9E27D29BD0F83802C1C55091884A048E34DBEF316B0AF9B2199CE2B6C81F258F45E8944CB0F122B4BF2757BD881CE967EC7B5346F7469E8C8F7FE0AAEDBC9B7B3001886B6D50641961F5CF0D160BD5E7D1BF55D1BAFF89080257734D06C171AE3AD69708ACBA119AE5D1DDF1199784170FCF586E982ADB502057C4910ED6FB52E26CF137B247DB47A9486140B8BF385113C4578D0749E254E19062CBE4139E09FBE60775';
kexp:='010001';
Base256StringToFGInt(authkey,authkeys);//BASE 256
Base10StringToFGInt(kexp,kexps);//binary
rsaencrypt('password_here', authkeys, kexps, passw);

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;