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