PHP 和 Visual Basic 2008 转换答案

【问题标题】：PHP and Visual Basic 2008 ConversionPHP 和 Visual Basic 2008 转换
【发布时间】：2009-10-29 20:37:51
【问题描述】：

我需要帮助将其转换为 PHP：

Public Function Encrypt(ByVal text As String) As String
        Dim charSet1 As String, charSet2 As String, i As Long
        Dim pos As Long, encryptedChar, encryptedText
        charSet1 = " ?!@#$%^&*()_+|0123456789abcdefghijklmnopqrstuvwxyz.,-~ABCDEFGHIJKLMNOPQRSTUVWXYZ¿¡²³ÀÁÂÃÄÅÒÓÔÕÖÙÛÜàáâãäåØ¶§Ú¥"
        charSet2 = " ¿¡@#$%^&*()_+|01²³456789ÀbÁdÂÃghÄjklmÅÒÓqÔÕÖÙvwÛÜz.,-~AàáâãFGHäJKåMNØ¶QR§TÚVWX¥Z?!23acefinoprstuxyBCDEILOPSUY"
        For i = 1 To Len(text)
            pos = InStr(charSet1, Mid(text, i, 1))
            If pos > 0 Then
                encryptedChar = Mid(charSet2, pos, 1)
                encryptedText = encryptedText + encryptedChar
            Else
                encryptedText = encryptedText + Mid(text, i, 1)
            End If
        Next
        Encrypt = encryptedText
    End Function

从视觉基础到 PHP...

我正在为我的网站制作一个像上面介绍的那样用 PHP 来散列的文本。上面的代码是自制的，所以它不像 MD5 或 SHA1。但是，如果你们知道在 Visual basic 2008 中加密和解密 MD5 的方法，请告诉我！（这也必须适用于 PHP）。

【问题讨论】：

MD5 是一个散列函数，它从任意长度的消息中生成一个 128 位的数字。从哈希值“解密”原始消息是不可能的，但是您可以找到一组哈希到相同值（哈希冲突）的消息，其中一个将是原始消息。

标签： php vb.net

【解决方案1】：

这里不是将上面的子程序转换为PHP，而是在VB.NET中将字符串转换为其MD5 Hash的子程序：

Function getMD5Hash(ByVal strToHash As String) As String

    Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider

    Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

    bytesToHash = md5Obj.ComputeHash(bytesToHash)

    Dim strResult As String = ""

    For Each b As Byte In bytesToHash

        strResult += b.ToString("x2")

    Next

    Return strResult

End Function

在 PHP 中你可以使用 md5 函数：

$hashedString = md5(strToHash);

就其作为散列的性质而言，您无法解密散列，只能散列并将其与存储的散列进行比较。

当然，我必须链接到 Rainbow Tables 上的 Coding Horror 帖子并给你的哈希加盐：

Coding Horror: Rainbow Hash Cracking

【讨论】：