md5 && md6 Ayuda!

[wicho_lost]

Necesito un poco de ayuda con esto

miren este codigo

Private Function Challenge(sData As String) As String
Dim sReturn As String
sReturn = UnEscapeChars(sData) & m_ServerIp
sReturn = "edp{}e|wxrdse}}u" & String(48, "6") & sReturn
sReturn = DeHex(MDFIVE(sReturn))
sReturn = DeHex("0f0e1a11170f161d12180e190f17171f") & String(48, "\") & sReturn
sReturn = DeHex(MDFIVE(sReturn))
Challenge = sReturn
End Function

Todo me funciona bien exepto esto "DeHex(MDFIVE(sReturn))" por lo menos el dehex() funciona bien y el "sReturn" tambien, pero el que no funciona es el codificador mdfive o como es comun md6. quisiera saber si es por un error o por q falta alguna otra cosa.

Gracias