0

抱歉,如果这已经得到回答。我看了看,但找不到任何具体的东西。

我正在VB.NET中编写一个程序,该程序使用IP Board 3.4.5与互联网论坛共享登录名。

我在密码部分遇到困难 - 论坛使用带有 4 个字符盐的 md5 哈希。文档用PHP表示如下:

$hash = md5( md5( $salt ) . md5( $password ) );

我需要使用VB.NET达到相同的结果,谁能给我一个关于如何实现这一目标的指针?

4

1 回答 1

0

虽然我不熟悉盐应该如何工作,但我创建了一个对密码和盐进行散列的函数,然后使用它们作为输入来创建最终的散列。

你需要这些:

Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

要运行这个:

Private Function CreateMD5(password As String, salt As String) As String
    Dim passwordBytes() As Byte = Encoding.UTF8.GetBytes(password)
    Dim saltBytes() As Byte = Encoding.UTF8.GetBytes(salt)
    Dim saltedPasswordHash As Byte()

    Dim md5Hasher As MD5 = Security.Cryptography.MD5.Create()
    Dim buffer As New MemoryStream
    Dim writer As New StreamWriter(buffer) With {.AutoFlush = True}

    Try
        writer.Write(md5Hasher.ComputeHash(passwordBytes))
        writer.Write(md5Hasher.ComputeHash(saltBytes))
        buffer.Position = 0
        saltedPasswordHash = md5Hasher.ComputeHash(buffer)
    Finally
        writer.Dispose()
        buffer.Dispose()
        md5Hasher.Dispose()
    End Try

    Return String.Concat(BitConverter.ToString(saltedPasswordHash).Split("-"c))
End Function

示例用法:

Dim saltedHash As String = CreateMD5("password", "salt")
Console.WriteLine(saltedHash)

输出:

CDA7359AB6408E7F0088CAB68470D5FE

于 2013-08-07T00:16:13.047 回答