VB中实现MD5加密

p;End If
      End Function

''
'' Convert a long to an unsigned Double
''
Private Function LongToUnsigned(value As Long) As Double
        If value < 0 Then
          LongToUnsigned = value + OFFSET_4
        Else
          LongToUnsigned = value
        End If
End Function