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
(Tcl) SMTP Login SecureDemonstrates how to set the SMTP password using a secure string. This example requires Chilkat v9.5.0.71 or greater.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set mailman [new_CkMailMan] # Imagine we've previously saved our encrypted login and password within a JSON config file # that contains this: # { # "smtp_login": "D7lnlWY291LKMeChlvQq7N/Tg7ieuSB15a+9Ekyd0R4=", # "smtp_password": "5neIq9Jmn0E3p71N6Yc8TA==" # } set json [new_CkJsonObject] CkJsonObject_LoadFile $json "qa_data/passwords/smtp.json" set crypt [new_CkCrypt2] # These are the encryption settings we previously used to encrypt the credentials within the JSON config file. CkCrypt2_put_CryptAlgorithm $crypt "aes" CkCrypt2_put_CipherMode $crypt "cbc" CkCrypt2_put_KeyLength $crypt 128 CkCrypt2_SetEncodedKey $crypt "000102030405060708090A0B0C0D0E0F" "hex" CkCrypt2_SetEncodedIV $crypt "000102030405060708090A0B0C0D0E0F" "hex" CkCrypt2_put_EncodingMode $crypt "base64" set ssLogin [new_CkSecureString] set ssPassword [new_CkSecureString] # Decrypt to the secure string. (the strings will still held in memory encrypted, but are now encrypted using # a randomly generated session key.) CkCrypt2_DecryptSecureENC $crypt [CkJsonObject_stringOf $json "smtp_login"] $ssLogin CkCrypt2_DecryptSecureENC $crypt [CkJsonObject_stringOf $json "smtp_password"] $ssPassword # Set the SMTP domain, login, and password CkMailMan_put_SmtpHost $mailman "smtp.gmail.com" CkMailMan_put_SmtpSsl $mailman 1 CkMailMan_put_SmtpPort $mailman 465 CkMailMan_put_SmtpUsername $mailman [CkSecureString_access $ssLogin] # Set the SmtpPassword property via the SetPassword method using the secure string. CkMailMan_SetPassword $mailman "smtp" $ssPassword # Connect and authenticate.. set success [CkMailMan_SmtpConnect $mailman] if {$success != 1} then { puts [CkMailMan_lastErrorText $mailman] delete_CkMailMan $mailman delete_CkJsonObject $json delete_CkCrypt2 $crypt delete_CkSecureString $ssLogin delete_CkSecureString $ssPassword exit } set success [CkMailMan_SmtpAuthenticate $mailman] if {$success != 1} then { puts [CkMailMan_lastErrorText $mailman] delete_CkMailMan $mailman delete_CkJsonObject $json delete_CkCrypt2 $crypt delete_CkSecureString $ssLogin delete_CkSecureString $ssPassword exit } puts "SMTP login successful." # ... CkMailMan_CloseSmtpConnection $mailman delete_CkMailMan $mailman delete_CkJsonObject $json delete_CkCrypt2 $crypt delete_CkSecureString $ssLogin delete_CkSecureString $ssPassword |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.