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
(SQL Server) POP3 Login SecureDemonstrates how to set the POP3 password using a secure string. This example requires Chilkat v9.5.0.71 or greater.
// Important: See this note about string length limitations for strings returned by sp_OAMethod calls. // CREATE PROCEDURE ChilkatSample AS BEGIN DECLARE @hr int DECLARE @sTmp0 nvarchar(4000) -- This example requires the Chilkat API to have been previously unlocked. -- See Global Unlock Sample for sample code. DECLARE @mailman int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.MailMan', @mailman OUT IF @hr <> 0 BEGIN PRINT 'Failed to create ActiveX component' RETURN END DECLARE @success int -- 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==" -- } DECLARE @json int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.JsonObject', @json OUT EXEC sp_OAMethod @json, 'LoadFile', @success OUT, 'qa_data/passwords/pop3.json' DECLARE @crypt int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Crypt2', @crypt OUT -- These are the encryption settings we previously used to encrypt the credentials within the JSON config file. EXEC sp_OASetProperty @crypt, 'CryptAlgorithm', 'aes' EXEC sp_OASetProperty @crypt, 'CipherMode', 'cbc' EXEC sp_OASetProperty @crypt, 'KeyLength', 128 EXEC sp_OAMethod @crypt, 'SetEncodedKey', NULL, '000102030405060708090A0B0C0D0E0F', 'hex' EXEC sp_OAMethod @crypt, 'SetEncodedIV', NULL, '000102030405060708090A0B0C0D0E0F', 'hex' EXEC sp_OASetProperty @crypt, 'EncodingMode', 'base64' DECLARE @ssLogin int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.SecureString', @ssLogin OUT DECLARE @ssPassword int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.SecureString', @ssPassword OUT -- Decrypt to the secure string. (the strings will still held in memory encrypted, but are now encrypted using -- a randomly generated session key.) EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'pop3_login' EXEC sp_OAMethod @crypt, 'DecryptSecureENC', @success OUT, @sTmp0, @ssLogin EXEC sp_OAMethod @json, 'StringOf', @sTmp0 OUT, 'pop3_password' EXEC sp_OAMethod @crypt, 'DecryptSecureENC', @success OUT, @sTmp0, @ssPassword -- Set the POP3 domain, login, and password EXEC sp_OASetProperty @mailman, 'MailHost', 'pop.gmail.com' EXEC sp_OASetProperty @mailman, 'PopSsl', 1 EXEC sp_OASetProperty @mailman, 'MailPort', 995 EXEC sp_OAMethod @ssLogin, 'Access', @sTmp0 OUT EXEC sp_OASetProperty @mailman, 'PopUsername', @sTmp0 -- Set the PopPassword property via the SetPassword method using the secure string. EXEC sp_OAMethod @mailman, 'SetPassword', @success OUT, 'pop3', @ssPassword -- Connect and authenticate.. EXEC sp_OAMethod @mailman, 'Pop3Connect', @success OUT IF @success <> 1 BEGIN EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @json EXEC @hr = sp_OADestroy @crypt EXEC @hr = sp_OADestroy @ssLogin EXEC @hr = sp_OADestroy @ssPassword RETURN END EXEC sp_OAMethod @mailman, 'Pop3Authenticate', @success OUT IF @success <> 1 BEGIN EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @json EXEC @hr = sp_OADestroy @crypt EXEC @hr = sp_OADestroy @ssLogin EXEC @hr = sp_OADestroy @ssPassword RETURN END PRINT 'POP3 login successful.' DECLARE @numMessages int EXEC sp_OAMethod @mailman, 'GetMailboxCount', @numMessages OUT IF @numMessages < 0 BEGIN EXEC sp_OAGetProperty @mailman, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @json EXEC @hr = sp_OADestroy @crypt EXEC @hr = sp_OADestroy @ssLogin EXEC @hr = sp_OADestroy @ssPassword RETURN END PRINT 'Num messages in Inbox = ' + @numMessages EXEC sp_OAMethod @mailman, 'Pop3EndSession', @success OUT EXEC @hr = sp_OADestroy @mailman EXEC @hr = sp_OADestroy @json EXEC @hr = sp_OADestroy @crypt EXEC @hr = sp_OADestroy @ssLogin EXEC @hr = sp_OADestroy @ssPassword END GO |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.