How to add private key whileencrypting using bouncy castle

See more:

VB

Hi all,

I am new to bouncy castle, and i tried to encrypt the file using publickey in bouncy castle, but after encrypting client can't decrypt file, it shows error privatekey not found, i traced the problem in signature generator,kindly help me with this problem

What I have tried:

Private Function InitSignatureGenerator(ByVal compressedOut As Stream) As PgpSignatureGenerator
           Const IsCritical As Boolean = False
           Const IsNested As Boolean = False
           Dim tag As PublicKeyAlgorithmTag = m_encryptionKeys.SecretKey.PublicKey.Algorithm
           Dim pgpSignatureGenerator As New PgpSignatureGenerator(tag, HashAlgorithmTag.Sha1)

           pgpSignatureGenerator.InitSign(PgpSignature.BinaryDocument, m_encryptionKeys.PrivateKey)
           For Each userId As String In m_encryptionKeys.SecretKey.PublicKey.GetUserIds()
               Dim subPacketGenerator As New PgpSignatureSubpacketGenerator()
               subPacketGenerator.SetSignerUserId(IsCritical, userId)
               pgpSignatureGenerator.SetHashedSubpackets(subPacketGenerator.Generate())


               Exit For
           Next
           pgpSignatureGenerator.GenerateOnePassVersion(IsNested).Encode(compressedOut)
           Return pgpSignatureGenerator
       End Function