str = CryptEncryptMessage(EncryptPara, RecipientCert , ToBeEncrypted )
Encrypts and encodes a message