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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)