Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) HTTP Basic Auth with Secure StringsDemonstrates how to do HTTP basic authentication using secure strings. This example requires Chilkat v9.5.0.71 or greater.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Imagine we've previously saved our encrypted login and password within a JSON config file ' that contains this: ' { ' "http_login": "mCrOmA7mBA7Au9RuJGb9hw==", ' "http_password": "jJtiI9TgErTTpqBz9JtHBw==" ' } Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject success = json.LoadFile("qa_data/passwords/http.json") Dim crypt As Chilkat.Crypt2 Set crypt = Chilkat.NewCrypt2 ' These are the encryption settings we previously used to encrypt the credentials within the JSON config file. crypt.CryptAlgorithm = "aes" crypt.CipherMode = "cbc" crypt.KeyLength = 128 crypt.SetEncodedKey "000102030405060708090A0B0C0D0E0F","hex" crypt.SetEncodedIV "000102030405060708090A0B0C0D0E0F","hex" crypt.EncodingMode = "base64" Dim ssLogin As Chilkat.SecureString Set ssLogin = Chilkat.NewSecureString Dim ssPassword As Chilkat.SecureString Set ssPassword = Chilkat.NewSecureString ' Decrypt to the secure string. (the strings will still held in memory encrypted, but are now encrypted using ' a randomly generated session key.) success = crypt.DecryptSecureENC(json.StringOf("http_login"),ssLogin) success = crypt.DecryptSecureENC(json.StringOf("http_password"),ssPassword) Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' Cause the "Authorization: Basic ..." header to be added to HTTP requests ' by setting the Login and Password properties. However, instead of setting the password property ' directly, set it via the SetPassword method using the secure string. http.Login = ssLogin.Access() success = http.SetPassword(ssPassword) ' Also indicate that Basic authentication is to be used.. http.BasicAuth = True ' Do an HTTP GET w/ Basic authentication. ' REMEMBER: Always use TLS with Basic authentication. Otherwise your credentials are exposed for the world to see.. responseStr = http.QuickGetStr("https://www.chilkatsoft.com/helloWorld.html") ' Show the request header we sent in the QuickGetStr: Debug.Print http.LastHeader ' The LastHeader looks something like this: ' GET /helloWorld.html HTTP/1.1 ' Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 ' Connection: keep-alive ' User-Agent: Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0 ' Accept-Language: en-us,en;q=0.5 ' Authorization: Basic bXlIdHRwTG9naW46bXlIdHRwUGFzc3dvcmQ= ' Accept-Encoding: gzip ' Host: www.chilkatsoft.com |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.