Function HmacMd5(text,key)
Dim hkey
Dim ipad(63)
Dim opad(63)
Dim odata(79)
Dim idata()
ReDim idata(64 + Len(text) - 1)
If Len(key)>64 Then
hkey = calcMD5(key)
Else
hkey = key
End If
Dim x
For x=0 To 63
idata(x) = &h36
odata(x) = &h5C
ipad(x) = &h36
opad(x) = &h5C
Next
For x=0 To Len(hkey)-1
ipad(x) = ipad(x) Xor Asc(CStr(Mid(hkey,x+1,1)))
opad(x) = opad(x) Xor Asc(CStr(Mid(hkey,x+1,1)))
idata(x) = ipad(x) And &hFF
odata(x) = opad(x) And &hFF
Next
For x=0 To Len(text)-1
idata(64+x) = Asc(CStr(Mid(text,x+1,1))) And &hFF
Next
Dim innerhashout
innerhashout = binl2byt(b_calcMD5(idata))