求ASP中MD5带有密钥的加密方法

[百思软件工作室]

求ASP中MD5带有密钥的加密方法

分不够，以后再加！

[smartcatiboy]

MD5是单向加密，无密钥

[百思软件工作室]

就是两个系统，一个ASP的，一个.NET的，要在ASP里面加密，然后把加密的东西传给.NET，再在.NET里面解密

[qbless]

LZ高手，能讲解的详细点吗？

[aemyang1987]

md5是单向加密,无法解密(听说有人能解但未看见过),为什么要解密呢,既然要解密为什么要用md5加密呢?

[吉祥兄]

等待真正的牛人把md5给解了，
初学者可以去建站学习网逛逛:www.aspxx.com

[mocom]

Public Function HexToArray(ByVal data)
	Dim ret, i
	ReDim ret(Len(data) / 2 - 1)
	For i = 1 To Len(Data) Step 2
		ret((i - 1) / 2) = CByte("&H" & Mid(data, i, 2))
	Next
	HexToArray = ret
End Function

Public Function HMACMD5(ByVal data, ByVal key)
	Dim PI(63), PO(63)
	Dim QO(79), QI
	Dim i
	Dim out
	ReDim QI(64 + Len(data) - 1)
	If Len(key) > 64 Then
		key = MD5(key)
	End If
	For i = 0 To 63
		QI(i) = &H36
		QO(i) = &H5C
		PI(i) = &H36
		PO(i) = &H5C
	Next
	For i = 0 To Len(key) - 1
		PI(i) = PI(i) Xor Asc(Mid(key, i + 1, 1))
		PO(i) = PO(i) Xor Asc(Mid(key, i + 1, 1))
		QI(i) = PI(i) And &HFF
		QO(i) = PO(i) And &HFF
	Next
	For i = 0 To Len(data) - 1
		QI(64 + i) = Asc(Mid(data, i + 1, 1)) And &HFF
	Next
	out = HexToArray(MD52(QI))
	For i = 0 To 15
		QO(64 + i) = out(i)
	Next
	HMACMD5 = MD52(QO)
End Function

MD52是加密字节数组的函数，把MD5加密改一下就可以了

[落日听风]

MD5 解密在网上有，没找到直接用的

[半山闲人]

MD5所谓的解密我见过的不过是用一部巨形的密码字典来反查,超过8位就很难查到了,真正解密的还未见过!

[hwfec]

[Quote=引用 7 楼 huyingcheng 的回复:]
MD5所谓的解密我见过的不过是用一部巨形的密码字典来反查,超过8位就很难查到了,真正解密的还未见过!
[/Quote]
MD5不可能解密的。