哈希加密的简单类

老卫-COZE开发

于 2005-11-03 11:48:00 发布

阅读量793

点赞数

CC 4.0 BY-SA版权

文章标签：加密 function string byte class

本文链接：https://blog.youkuaiyun.com/ihwren/article/details/521618

博客展示了使用Visual Basic实现SHA1和MD5加密的代码。定义了Class1类，包含Hashjm和Md5jm两个函数，分别用于对输入字符串进行SHA1和MD5加密，并将加密结果转换为Base64字符串返回。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports System.Security.Cryptography
Public Class Class1

    Function Hashjm(ByVal TextToHash As String)
        Dim SHA1 As SHA1CryptoServiceProvider
        Dim bytValue() As Byte
        Dim bytHash() As Byte
        SHA1 = New SHA1CryptoServiceProvider
        bytValue = System.Text.Encoding.UTF8.GetBytes(TextToHash)
        bytHash = SHA1.ComputeHash(bytValue)
        SHA1.Clear()
        Return Convert.ToBase64String(bytHash)
    End Function

    Function Md5jm(ByVal TextToHash As String)
        Dim md5 As MD5CryptoServiceProvider
        Dim bytValue() As Byte
        Dim bytHash() As Byte
        md5 = New MD5CryptoServiceProvider
        bytValue = System.Text.Encoding.UTF8.GetBytes(TextToHash)
        bytHash = md5.ComputeHash(bytValue)
        md5.Clear()
        Return Convert.ToBase64String(bytHash)
    End Function
End Class