Question

您好我已经在互联网上搜索了3周，了解如何使用加密密码创建登录界面。我是一个加密密码的文本框但我不知道如何实现它。我正在使用linq to sql dbml连接我的数据只基于文本我能够得到它可以创建但我希望它更加安全，更专业地看加密的。顺便说一句，我使用向导创建数据库而不是硬编码，这是我知道如何做到的方式。我完全是编程任何帮助都会做的菜鸟。感谢

Public Class User_Log_In_v7 Dim admin As New GeneralsDataContext

Private Sub User_Log_InBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Me.Validate()
    Me.User_Log_InBindingSource.EndEdit()
    Me.TableAdapterManager.UpdateAll(Me.User_Log_In_DataSet)

End Sub

Private Sub User_Log_In_v7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'User_Log_In_DataSet.User_Log_In' table. You can move, or remove it, as needed.
    'Me.User_Log_InTableAdapter.Fill(Me.User_Log_In_DataSet.User_Log_In)

End Sub

Private Sub btnLogIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogIn.Click
    Try
        Dim check = From Storage In admin.User_Log_Ins _
                  Where UsernameTextBox.Text = Storage.Username And PasswordTextBox.Text = Storage.Password

        If Not check.Count = 0 Then
            Membership_Information.Show()
            Me.Hide()
            UsernameTextBox.Text = ""
            PasswordTextBox.Text = ""
        Else
            MsgBox("Please check username or password and try again", MsgBoxStyle.Exclamation, "")
            UsernameTextBox.Text = ""
            PasswordTextBox.Text = ""
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

这是我可以从另一个加密教程中获得的代码

导入System.Security.Cryptography Imports System.Text

Public Class Form1 Dim DES作为新的TripleDESCryptoServiceProvider Dim MD5 As New MD5CryptoServiceProvider

'hash function
Function MD5Hash(value As String) As Byte()
    Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
End Function

'Encryption
Function Encrypt(input As String, Key As String) As String

    DES.Key = MD5Hash(Key)
    DES.Mode = CipherMode.ECB

    Dim buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(input)

    Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length))


End Function

如何在vb加密中创建登录密码

0 个答案: