python源码转VB源码 来拿100分

[lingyu555]

def md5hash(str):
return hashlib.md5(str).digest()

这里的).digest() 是什么意思 出来好像是ASCII码 在VB里边MD5 加密后怎么做).digest()这一步



def hexchar2bin(uin):
uin_final = ''
uin = uin.split('\\x')
for i in uin[1:]:
uin_final +=_chr(int(i, 16))

return uin_final



谁懂得 转换下，多谢了

[libralibra]

Function hexchar2bin(ByVal uin As String) As String
		hexchar2bin = ""
		Dim a() As String
		a = Split(uin, "\\x")
		For k = LBound(a) To UBound(a)
			hexchar2bin += a(k)
		Next
	End Function

[bugs2k]

Shared Function GetMd5Hash(ByVal md5Hash As MD5, ByVal input As String) As String

        ' Convert the input string to a byte array and compute the hash.
        Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.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.
        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder.Append(data(i).ToString("x2"))
        Next i

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

    End Function 'GetMd5Hash

[lingyu555]

[Quote=引用 2 楼 的回复:]
VB code

Function hexchar2bin(ByVal uin As String) As String
hexchar2bin = ""
Dim a() As String
a = Split(uin, "\\x")
For k = LBound(a) To UBound(a)
……
[/Quote]

狂汗，一点都不对么，这部分已经搞定了

[lingyu555]

要VB6的代码。大家有懂得快来拿分

[proorck6]

不懂，帮顶。

[lingyu555]

没人会吗？