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) POP3 Login SecureDemonstrates how to set the POP3 password using a secure string. This example requires Chilkat v9.5.0.71 or greater.
use chilkat(); # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. $mailman = chilkat::CkMailMan->new(); # Imagine we've previously saved our encrypted login and password within a JSON config file # that contains this: # { # "pop3_login": "D7lnlWY291LKMeChlvQq7N/Tg7ieuSB15a+9Ekyd0R4=", # "pop3_password": "5neIq9Jmn0E3p71N6Yc8TA==" # } $json = chilkat::CkJsonObject->new(); $json->LoadFile("qa_data/passwords/pop3.json"); $crypt = chilkat::CkCrypt2->new(); # These are the encryption settings we previously used to encrypt the credentials within the JSON config file. $crypt->put_CryptAlgorithm("aes"); $crypt->put_CipherMode("cbc"); $crypt->put_KeyLength(128); $crypt->SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex"); $crypt->SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex"); $crypt->put_EncodingMode("base64"); $ssLogin = chilkat::CkSecureString->new(); $ssPassword = chilkat::CkSecureString->new(); # Decrypt to the secure string. (the strings will still held in memory encrypted, but are now encrypted using # a randomly generated session key.) $crypt->DecryptSecureENC($json->stringOf("pop3_login"),$ssLogin); $crypt->DecryptSecureENC($json->stringOf("pop3_password"),$ssPassword); # Set the POP3 domain, login, and password $mailman->put_MailHost("pop.gmail.com"); $mailman->put_PopSsl(1); $mailman->put_MailPort(995); $mailman->put_PopUsername($ssLogin->access()); # Set the PopPassword property via the SetPassword method using the secure string. $mailman->SetPassword("pop3",$ssPassword); # Connect and authenticate.. $success = $mailman->Pop3Connect(); if ($success != 1) { print $mailman->lastErrorText() . "\r\n"; exit; } $success = $mailman->Pop3Authenticate(); if ($success != 1) { print $mailman->lastErrorText() . "\r\n"; exit; } print "POP3 login successful." . "\r\n"; $numMessages = $mailman->GetMailboxCount(); if ($numMessages < 0) { print $mailman->lastErrorText() . "\r\n"; exit; } print "Num messages in Inbox = " . $numMessages . "\r\n"; $mailman->Pop3EndSession(); |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.