Nhìn lên hình ảnh bên trên các bạn cũng đã hiểu thủ thuật này như thế nào rồi chứ :D Nó dạng mã hóa ký tự của bạn thành một dạng mã "SHA512" mà các dân lập trình website hay các "PRO" về bảo mật muốn khó tìm mật khẩu của người :D, nhưng cái gì cũng có lỗ hổng cả không có cái gì là an toàn 100% nhé mọi người :D
Full Code
Imports System.Security.Cryptography
Imports System.Text
Public Class Form1
Private Function h512(ByVal txt As String)
Dim a() As Byte = Encoding.UTF8.GetBytes(txt)
Dim b As Byte()
Dim c As New SHA512Managed
b = c.ComputeHash(a)
Dim d As String = ""
For Each e As Byte In b
d &= e.ToString("x2")
Next
h512 = d
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox2.Text = h512(TextBox1.Text)
TextBox2.Enabled = True
End Sub
End Class
VIDEO DEMO
Chúc các bạn thành công với thủ thuật đơn giản này, để tăng tính bảo mật cho website hay blog của các bạn nhé :D
Sau này có nhiều thời gian rảnh mình sẽ cập nhật thêm nhiều chức năng cho ứng dụng này để các bạn không bị động trong ứng dụng.