请问大家有RSA1024位加密解密算法
请问大家有RSA1024位加密解密算法吗？麻烦大家指点一下吧。我这里搜索了两周了还没有找到，实在是感觉自己效率太低了。
原来找到的好像都不是很好用。

Delphi(Pascal) code

function TLbRSA.EncryptString(const InString : string) : string;  { encrypt string data with RSA public key }begin  Result := RSAEncryptString(InString, FPublicKey, True);end;{ -------------------------------------- }procedure TLbRSA.GenerateKeyPair;  { generate RSA public/private key pair }begin  if Assigned(FPrivateKey) then    FPrivateKey.Free;  if Assigned(FPublicKey) then    FPublicKey.Free;  try    GenerateRSAKeysEx(FPrivateKey, FPublicKey, FKeySize,      FPrimeTestIterations, RSACallback);  except    raise Exception.Create(sRSAKeyPairErr);  end;end;{ -------------------------------------- }function TLbRSA.OutBufSizeNeeded(InBufSize : Cardinal) : Cardinal;  { return size of ciphertext buffer required to encrypt plaintext InBuf }var  BlkCount : Cardinal;begin  BlkCount := InBufSize div cRSAPlainBlockSize[FKeySize];            {!!.02}  if (InBufSize mod cRSAPlainBlockSize[FKeySize]) > 0 then           {!!.02}    Inc(BlkCount);  Result := BlkCount * cRSACipherBlockSize[FKeySize];                {!!.02}end;{ -------------------------------------- }procedure TLbRSA.RSACallback(var Abort : Boolean);  { pass callback on via OnProgress event }begin  Abort := False;  if Assigned(FOnProgress) then    FOnProgress(Self, Abort);end;{ -------------------------------------- }{!!.02}procedure TLbRSA.SetKeySize(Value : TLbAsymKeySize);begin  FKeySize := Value;  FPublicKey.KeySize := FKeySize;  FPrivateKey.KeySize := FKeySize;end;

[解决办法]
顶，顶，顶

关注
[解决办法]
以前记得用过一个控件包含了rsa加密算法，使用也很简单，不过很就不搞加密了，忘记了，Lz去delphi盒子搜一下吧
[解决办法]
skkbhN:='9876543210123626';
这种写法，比人用MADEDIT一下就看到了密码了。
我一般都是模数，公钥，等用数字分开写。