Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
Upload to Tumbleweed SecureTransport FTPS Server
Demonstrates how to connect, authenticate, and upload file to a Tumbleweed Secure Transport SSL FTP Server. Instead of providing a login name and password, you pass the string "site-auth" for the username, and an empty string for the password. You must also provide a client-side digital certificate -- as the certificate's credentials and validity are used to authenticate.
Download: Chilkat .NET Assemblies
Dim ftp As New Chilkat.Ftp2() Dim success As Boolean ' Any string unlocks the component for the 1st 30-days. success = ftp.UnlockComponent("Anything for 30-day trial") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' This code has been tested with the Tumbleweed server ' at sft.wellsfargo.com ftp.Hostname = "sft.wellsfargo.com" ' Use these exact strings for the username and password: ftp.Username = "site-auth" ftp.Password = "" ' Establish an AUTH SSL secure channel after connecting. ' Your client-side certificate is used for authentication when ' the SSL channel is established. ftp.AuthSsl = true ' The Ssl property is for establishing an implicit SSL connection ' on port 990. Do not set it. ftp.Ssl = false ' Load a certificate from a .pfx ' A PFX may contain several certs, including the certificates ' in a chain of authority. Dim certStore As New Chilkat.CertStore() Dim password As String password = "***" ' Load the certs from a PFX into an in-memory certificate store: success = certStore.LoadPfxFile("my.pfx",password) If (success <> true) Then TextBox1.Text = TextBox1.Text & certStore.LastErrorText & vbCrLf Exit Sub End If ' Find the exact cert we'll use: Dim cert As Chilkat.Cert cert = certStore.FindCertBySubject("My Certificate 123 ABC") If (cert Is Nothing ) Then TextBox1.Text = TextBox1.Text & "Certificate not found!" & vbCrLf Exit Sub End If ' Tell the Chilkat FTP2 component to use the client-side ' cert for the SSL connection: ftp.SetSslClientCert(cert) ' Connect and authenticate with the FTP server. success = ftp.Connect() If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub Else ' LastErrorText contains information even when ' successful. This allows you to visually verify ' that the secure connection actually occurred. TextBox1.Text = TextBox1.Text & ftp.LastErrorText & vbCrLf End If MsgBox("Secure FTP Channel Established!") ' Change to the remote directory where the file will be ' uploaded. If your file is to be uploaded to the FTP user ' account's home directory, this is not necessary. success = ftp.ChangeRemoteDir("someSubDir") If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ' You may include an absolute or relative path with the ' local filename. If no path is included, the file should ' be present in the current working directory of the calling ' process. Dim localFilename As String localFilename = "someFile.dat" Dim remoteFilename As String remoteFilename = "someFile.dat" ' Upload the file. success = ftp.PutFile(localFilename,remoteFilename) If (success <> true) Then MsgBox(ftp.LastErrorText) Exit Sub End If ftp.Disconnect()
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.