Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Perl) IMAP over Multiple Hop SSHDemonstrates 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.
use chilkat(); # This example assumes the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $ssh1 = chilkat::CkSsh->new(); # Connect directly to the 1st SSH server. $success = $ssh1->Connect("serverssh1.com",22); if ($success != 1) { print $ssh1->lastErrorText() . "\r\n"; exit; } # Authenticate using login/password: $success = $ssh1->AuthenticatePw("ssh1Login","ssh1Password"); if ($success != 1) { print $ssh1->lastErrorText() . "\r\n"; exit; } # 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 = chilkat::CkSsh->new(); $success = $ssh2->ConnectThroughSsh($ssh1,"serverssh2.com",22); if ($success != 1) { print $ssh2->lastErrorText() . "\r\n"; exit; } # Authenticate with ssh2... $success = $ssh2->AuthenticatePw("ssh2Login","ssh2Password"); if ($success != 1) { print $ssh2->lastErrorText() . "\r\n"; exit; } $imap = chilkat::CkImap->new(); # 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 = $imap->UseSsh($ssh2); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } $imap->put_Ssl(1); $imap->put_Port(993); # Connect to an IMAP server (through the multi-hop SSH tunnel) $success = $imap->Connect("imap.someimapserver.com"); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } # Login $success = $imap->Login("myLogin","myPassword"); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } # 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 = $imap->CreateMailbox("newFolder"); if ($success != 1) { print $imap->lastErrorText() . "\r\n"; exit; } print "Success." . "\r\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 = $imap->Disconnect(); # 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. $ssh2->Disconnect(); $ssh1->Disconnect(); |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.