Private Sub EncryptRSAWithPublicKey(Text As String,PublicKey As String) As String
Dim su As StringUtils
Dim pubkey() As Byte = su.DecodeBase64(PublicKey)
Dim Enc As Cipher
Enc.Initialize("RSA")
Dim kpg As KeyPairGenerator
kpg.Initialize("RSA", 1024)
kpg.PublicKeyFromBytes(pubkey)
Dim bytes() As Byte = Text.GetBytes("UTF8")
Return su.EncodeBase64(Enc.Encrypt(bytes,kpg.PublicKey,False))
End Sub