求,basic.net的MD5加密程序

keeplinker 2008-10-08 02:30:47

如题

...全文

49 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

keeplinker 2008-10-09

打赏
举报

谢过,拿回去试试

破咖啡罐子 2008-10-09

打赏
举报

Imports System.Security.Cryptography
Partial Class MCLString

Public Class MDS
''' <summary>
''' MD5的32位加密结果
''' </summary>
''' <param name="stringToEncrypt"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetMD5(ByVal stringToEncrypt As String) As String
Dim md5 As New MD5CryptoServiceProvider()
GetMD5 = ""
Dim inputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes( _
stringToEncrypt)
Dim result As Byte() = md5.ComputeHash(inputByteArray)

For i As Integer = 0 To result.Length - 1
GetMD5 &= Hex(result(i))
Next

Return GetMD5

End Function

End Class

End Class

htpower 2008-10-09

打赏
举报



Imports System.Security.Cryptography

Imports System.Text

Imports System.Management





private Function MD5(ByVal input As String, ByVal coda As Integer) As String

        Dim md5Hasher As New MD5CryptoServiceProvider

        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))

        Dim sBuilder As New StringBuilder

        Dim i As Integer

        If coda = 16 Then

            For i = 4 To 11

                sBuilder.Append(data(i).ToString("x2"))

            Next i

        Else

            For i = 0 To 15

                sBuilder.Append(data(i).ToString("x2"))

            Next i

        End If

        Return sBuilder.ToString()

    End Function