.NET (Core and Framework)

Me.TextBox1.ForeColor = System.Drawing.Color.Silver
Me.TextBox1.Text = "Sample text"

Private m_bFirst As Boolean = True
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    If m_bFirst Then
        'clear the text
        TextBox1.Text = ""
        TextBox1.ForeColor = Color.Black
    End If
End Sub

Private Sub TextBox1_MouseDown(ByVal sender As System.Object, _
            ByVal e As System.Windows.Forms.MouseEventArgs) _
            Handles TextBox1.MouseDown
    If m_bFirst Then
        'clear the text
        TextBox1.Text = ""
        TextBox1.ForeColor = Color.Black
    End If
End Sub

Function HashPassword(ByVal password As String) As String<br />
       Dim hashedPassword As String<br />
       Dim hashProvider As SHA256Managed<br />
       Try<br />
           Dim passwordBytes() As Byte<br />
           Dim hashBytes1() As Byte<br />
           Dim hashBytes2() As Byte<br />
           passwordBytes = System.Text.Encoding.Unicode.GetBytes(password)<br />
           hashProvider = New SHA256Managed<br />
           hashProvider.Initialize()<br />
           hashBytes1 = hashProvider.ComputeHash(passwordBytes)<br />
           hashBytes2 = hashProvider.ComputeHash(hashBytes1)<br />
           hashedPassword = Convert.ToBase64String(hashBytes2)<br />
       Finally<br />
           If Not hashProvider Is Nothing Then<br />
               hashProvider.Clear()<br />
               hashProvider = Nothing<br />
           End If<br />
       End Try<br />
       Return hashedPassword<br />
   End Function

myRijndael.Key = keyBytes     ' 32 bytes<br />
myRijndael.IV  = ivBytes         ' 16 bytes

byte[] key = new PasswordDeriveBytes("secret_pass", new byte[]{ 21, 5, 85, 200, 43, 65, 44 }).GetBytes(32);<br />
byte[] iv = new PasswordDeriveBytes("secret_pass", new byte[]{ 21, 5, 85, 200, 43, 65, 44 }).GetBytes(16);

hazarian wrote:

Give details for running