本文整理匯總了VB.NET中System.Security.SecureString.AppendChar方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET SecureString.AppendChar方法的具體用法？VB.NET SecureString.AppendChar怎麽用？VB.NET SecureString.AppendChar使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Security.SecureString的用法示例。
在下文中一共展示了SecureString.AppendChar方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: Example
' 導入命名空間
Imports System.Security
Module Example
Public Sub Main()
Dim msg As String = "The curent length of the SecureString object: {0}" + vbCrLf
Console.WriteLine("1) Instantiate the SecureString object.")
Dim ss As New SecureString()
Console.WriteLine(msg, ss.Length)
Console.WriteLine("2) Append 'a' to the value.")
ss.AppendChar("a"c)
Console.WriteLine(msg, ss.Length)
Console.WriteLine("3) Append 'X' to the value.")
ss.AppendChar("X"c)
Console.WriteLine(msg, ss.Length)
Console.WriteLine("4) Append 'c' to the value.")
ss.AppendChar("c"c)
Console.WriteLine(msg, ss.Length)
Console.WriteLine("5) Insert 'd' at the end of the value.")
ss.InsertAt(ss.Length, "d"c)
Console.WriteLine(msg, ss.Length)
Console.WriteLine("6) Remove the last character ('d') from the value.")
ss.RemoveAt(3)
Console.WriteLine(msg, ss.Length)
Console.WriteLine("7) Set the second character of the value to 'b'.")
ss.SetAt(1, "b"c)
Console.WriteLine(msg, ss.Length)
Console.WriteLine("8) Delete the value of the SecureString object:")
ss.Clear()
Console.WriteLine(msg, ss.Length)
ss.Dispose()
End Sub
End Module輸出：
1) Instantiate the SecureString object.
The curent length of the SecureString object: 0
2) Append 'a' to the value.
The curent length of the SecureString object: 1
3) Append 'X' to the value.
The curent length of the SecureString object: 2
4) Append 'c' to the value.
The curent length of the SecureString object: 3
5) Insert 'd' at the end of the value.
The curent length of the SecureString object: 4
6) Remove the last character ('d') from the value.
The curent length of the SecureString object: 3
7) Set the second character of the value to 'b'.
The curent length of the SecureString object: 3
8) Delete the value of the SecureString object:
The curent length of the SecureString object: 0
示例2: Example
' 導入命名空間
Imports System.Security
Class Example
Public Shared Sub Main()
Dim cki As ConsoleKeyInfo
Dim m As String = vbCrLf & "Enter your password (up to 15 letters, numbers, and underscores)" &
vbCrLf & "Press BACKSPACE to delete the last character entered. " & vbCrLf &
"Press Enter when done, or ESCAPE to quit: "
Dim password As New SecureString()
Dim top, left As Integer
' The Console.TreatControlCAsInput property prevents CTRL+C from
' ending this example.
Console.TreatControlCAsInput = True
Console.Clear()
Console.WriteLine(m)
top = Console.CursorTop
left = Console.CursorLeft
' Read user input from the console. Store up to 15 letter, digit, or underscore
' characters in a SecureString object, or delete a character if the user enters
' a backspace. Display an asterisk (*) on the console to represent each character
' that is stored.
Do
cki = Console.ReadKey(True)
If cki.Key = ConsoleKey.Escape Then Exit Do
If cki.Key = ConsoleKey.Backspace Then
If password.Length > 0 Then
Console.SetCursorPosition(left + password.Length - 1, top)
Console.Write(" "c)
Console.SetCursorPosition(left + password.Length - 1, top)
password.RemoveAt(password.Length - 1)
End If
Else
If password.Length < 15 AndAlso([Char].IsLetterOrDigit(cki.KeyChar) _
OrElse cki.KeyChar = "_"c) Then
password.AppendChar(cki.KeyChar)
Console.SetCursorPosition(left + password.Length - 1, top)
Console.Write("*"c)
End If
End If
Loop While cki.Key <> ConsoleKey.Enter And password.Length < 15
' Make the password read-only to prevent modification.
password.MakeReadOnly()
' Dispose of the SecureString instance.
password.Dispose()
End Sub
End Class輸出：
Enter your password (up to 15 letters, numbers, and underscores) Press BACKSPACE to delete the last character entered. Press Enter when done, or ESCAPE to quit: ************