Question

是否有人有工作类或功能来创建散列电子邮件，发送到Facebook以使用connect.registerUsers注册电子邮件地址？

Answer 1

Connect.registerUsers仅使用I believe在.NET运行时中实现的normal MD5 hash。

MD5文档页面甚至包含一个示例代码：

Function getMd5Hash(ByVal input As String) As String
    ' Create a new instance of the MD5 object. '
    Dim md5Hasher As MD5 = MD5.Create()

    ' Convert the input string to a byte array and compute the hash. '
    Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))

    ' Create a new Stringbuilder to collect the bytes '
    ' and create a string. '
    Dim sBuilder As New StringBuilder()

    ' Loop through each byte of the hashed data '
    ' and format each one as a hexadecimal string. '
    For i As Integer = 0 To data.Length - 1
        sBuilder.Append(data(i).ToString("x2"))
    Next

    ' Return the hexadecimal string. '
    Return sBuilder.ToString()
End Function

~~然而，Facebook还有.NET client library，为什么不使用呢？~~

Duh。 .NET库不支持Connect（尚未）

Answer 2

我自己想出来了

Imports System.Net

导入tb2CoreLib

导入Microsoft.Xml.Schema.Linq

Imports System.Security.Cryptography

导入facebook.Utility

导入Microsoft.Xml

导入System.Xml

Imports System.Web

Public Class FacebookConnect

Public Function EmailHash（ByVal email As String）As String

    email = email.ToLower().Trim()
    Dim rawBytes As Byte() = System.Text.UTF8Encoding.UTF8.GetBytes(email)

    Dim crc As New Crc32()
    Dim crcResult As Byte() = crc.ComputeHash(rawBytes)
    Dim hexstring As String = Me.ToHexString(crcResult)

    Dim crcLResult As Long = Me.HexToDec(hexstring)

    Dim md5 As MD5 = New MD5CryptoServiceProvider()
    Dim md5Result As Byte() = md5.ComputeHash(rawBytes)
    Dim md5Data As String = Me.ToHexString(md5Result).ToLower()

    Return (crcLResult.ToString() & "_") + md5Data
End Function

结束课

导入系统

Imports System.Security.Cryptography

Public Class Crc32

Inherits HashAlgorithm

Public Const DefaultPolynomial As UInt32 = &HEDB88320UI

Public Const DefaultSeed As UInt32 = &HFFFFFFFFUI

Private Shadows hash As UInt32
Private seed As UInt32
Private table As UInt32()
Private Shared defaultTable As UInt32()

Public Sub New()
    table = InitializeTable(DefaultPolynomial)
    seed = DefaultSeed
    Initialize()
End Sub

Public Sub New(ByVal polynomial As UInt32, ByVal seed As UInt32)
    table = InitializeTable(polynomial)
    Me.seed = seed
    Initialize()
End Sub

Public Overloads Overrides Sub Initialize()
    hash = seed
End Sub

Protected Overloads Overrides Sub HashCore(ByVal buffer As Byte(), ByVal start As Integer, ByVal length As Integer)
    hash = CalculateHash(table, hash, buffer, start, length)
End Sub

Protected Overloads Overrides Function HashFinal() As Byte()
    Dim hashBuffer As Byte() = UInt32ToBigEndianBytes(Not hash)
    Me.HashValue = hashBuffer
    Return hashBuffer
End Function

Public Overloads Overrides ReadOnly Property HashSize() As Integer
    Get
        Return 32
    End Get
End Property

Public Shared Function Compute(ByVal buffer As Byte()) As UInt32
    Return Not CalculateHash(InitializeTable(DefaultPolynomial), DefaultSeed, buffer, 0, buffer.Length)
End Function

Public Shared Function Compute(ByVal seed As UInt32, ByVal buffer As Byte()) As UInt32
    Return Not CalculateHash(InitializeTable(DefaultPolynomial), seed, buffer, 0, buffer.Length)
End Function

Public Shared Function Compute(ByVal polynomial As UInt32, ByVal seed As UInt32, ByVal buffer As Byte()) As UInt32
    Return Not CalculateHash(InitializeTable(polynomial), seed, buffer, 0, buffer.Length)
End Function

Private Shared Function InitializeTable(ByVal polynomial As UInt32) As UInt32()
    If polynomial = DefaultPolynomial AndAlso defaultTable IsNot Nothing Then
        Return defaultTable
    End If

    Dim createTable As UInt32() = New UInt32(255) {}
    For i As UInt32 = 0 To 255
        Dim entry As UInt32 = DirectCast(i, UInt32)
        For j As Integer = 0 To 7
            If (entry And 1) = 1 Then
                entry = (entry >> 1) Xor polynomial
            Else
                entry = entry >> 1
            End If
        Next
        createTable(i) = entry
    Next

    If polynomial = DefaultPolynomial Then
        defaultTable = createTable
    End If

    Return createTable
End Function

Private Shared Function CalculateHash(ByVal table As UInt32(), ByVal seed As UInt32, ByVal buffer As Byte(), ByVal start As Integer, ByVal size As Integer) As UInt32
    Dim crc As UInt32 = seed
    For i As Integer = start To size - 1
        crc = (crc >> 8) Xor table(buffer(i) Xor crc And &HFF)

    Next
    Return crc
End Function

Private Function UInt32ToBigEndianBytes(ByVal x As UInt32) As Byte()
    Return New Byte() {CByte(((x >> 24) And &HFF)), CByte(((x >> 16) And &HFF)), CByte(((x >> 8) And &HFF)), CByte((x And &HFF))}
End Function

结束班

Facebook连接vb.net的电子邮件哈希函数

2 个答案: