Annotation of embedaddon/axTLS/samples/vbnet/axssl.vb, revision 1.1
1.1 ! misho 1: '
! 2: ' Copyright (c) 2007, Cameron Rich
! 3: '
! 4: ' All rights reserved.
! 5: '
! 6: ' Redistribution and use in source and binary forms, with or without
! 7: ' modification, are permitted provided that the following conditions are met:
! 8: '
! 9: ' * Redistributions of source code must retain the above copyright notice,
! 10: ' this list of conditions and the following disclaimer.
! 11: ' * Redistributions in binary form must reproduce the above copyright
! 12: ' notice, this list of conditions and the following disclaimer in the
! 13: ' documentation and/or other materials provided with the distribution.
! 14: ' * Neither the name of the axTLS project nor the names of its
! 15: ' contributors may be used to endorse or promote products derived
! 16: ' from this software without specific prior written permission.
! 17: '
! 18: ' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! 19: ' "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
! 20: ' LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
! 21: ' A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
! 22: ' CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
! 23: ' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
! 24: ' TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
! 25: ' DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
! 26: ' OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
! 27: ' NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
! 28: ' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
! 29: '
! 30:
! 31: '
! 32: ' Demonstrate the use of the axTLS library in VB.NET with a set of
! 33: ' command-line parameters similar to openssl. In fact, openssl clients
! 34: ' should be able to communicate with axTLS servers and visa-versa.
! 35: '
! 36: ' This code has various bits enabled depending on the configuration. To enable
! 37: ' the most interesting version, compile with the 'full mode' enabled.
! 38: '
! 39: ' To see what options you have, run the following:
! 40: ' > axssl.vbnet.exe s_server -?
! 41: ' > axssl.vbnet.exe s_client -?
! 42: '
! 43: ' The axtls shared library must be in the same directory or be found
! 44: ' by the OS.
! 45: '
! 46:
! 47: Imports System
! 48: Imports System.Net
! 49: Imports System.Net.Sockets
! 50: Imports Microsoft.VisualBasic
! 51: Imports axTLSvb
! 52:
! 53: Public Class axssl
! 54: '
! 55: ' do_server()
! 56: '
! 57: Public Sub do_server(ByVal build_mode As Integer, _
! 58: ByVal args() As String)
! 59: Dim i As Integer = 1
! 60: Dim port As Integer = 4433
! 61: Dim options As Integer = axtls.SSL_DISPLAY_CERTS
! 62: Dim quiet As Boolean = False
! 63: Dim password As String = Nothing
! 64: Dim private_key_file As String = Nothing
! 65:
! 66: ' organise the cert/ca_cert lists
! 67: Dim cert_size As Integer = SSLUtil.MaxCerts()
! 68: Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
! 69: Dim cert(cert_size) As String
! 70: Dim ca_cert(ca_cert_size) As String
! 71: Dim cert_index As Integer = 0
! 72: Dim ca_cert_index As Integer = 0
! 73:
! 74: While i < args.Length
! 75: If args(i) = "-accept" Then
! 76: If i >= args.Length-1
! 77: print_server_options(build_mode, args(i))
! 78: End If
! 79:
! 80: i += 1
! 81: port = Int32.Parse(args(i))
! 82: ElseIf args(i) = "-quiet"
! 83: quiet = True
! 84: options = options And Not axtls.SSL_DISPLAY_CERTS
! 85: ElseIf build_mode >= axtls.SSL_BUILD_SERVER_ONLY
! 86: If args(i) = "-cert"
! 87: If i >= args.Length-1 Or cert_index >= cert_size
! 88: print_server_options(build_mode, args(i))
! 89: End If
! 90:
! 91: i += 1
! 92: cert(cert_index) = args(i)
! 93: cert_index += 1
! 94: ElseIf args(i) = "-key"
! 95: If i >= args.Length-1
! 96: print_server_options(build_mode, args(i))
! 97: End If
! 98:
! 99: i += 1
! 100: private_key_file = args(i)
! 101: options = options Or axtls.SSL_NO_DEFAULT_KEY
! 102: ElseIf args(i) = "-pass"
! 103: If i >= args.Length-1
! 104: print_server_options(build_mode, args(i))
! 105: End If
! 106:
! 107: i += 1
! 108: password = args(i)
! 109: ElseIf build_mode >= axtls.SSL_BUILD_ENABLE_VERIFICATION
! 110: If args(i) = "-verify" Then
! 111: options = options Or axtls.SSL_CLIENT_AUTHENTICATION
! 112: ElseIf args(i) = "-CAfile"
! 113: If i >= args.Length-1 Or _
! 114: ca_cert_index >= ca_cert_size Then
! 115: print_server_options(build_mode, args(i))
! 116: End If
! 117:
! 118: i += 1
! 119: ca_cert(ca_cert_index) = args(i)
! 120: ca_cert_index += 1
! 121: ElseIf build_mode = axtls.SSL_BUILD_FULL_MODE
! 122: If args(i) = "-debug" Then
! 123: options = options Or axtls.SSL_DISPLAY_BYTES
! 124: ElseIf args(i) = "-state"
! 125: options = options Or axtls.SSL_DISPLAY_STATES
! 126: ElseIf args(i) = "-show-rsa"
! 127: options = options Or axtls.SSL_DISPLAY_RSA
! 128: Else
! 129: print_server_options(build_mode, args(i))
! 130: End If
! 131: Else
! 132: print_server_options(build_mode, args(i))
! 133: End If
! 134: Else
! 135: print_server_options(build_mode, args(i))
! 136: End If
! 137: End If
! 138:
! 139: i += 1
! 140: End While
! 141:
! 142: ' Create socket for incoming connections
! 143: Dim ep As IPEndPoint = New IPEndPoint(IPAddress.Any, port)
! 144: Dim server_sock As TcpListener = New TcpListener(ep)
! 145: server_sock.Start()
! 146:
! 147: '*********************************************************************
! 148: ' This is where the interesting stuff happens. Up until now we've
! 149: ' just been setting up sockets etc. Now we do the SSL handshake.
! 150: '*********************************************************************/
! 151: Dim ssl_ctx As SSLServer = New SSLServer(options, _
! 152: axtls.SSL_DEFAULT_SVR_SESS)
! 153:
! 154: If ssl_ctx Is Nothing Then
! 155: Console.Error.WriteLine("Error: Server context is invalid")
! 156: Environment.Exit(1)
! 157: End If
! 158:
! 159: If private_key_file <> Nothing Then
! 160: Dim obj_type As Integer = axtls.SSL_OBJ_RSA_KEY
! 161:
! 162: If private_key_file.EndsWith(".p8") Then
! 163: obj_type = axtls.SSL_OBJ_PKCS8
! 164: Else If (private_key_file.EndsWith(".p12"))
! 165: obj_type = axtls.SSL_OBJ_PKCS12
! 166: End If
! 167:
! 168: If ssl_ctx.ObjLoad(obj_type, private_key_file, _
! 169: password) <> axtls.SSL_OK Then
! 170: Console.Error.WriteLine("Error: Private key '" & _
! 171: private_key_file & "' is undefined.")
! 172: Environment.Exit(1)
! 173: End If
! 174: End If
! 175:
! 176: For i = 0 To cert_index-1
! 177: If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CERT, _
! 178: cert(i), Nothing) <> axtls.SSL_OK Then
! 179: Console.WriteLine("Certificate '" & cert(i) & _
! 180: "' is undefined.")
! 181: Environment.Exit(1)
! 182: End If
! 183: Next
! 184:
! 185: For i = 0 To ca_cert_index-1
! 186: If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CACERT, _
! 187: ca_cert(i), Nothing) <> axtls.SSL_OK Then
! 188: Console.WriteLine("Certificate '" & ca_cert(i) & _
! 189: "' is undefined.")
! 190: Environment.Exit(1)
! 191: End If
! 192: Next
! 193:
! 194: Dim buf As Byte() = Nothing
! 195: Dim res As Integer
! 196: Dim ssl As SSL
! 197:
! 198: While 1
! 199: If Not quiet Then
! 200: Console.WriteLine("ACCEPT")
! 201: End If
! 202:
! 203: Dim client_sock As Socket = server_sock.AcceptSocket()
! 204:
! 205: ssl = ssl_ctx.Connect(client_sock)
! 206:
! 207: ' do the actual SSL handshake
! 208: While 1
! 209: res = ssl_ctx.Read(ssl, buf)
! 210: If res <> axtls.SSL_OK Then
! 211: Exit While
! 212: End If
! 213:
! 214: ' check when the connection has been established
! 215: If ssl.HandshakeStatus() = axtls.SSL_OK
! 216: Exit While
! 217: End If
! 218:
! 219: ' could do something else here
! 220: End While
! 221:
! 222: If res = axtls.SSL_OK Then ' connection established and ok
! 223: If Not quiet
! 224: display_session_id(ssl)
! 225: display_cipher(ssl)
! 226: End If
! 227:
! 228: ' now read (and display) whatever the client sends us
! 229: While 1
! 230: ' keep reading until we get something interesting
! 231: While 1
! 232: res = ssl_ctx.Read(ssl, buf)
! 233: If res <> axtls.SSL_OK Then
! 234: Exit While
! 235: End If
! 236:
! 237: ' could do something else here
! 238: End While
! 239:
! 240: If res < axtls.SSL_OK
! 241: If Not quiet
! 242: Console.WriteLine("CONNECTION CLOSED")
! 243: End If
! 244:
! 245: Exit While
! 246: End If
! 247:
! 248: ' convert to String
! 249: Dim str(res) As Char
! 250: For i = 0 To res-1
! 251: str(i) = Chr(buf(i))
! 252: Next
! 253:
! 254: Console.Write(str)
! 255: End While
! 256: ElseIf Not quiet
! 257: SSLUtil.DisplayError(res)
! 258: End If
! 259:
! 260: ' client was disconnected or the handshake failed. */
! 261: ssl.Dispose()
! 262: client_sock.Close()
! 263: End While
! 264:
! 265: ssl_ctx.Dispose()
! 266: End Sub
! 267:
! 268: '
! 269: ' do_client()
! 270: '
! 271: Public Sub do_client(ByVal build_mode As Integer, _
! 272: ByVal args() As String)
! 273:
! 274: If build_mode < axtls.SSL_BUILD_ENABLE_CLIENT Then
! 275: print_client_options(build_mode, args(1))
! 276: End If
! 277:
! 278: Dim i As Integer = 1
! 279: Dim res As Integer
! 280: Dim port As Integer = 4433
! 281: Dim quiet As Boolean = False
! 282: Dim password As String = Nothing
! 283: Dim reconnect As Integer = 0
! 284: Dim private_key_file As String = Nothing
! 285: Dim hostname As String = "127.0.0.1"
! 286:
! 287: ' organise the cert/ca_cert lists
! 288: Dim ssl As SSL = Nothing
! 289: Dim cert_size As Integer = SSLUtil.MaxCerts()
! 290: Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
! 291: Dim cert(cert_size) As String
! 292: Dim ca_cert(ca_cert_size) As String
! 293: Dim cert_index As Integer = 0
! 294: Dim ca_cert_index As Integer = 0
! 295:
! 296: Dim options As Integer = _
! 297: axtls.SSL_SERVER_VERIFY_LATER Or axtls.SSL_DISPLAY_CERTS
! 298: Dim session_id As Byte() = Nothing
! 299:
! 300: While i < args.Length
! 301: If args(i) = "-connect" Then
! 302: Dim host_port As String
! 303:
! 304: If i >= args.Length-1
! 305: print_client_options(build_mode, args(i))
! 306: End If
! 307:
! 308: i += 1
! 309: host_port = args(i)
! 310:
! 311: Dim index_colon As Integer = host_port.IndexOf(":"C)
! 312: If index_colon < 0 Then
! 313: print_client_options(build_mode, args(i))
! 314: End If
! 315:
! 316: hostname = New String(host_port.ToCharArray(), _
! 317: 0, index_colon)
! 318: port = Int32.Parse(New String(host_port.ToCharArray(), _
! 319: index_colon+1, host_port.Length-index_colon-1))
! 320: ElseIf args(i) = "-cert"
! 321: If i >= args.Length-1 Or cert_index >= cert_size Then
! 322: print_client_options(build_mode, args(i))
! 323: End If
! 324:
! 325: i += 1
! 326: cert(cert_index) = args(i)
! 327: cert_index += 1
! 328: ElseIf args(i) = "-key"
! 329: If i >= args.Length-1
! 330: print_client_options(build_mode, args(i))
! 331: End If
! 332:
! 333: i += 1
! 334: private_key_file = args(i)
! 335: options = options Or axtls.SSL_NO_DEFAULT_KEY
! 336: ElseIf args(i) = "-CAfile"
! 337: If i >= args.Length-1 Or ca_cert_index >= ca_cert_size
! 338: print_client_options(build_mode, args(i))
! 339: End If
! 340:
! 341: i += 1
! 342: ca_cert(ca_cert_index) = args(i)
! 343: ca_cert_index += 1
! 344: ElseIf args(i) = "-verify"
! 345: options = options And Not axtls.SSL_SERVER_VERIFY_LATER
! 346: ElseIf args(i) = "-reconnect"
! 347: reconnect = 4
! 348: ElseIf args(i) = "-quiet"
! 349: quiet = True
! 350: options = options And Not axtls.SSL_DISPLAY_CERTS
! 351: ElseIf args(i) = "-pass"
! 352: If i >= args.Length-1
! 353: print_client_options(build_mode, args(i))
! 354: End If
! 355:
! 356: i += 1
! 357: password = args(i)
! 358: ElseIf build_mode = axtls.SSL_BUILD_FULL_MODE
! 359: If args(i) = "-debug" Then
! 360: options = options Or axtls.SSL_DISPLAY_BYTES
! 361: ElseIf args(i) = "-state"
! 362: options = options Or axtls.SSL_DISPLAY_STATES
! 363: ElseIf args(i) = "-show-rsa"
! 364: options = options Or axtls.SSL_DISPLAY_RSA
! 365: Else
! 366: print_client_options(build_mode, args(i))
! 367: End If
! 368: Else ' don't know what this is
! 369: print_client_options(build_mode, args(i))
! 370: End If
! 371:
! 372: i += 1
! 373: End While
! 374:
! 375: 'Dim hostInfo As IPHostEntry = Dns.Resolve(hostname)
! 376: Dim hostInfo As IPHostEntry = Dns.GetHostEntry(hostname)
! 377: Dim addresses As IPAddress() = hostInfo.AddressList
! 378: Dim ep As IPEndPoint = New IPEndPoint(addresses(0), port)
! 379: Dim client_sock As Socket = New Socket(AddressFamily.InterNetwork, _
! 380: SocketType.Stream, ProtocolType.Tcp)
! 381: client_sock.Connect(ep)
! 382:
! 383: If Not client_sock.Connected Then
! 384: Console.WriteLine("could not connect")
! 385: Environment.Exit(1)
! 386: End If
! 387:
! 388: If Not quiet Then
! 389: Console.WriteLine("CONNECTED")
! 390: End If
! 391:
! 392: '*********************************************************************
! 393: ' This is where the interesting stuff happens. Up until now we've
! 394: ' just been setting up sockets etc. Now we do the SSL handshake.
! 395: '*********************************************************************/
! 396: Dim ssl_ctx As SSLClient = New SSLClient(options, _
! 397: axtls.SSL_DEFAULT_CLNT_SESS)
! 398:
! 399: If ssl_ctx Is Nothing Then
! 400: Console.Error.WriteLine("Error: Client context is invalid")
! 401: Environment.Exit(1)
! 402: End If
! 403:
! 404: If private_key_file <> Nothing Then
! 405: Dim obj_type As Integer = axtls.SSL_OBJ_RSA_KEY
! 406:
! 407: If private_key_file.EndsWith(".p8") Then
! 408: obj_type = axtls.SSL_OBJ_PKCS8
! 409: Else If (private_key_file.EndsWith(".p12"))
! 410: obj_type = axtls.SSL_OBJ_PKCS12
! 411: End If
! 412:
! 413: If ssl_ctx.ObjLoad(obj_type, private_key_file, _
! 414: password) <> axtls.SSL_OK Then
! 415: Console.Error.WriteLine("Error: Private key '" & _
! 416: private_key_file & "' is undefined.")
! 417: Environment.Exit(1)
! 418: End If
! 419: End If
! 420:
! 421: For i = 0 To cert_index-1
! 422: If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CERT, _
! 423: cert(i), Nothing) <> axtls.SSL_OK Then
! 424: Console.WriteLine("Certificate '" & cert(i) & _
! 425: "' is undefined.")
! 426: Environment.Exit(1)
! 427: End If
! 428: Next
! 429:
! 430: For i = 0 To ca_cert_index-1
! 431: If ssl_ctx.ObjLoad(axtls.SSL_OBJ_X509_CACERT, _
! 432: ca_cert(i), Nothing) <> axtls.SSL_OK Then
! 433: Console.WriteLine("Certificate '" & ca_cert(i) & _
! 434: "' is undefined.")
! 435: Environment.Exit(1)
! 436: End If
! 437: Next
! 438:
! 439: ' Try session resumption?
! 440: If reconnect > 0 Then
! 441: While reconnect > 0
! 442: reconnect -= 1
! 443: ssl = ssl_ctx.Connect(client_sock, session_id)
! 444:
! 445: res = ssl.HandshakeStatus()
! 446: If res <> axtls.SSL_OK Then
! 447: If Not quiet Then
! 448: SSLUtil.DisplayError(res)
! 449: End If
! 450:
! 451: ssl.Dispose()
! 452: Environment.Exit(1)
! 453: End If
! 454:
! 455: display_session_id(ssl)
! 456: session_id = ssl.GetSessionId()
! 457:
! 458: If reconnect > 0 Then
! 459: ssl.Dispose()
! 460: client_sock.Close()
! 461:
! 462: ' and reconnect
! 463: client_sock = New Socket(AddressFamily.InterNetwork, _
! 464: SocketType.Stream, ProtocolType.Tcp)
! 465: client_sock.Connect(ep)
! 466: End If
! 467: End While
! 468: Else
! 469: ssl = ssl_ctx.Connect(client_sock, Nothing)
! 470: End If
! 471:
! 472: ' check the return status
! 473: res = ssl.HandshakeStatus()
! 474: If res <> axtls.SSL_OK Then
! 475: If Not quiet Then
! 476: SSLUtil.DisplayError(res)
! 477: End If
! 478:
! 479: Environment.Exit(1)
! 480: End If
! 481:
! 482: If Not quiet Then
! 483: Dim common_name As String = _
! 484: ssl.GetCertificateDN(axtls.SSL_X509_CERT_COMMON_NAME)
! 485:
! 486: If common_name <> Nothing
! 487: Console.WriteLine("Common Name:" & _
! 488: ControlChars.Tab & ControlChars.Tab & _
! 489: ControlChars.Tab & common_name)
! 490: End If
! 491:
! 492: display_session_id(ssl)
! 493: display_cipher(ssl)
! 494: End If
! 495:
! 496: While (1)
! 497: Dim user_input As String = Console.ReadLine()
! 498:
! 499: If user_input = Nothing Then
! 500: Exit While
! 501: End If
! 502:
! 503: Dim buf(user_input.Length+1) As Byte
! 504: buf(buf.Length-2) = Asc(ControlChars.Lf) ' add the carriage return
! 505: buf(buf.Length-1) = 0 ' null terminate
! 506:
! 507: For i = 0 To user_input.Length-1
! 508: buf(i) = Asc(user_input.Chars(i))
! 509: Next
! 510:
! 511: res = ssl_ctx.Write(ssl, buf, buf.Length)
! 512: If res < axtls.SSL_OK Then
! 513: If Not quiet Then
! 514: SSLUtil.DisplayError(res)
! 515: End If
! 516:
! 517: Exit While
! 518: End If
! 519: End While
! 520:
! 521: ssl_ctx.Dispose()
! 522: End Sub
! 523:
! 524: '
! 525: ' Display what cipher we are using
! 526: '
! 527: Private Sub display_cipher(ByVal ssl As SSL)
! 528: Console.Write("CIPHER is ")
! 529:
! 530: Select ssl.GetCipherId()
! 531: Case axtls.SSL_AES128_SHA
! 532: Console.WriteLine("AES128-SHA")
! 533:
! 534: Case axtls.SSL_AES256_SHA
! 535: Console.WriteLine("AES256-SHA")
! 536:
! 537: Case axtls.SSL_RC4_128_SHA
! 538: Console.WriteLine("RC4-SHA")
! 539:
! 540: Case axtls.SSL_RC4_128_MD5
! 541: Console.WriteLine("RC4-MD5")
! 542:
! 543: Case Else
! 544: Console.WriteLine("Unknown - " & ssl.GetCipherId())
! 545: End Select
! 546: End Sub
! 547:
! 548: '
! 549: ' Display what session id we have.
! 550: '
! 551: Private Sub display_session_id(ByVal ssl As SSL)
! 552: Dim session_id As Byte() = ssl.GetSessionId()
! 553:
! 554: If session_id.Length > 0 Then
! 555: Console.WriteLine("-----BEGIN SSL SESSION PARAMETERS-----")
! 556: Dim b As Byte
! 557: For Each b In session_id
! 558: Console.Write("{0:x02}", b)
! 559: Next
! 560:
! 561: Console.WriteLine()
! 562: Console.WriteLine("-----END SSL SESSION PARAMETERS-----")
! 563: End If
! 564: End Sub
! 565:
! 566: '
! 567: ' We've had some sort of command-line error. Print out the basic options.
! 568: '
! 569: Public Sub print_options(ByVal options As String)
! 570: Console.WriteLine("axssl: Error: '" & options & _
! 571: "' is an invalid command.")
! 572: Console.WriteLine("usage: axssl.vbnet [s_server|s_client|" & _
! 573: "version] [args ...]")
! 574: Environment.Exit(1)
! 575: End Sub
! 576:
! 577: '
! 578: ' We've had some sort of command-line error. Print out the server options.
! 579: '
! 580: Private Sub print_server_options(ByVal build_mode As Integer, _
! 581: ByVal options As String)
! 582: Dim cert_size As Integer = SSLUtil.MaxCerts()
! 583: Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
! 584:
! 585: Console.WriteLine("unknown option " & options)
! 586: Console.WriteLine("usage: s_server [args ...]")
! 587: Console.WriteLine(" -accept arg" & ControlChars.Tab & _
! 588: "- port to accept on (default is 4433)")
! 589: Console.WriteLine(" -quiet" & ControlChars.Tab & ControlChars.Tab & _
! 590: "- No server output")
! 591: If build_mode >= axtls.SSL_BUILD_SERVER_ONLY
! 592: Console.WriteLine(" -cert arg" & ControlChars.Tab & _
! 593: "- certificate file to add (in addition to default) to chain -")
! 594: Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
! 595: " Can repeat up to " & cert_size & " times")
! 596: Console.WriteLine(" -key arg" & ControlChars.Tab & _
! 597: "- Private key file to use")
! 598: Console.WriteLine(" -pass" & ControlChars.Tab & ControlChars.Tab & _
! 599: "- private key file pass phrase source")
! 600: End If
! 601:
! 602: If build_mode >= axtls.SSL_BUILD_ENABLE_VERIFICATION
! 603: Console.WriteLine(" -verify" & ControlChars.Tab & _
! 604: "- turn on peer certificate verification")
! 605: Console.WriteLine(" -CAfile arg" & ControlChars.Tab & _
! 606: "- Certificate authority")
! 607: Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
! 608: " Can repeat up to " & ca_cert_size & " times")
! 609: End If
! 610:
! 611: If build_mode = axtls.SSL_BUILD_FULL_MODE
! 612: Console.WriteLine(" -debug" & _
! 613: ControlChars.Tab & ControlChars.Tab & _
! 614: "- Print more output")
! 615: Console.WriteLine(" -state" & _
! 616: ControlChars.Tab & ControlChars.Tab & _
! 617: "- Show state messages")
! 618: Console.WriteLine(" -show-rsa" & _
! 619: ControlChars.Tab & "- Show RSA state")
! 620: End If
! 621:
! 622: Environment.Exit(1)
! 623: End Sub
! 624:
! 625: '
! 626: ' We've had some sort of command-line error. Print out the client options.
! 627: '
! 628: Private Sub print_client_options(ByVal build_mode As Integer, _
! 629: ByVal options As String)
! 630: Dim cert_size As Integer = SSLUtil.MaxCerts()
! 631: Dim ca_cert_size As Integer = SSLUtil.MaxCACerts()
! 632:
! 633: Console.WriteLine("unknown option " & options)
! 634:
! 635: If build_mode >= axtls.SSL_BUILD_ENABLE_CLIENT Then
! 636: Console.WriteLine("usage: s_client [args ...]")
! 637: Console.WriteLine(" -connect host:port - who to connect to " & _
! 638: "(default is localhost:4433)")
! 639: Console.WriteLine(" -verify" & ControlChars.Tab & _
! 640: "- turn on peer certificate verification")
! 641: Console.WriteLine(" -cert arg" & ControlChars.Tab & _
! 642: "- certificate file to use")
! 643: Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
! 644: " Can repeat up to " & cert_size & " times")
! 645: Console.WriteLine(" -key arg" & ControlChars.Tab & _
! 646: "- Private key file to use")
! 647: Console.WriteLine(" -CAfile arg" & ControlChars.Tab & _
! 648: "- Certificate authority")
! 649: Console.WriteLine(ControlChars.Tab & ControlChars.Tab & _
! 650: " Can repeat up to " & ca_cert_size & " times")
! 651: Console.WriteLine(" -quiet" & _
! 652: ControlChars.Tab & ControlChars.Tab & "- No client output")
! 653: Console.WriteLine(" -pass" & ControlChars.Tab & _
! 654: ControlChars.Tab & _
! 655: "- private key file pass phrase source")
! 656: Console.WriteLine(" -reconnect" & ControlChars.Tab & _
! 657: "- Drop and re-make the " & _
! 658: "connection with the same Session-ID")
! 659:
! 660: If build_mode = axtls.SSL_BUILD_FULL_MODE Then
! 661: Console.WriteLine(" -debug" & _
! 662: ControlChars.Tab & ControlChars.Tab & _
! 663: "- Print more output")
! 664: Console.WriteLine(" -state" & _
! 665: ControlChars.Tab & ControlChars.Tab & _
! 666: "- Show state messages")
! 667: Console.WriteLine(" -show-rsa" & ControlChars.Tab & _
! 668: "- Show RSA state")
! 669: End If
! 670: Else
! 671: Console.WriteLine("Change configuration to allow this feature")
! 672: End If
! 673:
! 674: Environment.Exit(1)
! 675: End Sub
! 676:
! 677: End Class
! 678:
! 679: Public Module MyMain
! 680: Function Main(ByVal args() As String) As Integer
! 681: Dim runner As axssl = New axssl()
! 682:
! 683: If args.Length = 1 And args(0) = "version" Then
! 684: Console.WriteLine("axssl.vbnet " & SSLUtil.Version())
! 685: Environment.Exit(0)
! 686: End If
! 687:
! 688: If args.Length < 1
! 689: runner.print_options("")
! 690: ElseIf args(0) <> "s_server" And args(0) <> "s_client"
! 691: runner.print_options(args(0))
! 692: End If
! 693:
! 694: Dim build_mode As Integer = SSLUtil.BuildMode()
! 695:
! 696: If args(0) = "s_server" Then
! 697: runner.do_server(build_mode, args)
! 698: Else
! 699: runner.do_client(build_mode, args)
! 700: End If
! 701: End Function
! 702: End Module
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to axssl.vb CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / axTLS / samples / vbnet