using System;
using DidiSoft.Pgp;

class KeyStoreSignString
{
    public void Demo()
    {
        // initialize the key store
        KeyStore ks = new KeyStore(@"DataFiles\key.store", "key store password");

        long signingKeyId = ks.GetKeyIdForKeyIdHex("8BA4CF8F");
        string signingKeyPassword = "password";

        // if this key store contains a key with the desired recipient userId - encrypt,
        // otherwise notify that there is no such key
        PGPLib pgp = new PGPLib();

        string plainText = "Hello World";
        string signedString = pgp.SignString(plainText, ks, 
                                             signingKeyUserId,
                                             signingKeyPassword);
    }
}

Imports System
Imports DidiSoft.Pgp

Class KeyStoreSignString
    Public Sub Demo()
        ' initialize the key store
        Dim ks As New KeyStore("DataFiles\key.store", "key store password")

        Dim signingKeyId As Long = ks.GetKeyIdForKeyIdHex("8BA4CF8F")
        Dim signingKeyPassword As String = "password"

        Dim pgp As New PGPLib()

        Dim plainText As String = "Hello World"
        Dim signedString As String = pgp.SignString(plainText, ks, signingKeyUserId, signingKeyPassword)
    End Sub
End Class