mirror of
https://github.com/esp8266/Arduino.git
synced 2025-06-12 01:53:07 +03:00
new trunk
git-svn-id: svn://svn.code.sf.net/p/axtls/code/trunk@78 9a5d90b5-6617-0410-8a86-bb477d3ed2e3
This commit is contained in:
cameronrich
687
samples/vbnet/axssl.vb
Normal file
687
samples/vbnet/axssl.vb
Normal file
@ -0,0 +1,687 @@
|
||||
'
|
||||
' Copyright(C) 2006 Cameron Rich
|
||||
'
|
||||
' This program is free software you can redistribute it and/or modify
|
||||
' it under the terms of the GNU General Public License as published by
|
||||
' the Free Software Foundation either version 2.1 of the License, or
|
||||
' (at your option) any later version.
|
||||
'
|
||||
' This program is distributed in the hope that it will be useful,
|
||||
' but WITHOUT ANY WARRANTY without even the implied warranty of
|
||||
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
' GNU Lesser General Public License for more details.
|
||||
'
|
||||
' You should have received a copy of the GNU General Public License
|
||||
' along with this program if not, write to the Free Software
|
||||
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
'
|
||||
|
||||
'
|
||||
' Demonstrate the use of the axTLS library in VB.NET with a set of
|
||||
' command-line parameters similar to openssl. In fact, openssl clients
|
||||
' should be able to communicate with axTLS servers and visa-versa.
|
||||
'
|
||||
' This code has various bits enabled depending on the configuration. To enable
|
||||
' the most interesting version, compile with the 'full mode' enabled.
|
||||
'
|
||||
' To see what options you have, run the following:
|
||||
' > axssl.vbnet.exe s_server -?
|
||||
' > axssl.vbnet.exe s_client -?
|
||||
'
|
||||
' The axtls shared library must be in the same directory or be found
|
||||
' by the OS.
|
||||
'
|
||||
|
||||
Imports System
|
||||
Imports System.Net
|
||||
Imports System.Net.Sockets
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports axTLSvb
|
||||
|
||||
Public Class axssl
|
||||
'
|
||||
' do_server()
|
||||
'
|
||||
Public Sub do_server(ByVal build_mode As Integer, _
|
||||
ByVal args() As String)
|
||||
Dim i As Integer = 1
|
||||
Dim port As Integer = 4433
|
||||
Dim options As Integer = axtls.SSL_DISPLAY_CERTS
|
||||
Dim quiet As Boolean = False
|
||||
Dim password As String = Nothing
|
||||
Dim private_key_file As String = Nothing
|
||||
|
||||
' organise the cert/ca_cert lists
|
||||
Dim cert_size As Integer = SSLUtil.MaxCerts()
|
||||
Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
|
||||
Dim cert(cert_size) As String
|
||||
Dim ca_cert(ca_cert_size) As String
|
||||
Dim cert_index As Integer = 0
|
||||
Dim ca_cert_index As Integer = 0
|
||||
|
||||
While i < args.Length
|
||||
If args(i) = "-accept" Then
|
||||
If i >= args.Length-1
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
port = Int32.Parse(args(i))
|
||||
ElseIf args(i) = "-quiet"
|
||||
quiet = True
|
||||
options = options And Not axtls.SSL_DISPLAY_CERTS
|
||||
ElseIf build_mode >= axtls.SSL_BUILD_SERVER_ONLY
|
||||
If args(i) = "-cert"
|
||||
If i >= args.Length-1 Or cert_index >= cert_size
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
cert(cert_index) = args(i)
|
||||
cert_index += 1
|
||||
ElseIf args(i) = "-key"
|
||||
If i >= args.Length-1
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
private_key_file = args(i)
|
||||
options = options Or axtls.SSL_NO_DEFAULT_KEY
|
||||
ElseIf args(i) = "-pass"
|
||||
If i >= args.Length-1
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
password = args(i)
|
||||
ElseIf build_mode >= axtls.SSL_BUILD_ENABLE_VERIFICATION
|
||||
If args(i) = "-verify" Then
|
||||
options = options Or axtls.SSL_CLIENT_AUTHENTICATION
|
||||
ElseIf args(i) = "-CAfile"
|
||||
If i >= args.Length-1 Or _
|
||||
ca_cert_index >= ca_cert_size Then
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
ca_cert(ca_cert_index) = args(i)
|
||||
ca_cert_index += 1
|
||||
ElseIf build_mode = axtls.SSL_BUILD_FULL_MODE
|
||||
If args(i) = "-debug" Then
|
||||
options = options Or axtls.SSL_DISPLAY_BYTES
|
||||
ElseIf args(i) = "-state"
|
||||
options = options Or axtls.SSL_DISPLAY_STATES
|
||||
ElseIf args(i) = "-show-rsa"
|
||||
options = options Or axtls.SSL_DISPLAY_RSA
|
||||
Else
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
Else
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
Else
|
||||
print_server_options(build_mode, args(i))
|
||||
End If
|
||||
End If
|
||||
|
||||
i += 1
|
||||
End While
|
||||
|
||||
' Create socket for incoming connections
|
||||
Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any, port)
|
||||
Dim server_sock As TcpListener = New TcpListener(ep)
|
||||
server_sock.Start()
|
||||
|
||||
'*********************************************************************
|
||||
' This is where the interesting stuff happens. Up until now we've
|
||||
' just been setting up sockets etc. Now we do the SSL handshake.
|
||||
'*********************************************************************/
|
||||
Dim ssl_ctx As SSLServer = New SSLServer(options, _
|
||||
axtls.SSL_DEFAULT_SVR_SESS)
|
||||
|
||||
If ssl_ctx Is Nothing Then
|
||||
Console.Error.WriteLine("Error: Server context is invalid")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
|
||||
If private_key_file <> Nothing Then
|
||||
Dim obj_type As Integer = axtls.SSL_OBJ_RSA_KEY
|
||||
|
||||
If private_key_file.EndsWith(".p8") Then
|
||||
obj_type = axtls.SSL_OBJ_PKCS8
|
||||
Else If (private_key_file.EndsWith(".p12"))
|
||||
obj_type = axtls.SSL_OBJ_PKCS12
|
||||
End If
|
||||
|
||||
If ssl_ctx.ObjLoad(obj_type, private_key_file, _
|
||||
password) <> axtls.SSL_OK Then
|
||||
Console.Error.WriteLine("Error: Private key '" & _
|
||||
private_key_file & "' is undefined.")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
End If
|
||||
|
||||
For i = 0 To cert_index-1
|
||||
If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CERT, _
|
||||
cert(i), Nothing) <> axtls.SSL_OK Then
|
||||
Console.WriteLine("Certificate '" & cert(i) & _
|
||||
"' is undefined.")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
Next
|
||||
|
||||
For i = 0 To ca_cert_index-1
|
||||
If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CACERT, _
|
||||
ca_cert(i), Nothing) <> axtls.SSL_OK Then
|
||||
Console.WriteLine("Certificate '" & ca_cert(i) & _
|
||||
"' is undefined.")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim buf As Byte() = Nothing
|
||||
Dim res As Integer
|
||||
Dim ssl As SSL
|
||||
|
||||
While 1
|
||||
If Not quiet Then
|
||||
Console.WriteLine("ACCEPT")
|
||||
End If
|
||||
|
||||
Dim client_sock As Socket = server_sock.AcceptSocket()
|
||||
|
||||
ssl = ssl_ctx.Connect(client_sock)
|
||||
|
||||
' do the actual SSL handshake
|
||||
While 1
|
||||
res = ssl_ctx.Read(ssl, buf)
|
||||
If res <> axtls.SSL_OK Then
|
||||
Exit While
|
||||
End If
|
||||
|
||||
' check when the connection has been established
|
||||
If ssl.HandshakeStatus() = axtls.SSL_OK
|
||||
Exit While
|
||||
End If
|
||||
|
||||
' could do something else here
|
||||
End While
|
||||
|
||||
If res = axtls.SSL_OK Then ' connection established and ok
|
||||
If Not quiet
|
||||
display_session_id(ssl)
|
||||
display_cipher(ssl)
|
||||
End If
|
||||
|
||||
' now read (and display) whatever the client sends us
|
||||
While 1
|
||||
' keep reading until we get something interesting
|
||||
While 1
|
||||
res = ssl_ctx.Read(ssl, buf)
|
||||
If res <> axtls.SSL_OK Then
|
||||
Exit While
|
||||
End If
|
||||
|
||||
' could do something else here
|
||||
End While
|
||||
|
||||
If res < axtls.SSL_OK
|
||||
If Not quiet
|
||||
Console.WriteLine("CONNECTION CLOSED")
|
||||
End If
|
||||
|
||||
Exit While
|
||||
End If
|
||||
|
||||
' convert to String
|
||||
Dim str(res) As Char
|
||||
For i = 0 To res-1
|
||||
str(i) = Chr(buf(i))
|
||||
Next
|
||||
|
||||
Console.Write(str)
|
||||
End While
|
||||
ElseIf Not quiet
|
||||
SSLUtil.DisplayError(res)
|
||||
End If
|
||||
|
||||
' client was disconnected or the handshake failed. */
|
||||
ssl.Dispose()
|
||||
client_sock.Close()
|
||||
End While
|
||||
|
||||
ssl_ctx.Dispose()
|
||||
End Sub
|
||||
|
||||
'
|
||||
' do_client()
|
||||
'
|
||||
Public Sub do_client(ByVal build_mode As Integer, _
|
||||
ByVal args() As String)
|
||||
|
||||
If build_mode < axtls.SSL_BUILD_ENABLE_CLIENT Then
|
||||
print_client_options(build_mode, args(1))
|
||||
End If
|
||||
|
||||
Dim i As Integer = 1
|
||||
Dim res As Integer
|
||||
Dim port As Integer = 4433
|
||||
Dim quiet As Boolean = False
|
||||
Dim password As String = Nothing
|
||||
Dim reconnect As Integer = 0
|
||||
Dim private_key_file As String = Nothing
|
||||
Dim hostname As String = "127.0.0.1"
|
||||
|
||||
' organise the cert/ca_cert lists
|
||||
Dim ssl As SSL = Nothing
|
||||
Dim cert_size As Integer = SSLUtil.MaxCerts()
|
||||
Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
|
||||
Dim cert(cert_size) As String
|
||||
Dim ca_cert(ca_cert_size) As String
|
||||
Dim cert_index As Integer = 0
|
||||
Dim ca_cert_index As Integer = 0
|
||||
|
||||
Dim options As Integer = _
|
||||
axtls.SSL_SERVER_VERIFY_LATER Or axtls.SSL_DISPLAY_CERTS
|
||||
Dim session_id As Byte() = Nothing
|
||||
|
||||
While i < args.Length
|
||||
If args(i) = "-connect" Then
|
||||
Dim host_port As String
|
||||
|
||||
If i >= args.Length-1
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
host_port = args(i)
|
||||
|
||||
Dim index_colon As Integer = host_port.IndexOf(":"C)
|
||||
If index_colon < 0 Then
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
hostname = New String(host_port.ToCharArray(), _
|
||||
0, index_colon)
|
||||
port = Int32.Parse(New String(host_port.ToCharArray(), _
|
||||
index_colon+1, host_port.Length-index_colon-1))
|
||||
ElseIf args(i) = "-cert"
|
||||
If i >= args.Length-1 Or cert_index >= cert_size Then
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
cert(cert_index) = args(i)
|
||||
cert_index += 1
|
||||
ElseIf args(i) = "-key"
|
||||
If i >= args.Length-1
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
private_key_file = args(i)
|
||||
options = options Or axtls.SSL_NO_DEFAULT_KEY
|
||||
ElseIf args(i) = "-CAfile"
|
||||
If i >= args.Length-1 Or ca_cert_index >= ca_cert_size
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
ca_cert(ca_cert_index) = args(i)
|
||||
ca_cert_index += 1
|
||||
ElseIf args(i) = "-verify"
|
||||
options = options And Not axtls.SSL_SERVER_VERIFY_LATER
|
||||
ElseIf args(i) = "-reconnect"
|
||||
reconnect = 4
|
||||
ElseIf args(i) = "-quiet"
|
||||
quiet = True
|
||||
options = options And Not axtls.SSL_DISPLAY_CERTS
|
||||
ElseIf args(i) = "-pass"
|
||||
If i >= args.Length-1
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
password = args(i)
|
||||
ElseIf build_mode = axtls.SSL_BUILD_FULL_MODE
|
||||
If args(i) = "-debug" Then
|
||||
options = options Or axtls.SSL_DISPLAY_BYTES
|
||||
ElseIf args(i) = "-state"
|
||||
options = options Or axtls.SSL_DISPLAY_STATES
|
||||
ElseIf args(i) = "-show-rsa"
|
||||
options = options Or axtls.SSL_DISPLAY_RSA
|
||||
Else
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
Else ' don't know what this is
|
||||
print_client_options(build_mode, args(i))
|
||||
End If
|
||||
|
||||
i += 1
|
||||
End While
|
||||
|
||||
'Dim hostInfo As IPHostEntry = Dns.Resolve(hostname)
|
||||
Dim hostInfo As IPHostEntry = Dns.GetHostEntry(hostname)
|
||||
Dim addresses As IPAddress() = hostInfo.AddressList
|
||||
Dim ep As IPEndPoint = New IPEndPoint(addresses(0), port)
|
||||
Dim client_sock As Socket = New Socket(AddressFamily.InterNetwork, _
|
||||
SocketType.Stream, ProtocolType.Tcp)
|
||||
client_sock.Connect(ep)
|
||||
|
||||
If Not client_sock.Connected Then
|
||||
Console.WriteLine("could not connect")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
|
||||
If Not quiet Then
|
||||
Console.WriteLine("CONNECTED")
|
||||
End If
|
||||
|
||||
'*********************************************************************
|
||||
' This is where the interesting stuff happens. Up until now we've
|
||||
' just been setting up sockets etc. Now we do the SSL handshake.
|
||||
'*********************************************************************/
|
||||
Dim ssl_ctx As SSLClient = New SSLClient(options, _
|
||||
axtls.SSL_DEFAULT_CLNT_SESS)
|
||||
|
||||
If ssl_ctx Is Nothing Then
|
||||
Console.Error.WriteLine("Error: Client context is invalid")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
|
||||
If private_key_file <> Nothing Then
|
||||
Dim obj_type As Integer = axtls.SSL_OBJ_RSA_KEY
|
||||
|
||||
If private_key_file.EndsWith(".p8") Then
|
||||
obj_type = axtls.SSL_OBJ_PKCS8
|
||||
Else If (private_key_file.EndsWith(".p12"))
|
||||
obj_type = axtls.SSL_OBJ_PKCS12
|
||||
End If
|
||||
|
||||
If ssl_ctx.ObjLoad(obj_type, private_key_file, _
|
||||
password) <> axtls.SSL_OK Then
|
||||
Console.Error.WriteLine("Error: Private key '" & _
|
||||
private_key_file & "' is undefined.")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
End If
|
||||
|
||||
For i = 0 To cert_index-1
|
||||
If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CERT, _
|
||||
cert(i), Nothing) <> axtls.SSL_OK Then
|
||||
Console.WriteLine("Certificate '" & cert(i) & _
|
||||
"' is undefined.")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
Next
|
||||
|
||||
For i = 0 To ca_cert_index-1
|
||||
If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CACERT, _
|
||||
ca_cert(i), Nothing) <> axtls.SSL_OK Then
|
||||
Console.WriteLine("Certificate '" & ca_cert(i) & _
|
||||
"' is undefined.")
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
Next
|
||||
|
||||
' Try session resumption?
|
||||
If reconnect > 0 Then
|
||||
While reconnect > 0
|
||||
reconnect -= 1
|
||||
ssl = ssl_ctx.Connect(client_sock, session_id)
|
||||
|
||||
res = ssl.HandshakeStatus()
|
||||
If res <> axtls.SSL_OK Then
|
||||
If Not quiet Then
|
||||
SSLUtil.DisplayError(res)
|
||||
End If
|
||||
|
||||
ssl.Dispose()
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
|
||||
display_session_id(ssl)
|
||||
session_id = ssl.GetSessionId()
|
||||
|
||||
If reconnect > 0 Then
|
||||
ssl.Dispose()
|
||||
client_sock.Close()
|
||||
|
||||
' and reconnect
|
||||
client_sock = New Socket(AddressFamily.InterNetwork, _
|
||||
SocketType.Stream, ProtocolType.Tcp)
|
||||
client_sock.Connect(ep)
|
||||
End If
|
||||
End While
|
||||
Else
|
||||
ssl = ssl_ctx.Connect(client_sock, Nothing)
|
||||
End If
|
||||
|
||||
' check the return status
|
||||
res = ssl.HandshakeStatus()
|
||||
If res <> axtls.SSL_OK Then
|
||||
If Not quiet Then
|
||||
SSLUtil.DisplayError(res)
|
||||
End If
|
||||
|
||||
Environment.Exit(1)
|
||||
End If
|
||||
|
||||
If Not quiet Then
|
||||
Dim common_name As String = _
|
||||
ssl.GetCertificateDN(axtls.SSL_X509_CERT_COMMON_NAME)
|
||||
|
||||
If common_name <> Nothing
|
||||
Console.WriteLine("Common Name:" & _
|
||||
ControlChars.Tab & ControlChars.Tab & common_name)
|
||||
End If
|
||||
|
||||
display_session_id(ssl)
|
||||
display_cipher(ssl)
|
||||
End If
|
||||
|
||||
While (1)
|
||||
Dim user_input As String = Console.ReadLine()
|
||||
|
||||
If user_input = Nothing Then
|
||||
Exit While
|
||||
End If
|
||||
|
||||
Dim buf(user_input.Length+1) As Byte
|
||||
buf(buf.Length-2) = Asc(ControlChars.Lf) ' add the carriage return
|
||||
buf(buf.Length-1) = 0 ' null terminate
|
||||
|
||||
For i = 0 To user_input.Length-1
|
||||
buf(i) = Asc(user_input.Chars(i))
|
||||
Next
|
||||
|
||||
res = ssl_ctx.Write(ssl, buf, buf.Length)
|
||||
If res < axtls.SSL_OK Then
|
||||
If Not quiet Then
|
||||
SSLUtil.DisplayError(res)
|
||||
End If
|
||||
|
||||
Exit While
|
||||
End If
|
||||
End While
|
||||
|
||||
ssl_ctx.Dispose()
|
||||
End Sub
|
||||
|
||||
'
|
||||
' Display what cipher we are using
|
||||
'
|
||||
Private Sub display_cipher(ByVal ssl As SSL)
|
||||
Console.Write("CIPHER is ")
|
||||
|
||||
Select ssl.GetCipherId()
|
||||
Case axtls.SSL_AES128_SHA
|
||||
Console.WriteLine("AES128-SHA")
|
||||
|
||||
Case axtls.SSL_AES256_SHA
|
||||
Console.WriteLine("AES256-SHA")
|
||||
|
||||
Case axtls.SSL_RC4_128_SHA
|
||||
Console.WriteLine("RC4-SHA")
|
||||
|
||||
Case axtls.SSL_RC4_128_MD5
|
||||
Console.WriteLine("RC4-MD5")
|
||||
|
||||
Case Else
|
||||
Console.WriteLine("Unknown - " & ssl.GetCipherId())
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
'
|
||||
' Display what session id we have.
|
||||
'
|
||||
Private Sub display_session_id(ByVal ssl As SSL)
|
||||
Dim session_id As Byte() = ssl.GetSessionId()
|
||||
|
||||
Console.WriteLine("-----BEGIN SSL SESSION PARAMETERS-----")
|
||||
Dim b As Byte
|
||||
For Each b In session_id
|
||||
Console.Write("{0:x02}", b)
|
||||
Next
|
||||
|
||||
Console.WriteLine()
|
||||
Console.WriteLine("-----END SSL SESSION PARAMETERS-----")
|
||||
End Sub
|
||||
|
||||
'
|
||||
' We've had some sort of command-line error. Print out the basic options.
|
||||
'
|
||||
Public Sub print_options(ByVal options As String)
|
||||
Console.WriteLine("axssl: Error: '" & options & _
|
||||
"' is an invalid command.")
|
||||
Console.WriteLine("usage: axssl.vbnet [s_server|s_client|" & _
|
||||
"version] [args ...]")
|
||||
Environment.Exit(1)
|
||||
End Sub
|
||||
|
||||
'
|
||||
' We've had some sort of command-line error. Print out the server options.
|
||||
'
|
||||
Private Sub print_server_options(ByVal build_mode As Integer, _
|
||||
ByVal options As String)
|
||||
Dim cert_size As Integer = SSLUtil.MaxCerts()
|
||||
Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
|
||||
|
||||
Console.WriteLine("unknown option " & options)
|
||||
Console.WriteLine("usage: s_server [args ...]")
|
||||
Console.WriteLine(" -accept arg" & ControlChars.Tab & _
|
||||
"- port to accept on (default is 4433)")
|
||||
Console.WriteLine(" -quiet" & ControlChars.Tab & ControlChars.Tab & _
|
||||
"- No server output")
|
||||
If build_mode >= axtls.SSL_BUILD_SERVER_ONLY
|
||||
Console.WriteLine(" -cert arg" & ControlChars.Tab & _
|
||||
"- certificate file to add (in addition to default) to chain -")
|
||||
Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
|
||||
" Can repeat up to " & cert_size & " times")
|
||||
Console.WriteLine(" -key arg" & ControlChars.Tab & _
|
||||
"- Private key file to use")
|
||||
Console.WriteLine(" -pass" & ControlChars.Tab & ControlChars.Tab & _
|
||||
"- private key file pass phrase source")
|
||||
End If
|
||||
|
||||
If build_mode >= axtls.SSL_BUILD_ENABLE_VERIFICATION
|
||||
Console.WriteLine(" -verify" & ControlChars.Tab & _
|
||||
"- turn on peer certificate verification")
|
||||
Console.WriteLine(" -CAfile arg" & ControlChars.Tab & _
|
||||
"- Certificate authority")
|
||||
Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
|
||||
" Can repeat up to " & ca_cert_size & " times")
|
||||
End If
|
||||
|
||||
If build_mode = axtls.SSL_BUILD_FULL_MODE
|
||||
Console.WriteLine(" -debug" & _
|
||||
ControlChars.Tab & ControlChars.Tab & _
|
||||
"- Print more output")
|
||||
Console.WriteLine(" -state" & _
|
||||
ControlChars.Tab & ControlChars.Tab & _
|
||||
"- Show state messages")
|
||||
Console.WriteLine(" -show-rsa" & _
|
||||
ControlChars.Tab & "- Show RSA state")
|
||||
End If
|
||||
|
||||
Environment.Exit(1)
|
||||
End Sub
|
||||
|
||||
'
|
||||
' We've had some sort of command-line error. Print out the client options.
|
||||
'
|
||||
Private Sub print_client_options(ByVal build_mode As Integer, _
|
||||
ByVal options As String)
|
||||
Dim cert_size As Integer = SSLUtil.MaxCerts()
|
||||
Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
|
||||
|
||||
Console.WriteLine("unknown option " & options)
|
||||
|
||||
If build_mode >= axtls.SSL_BUILD_ENABLE_CLIENT Then
|
||||
Console.WriteLine("usage: s_client [args ...]")
|
||||
Console.WriteLine(" -connect host:port - who to connect to " & _
|
||||
"(default is localhost:4433)")
|
||||
Console.WriteLine(" -verify" & ControlChars.Tab & _
|
||||
"- turn on peer certificate verification")
|
||||
Console.WriteLine(" -cert arg" & ControlChars.Tab & _
|
||||
"- certificate file to use")
|
||||
Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
|
||||
" Can repeat up to " & cert_size & " times")
|
||||
Console.WriteLine(" -key arg" & ControlChars.Tab & _
|
||||
"- Private key file to use")
|
||||
Console.WriteLine(" -CAfile arg" & ControlChars.Tab & _
|
||||
"- Certificate authority")
|
||||
Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
|
||||
" Can repeat up to " & ca_cert_size & " times")
|
||||
Console.WriteLine(" -quiet" & _
|
||||
ControlChars.Tab & ControlChars.Tab & "- No client output")
|
||||
Console.WriteLine(" -pass" & ControlChars.Tab & _
|
||||
ControlChars.Tab & _
|
||||
"- private key file pass phrase source")
|
||||
Console.WriteLine(" -reconnect" & ControlChars.Tab & _
|
||||
"- Drop and re-make the " & _
|
||||
"connection with the same Session-ID")
|
||||
|
||||
If build_mode = axtls.SSL_BUILD_FULL_MODE Then
|
||||
Console.WriteLine(" -debug" & _
|
||||
ControlChars.Tab & ControlChars.Tab & _
|
||||
"- Print more output")
|
||||
Console.WriteLine(" -state" & _
|
||||
ControlChars.Tab & ControlChars.Tab & _
|
||||
"- Show state messages")
|
||||
Console.WriteLine(" -show-rsa" & ControlChars.Tab & _
|
||||
"- Show RSA state")
|
||||
End If
|
||||
Else
|
||||
Console.WriteLine("Change configuration to allow this feature")
|
||||
End If
|
||||
|
||||
Environment.Exit(1)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
Public Module MyMain
|
||||
Function Main(ByVal args() As String) As Integer
|
||||
Dim runner As axssl = New axssl()
|
||||
|
||||
If args.Length = 1 And args(0) = "version" Then
|
||||
Console.WriteLine("axssl.vbnet " & SSLUtil.Version())
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
|
||||
If args.Length < 1
|
||||
runner.print_options("")
|
||||
ElseIf args(0) <> "s_server" And args(0) <> "s_client"
|
||||
runner.print_options(args(0))
|
||||
End If
|
||||
|
||||
Dim build_mode As Integer = SSLUtil.BuildMode()
|
||||
|
||||
If args(0) = "s_server" Then
|
||||
runner.do_server(build_mode, args)
|
||||
Else
|
||||
runner.do_client(build_mode, args)
|
||||
End If
|
||||
End Function
|
||||
End Module
|
||||
Reference in New Issue
Block a user