这段ASP怎么翻译成易语言?

Arbitrary

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))

     For x=0 To 15
          odata(64+x) = innerhashout(x)
     Next

     HmacMd5 = binl2hex(b_calcMD5(odata))

End Function

附上完整代码

变形MD5的!!

Arbitrary

好吧,自己解决了....
半天居然没人来看看!
哎...

小白熊

你敢不敢把JB给我？

Arbitrary

七彩魔云 发表于 2014-7-3 16:08
你敢不敢把JB给我？

你翻译对了就给你.

YuSiuLow

功能HMACMD5 （文字，键）
字符类的HKEY
字符类的ipad （ 63 ）
字符类的OPAD （63）
字符类的的OData （ 79 ）
字符类的的别名（ ）
REDIM IDATA （ 64 + LEN（文本） - 1 ）
如果len （键） > 64然后
HKEY = calcMD5 （键）
HKEY =键
如果结束
字符类的x
对于x = 0到63
IDATA （ X）= ＆ H36
OData的（ X）= ＆ H5C
ipad的（ X）= ＆ H36
OPAD （ X）= ＆ H5C
下一个
当x = 0到LEN （ HKEY ） -1
ipad的（ X）= ipad的（ x）的异或ASC（ CSTR （ MID（ HKEY中，x +1,1 ） ） ）
OPAD （ X）= OPAD （ x）的异或ASC（ CSTR （ MID（ HKEY中，x +1,1 ） ） ）
IDATA （ X）= ipad的（ X）和＆HFF
OData的（ X）= OPAD （ x）和＆HFF
下一个
当x = 0到LEN （文本） -1
IDATA （ 64 + X ） = ASC（ CSTR （ MID（文字，X +1,1 ） ） ）和＆HFF
下一个
字符类的innerhashout
innerhashout = binl2byt （ b_calcMD5 （ IDATA ） ）
对于x = 0到15
OData的（ 64 + X ） = innerhashout （ x）的
下一个
HMACMD5 = binl2hex （ b_calcMD5 （ OData的） ）

Arbitrary

残冥玄虚 发表于 2014-7-3 21:38
功能HMACMD5 （文字，键）
字符类的HKEY
字符类的ipad （ 63 ）

百度翻译用的不错啊

YuSiuLow

Arbitrary 发表于 2014-7-3 21:48
百度翻译用的不错啊

那就采纳把！！！