Unicode C

IMAP over Multiple Hop SSH

Demonstrates how to read IMAP email (using TCP or TLS) tunneled through mulitple-hop SSH. The scheme looks like this:

Application => ServerSSH1 => ServerSSH2 => IMAPServer

The ConnectThroughSsh and UseSsh methods are added in Chilkat version 9.5.0.55 to accomplish this task.

Unicode C

#include <C_CkSshW.h>
#include <C_CkImapW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkSshW ssh1;
    HCkSshW ssh2;
    HCkImapW imap;

    success = FALSE;

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    ssh1 = CkSshW_Create();

    // Connect directly to the 1st SSH server.
    success = CkSshW_Connect(ssh1,L"serverssh1.com",22);
    if (success != TRUE) {
        wprintf(L"%s\n",CkSshW_lastErrorText(ssh1));
        CkSshW_Dispose(ssh1);
        return;
    }

    // Authenticate using login/password:
    success = CkSshW_AuthenticatePw(ssh1,L"ssh1Login",L"ssh1Password");
    if (success != TRUE) {
        wprintf(L"%s\n",CkSshW_lastErrorText(ssh1));
        CkSshW_Dispose(ssh1);
        return;
    }

    // Connect through the 1st SSH connection to reach a 2nd SSH server.
    // Note: Any number of SSH connections may be simultaneously tunneled through a single
    // existing SSH connection.
    ssh2 = CkSshW_Create();
    success = CkSshW_ConnectThroughSsh(ssh2,ssh1,L"serverssh2.com",22);
    if (success != TRUE) {
        wprintf(L"%s\n",CkSshW_lastErrorText(ssh2));
        CkSshW_Dispose(ssh1);
        CkSshW_Dispose(ssh2);
        return;
    }

    // Authenticate with ssh2...
    success = CkSshW_AuthenticatePw(ssh2,L"ssh2Login",L"ssh2Password");
    if (success != TRUE) {
        wprintf(L"%s\n",CkSshW_lastErrorText(ssh2));
        CkSshW_Dispose(ssh1);
        CkSshW_Dispose(ssh2);
        return;
    }

    imap = CkImapW_Create();

    // Tell the IMAP object to connect to the IMAP server though the ssh2 tunnel (which itself is routed through ssh1).
    // The connection looks like this:  Application => ServerSSH1 => ServerSSH2 => IMAPServer
    success = CkImapW_UseSsh(imap,ssh2);
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkSshW_Dispose(ssh1);
        CkSshW_Dispose(ssh2);
        CkImapW_Dispose(imap);
        return;
    }

    CkImapW_putSsl(imap,TRUE);
    CkImapW_putPort(imap,993);

    // Connect to an IMAP server (through the multi-hop SSH tunnel)
    success = CkImapW_Connect(imap,L"imap.someimapserver.com");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkSshW_Dispose(ssh1);
        CkSshW_Dispose(ssh2);
        CkImapW_Dispose(imap);
        return;
    }

    // Login
    success = CkImapW_Login(imap,L"myLogin",L"myPassword");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkSshW_Dispose(ssh1);
        CkSshW_Dispose(ssh2);
        CkImapW_Dispose(imap);
        return;
    }

    // Do whatever needs to be done...  for example,

    // Create the new email folder (sub-mailbox) on the IMAP server.
    // If no folder path is provided, the new folder is a sub-mailbox of Inbox.
    success = CkImapW_CreateMailbox(imap,L"newFolder");
    if (success != TRUE) {
        wprintf(L"%s\n",CkImapW_lastErrorText(imap));
        CkSshW_Dispose(ssh1);
        CkSshW_Dispose(ssh2);
        CkImapW_Dispose(imap);
        return;
    }

    wprintf(L"Success.\n");

    // Close the connection with the IMAP server.  (This closes the tunnel through ssh2)
    // The connection with ssh2 is still alive, and may be used for more connections.
    success = CkImapW_Disconnect(imap);

    // Close the connection with ssh2.  (This closes the the tunnel through ssh1.)
    // The connection with ssh1 is still alive, and may be used for more connections.
    CkSshW_Disconnect(ssh2);

    CkSshW_Disconnect(ssh1);


    CkSshW_Dispose(ssh1);
    CkSshW_Dispose(ssh2);
    CkImapW_Dispose(imap);

    }