SHA512 đơn giản cho người dùng Internet tải về và lưu trên máy tính để phục vụ cho mục đích cá nhân.Mình dựa theo ý tưởng của một anh coder nước ngoài về việc trên, và phát triển chương trình này để phục vụ cho công việc và đam mê của bản thân là chính, nay mình viết bài này chia sẽ đến cho nhiều người có cùng đam mê như bản thân.
Bên dưới là
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
Qua đoạn code trên mọi người cũng biết thêm gì và
Winform rồi chứ.Hoặc có thể xem video demo bên dưới để hiểu rỏ hơn nhé.
Chúc mọi người thành công.
PASSWORD UNZIP:
Chúc mọi người có những niềm vui nhỏ và phát triển cho bản thân một chương trình thật tốt để phục vụ cho mục đích cá nhân và chia sẽ ra cộng đồng.
HUNG.PRO.VNChúc mọi người có những niềm vui nhỏ và phát triển cho bản thân một chương trình thật tốt để phục vụ cho mục đích cá nhân và chia sẽ ra cộng đồng.
Đăng nhận xét