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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Classic ASP) SSL Client CertificateDemonstrates how to connect to an SSL server using a client-side certificate, send a simple message, receive a simple response, and disconnect.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set socket = Server.CreateObject("Chilkat_9_5_0.Socket") success = socket.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If ' Create an instance of a certificate store object, load a PFX file, ' locate the certificate we need, and use it for signing. ' (a PFX file may contain more than one certificate.) set certStore = Server.CreateObject("Chilkat_9_5_0.CertStore") ' The 1st argument is the filename, the 2nd arg is the ' PFX file's password: success = certStore.LoadPfxFile("chilkat_secret.pfx","secret") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>" Response.End End If ' cert is a Chilkat_9_5_0.Cert Set cert = certStore.FindCertBySubjectCN("Chilkat Software, Inc.") If (cert Is Nothing ) Then Response.Write "<pre>" & Server.HTMLEncode( certStore.LastErrorText) & "</pre>" Response.End End If success = socket.SetSslClientCert(cert) ssl = 1 maxWaitMillisec = 20000 ' The SSL server hostname may be an IP address, a domain name, ' or "localhost". You'll need to change this: sslServerHost = "123.123.88.88" sslServerPort = 8123 ' Connect to the SSL server: success = socket.Connect(sslServerHost,sslServerPort,ssl,maxWaitMillisec) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If ' Set maximum timeouts for reading an writing (in millisec) socket.MaxReadIdleMs = 20000 socket.MaxSendIdleMs = 20000 ' Send a "Hello Server! -EOM-" message: success = socket.SendString("Hello Server! -EOM-") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If ' The server (in this example) is going to send a "Hello Client! -EOM-" ' message. Read it: receivedMsg = socket.ReceiveUntilMatch("-EOM-") If (socket.LastMethodSuccess <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( socket.LastErrorText) & "</pre>" Response.End End If ' Close the connection with the server ' Wait a max of 20 seconds (20000 millsec) success = socket.Close(20000) Response.Write "<pre>" & Server.HTMLEncode( receivedMsg) & "</pre>" %> </body> </html> |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.