VB中实现MD5加密

使用方法：

msgbox DigestStrToHexStr("111")

源代码:

-----------剪切线------------------------------------------------------------

Option Explicit

''/******************************************************************************
'' *  Copyright (C) 2000 by Robert Hubley.                                      *
'' *  All rights reserved.                                                      *
'' *                                                                            *
'' *  This software is provided ``AS IS'''' and any express or implied            *
'' *  warranties, including, but not limited to, the implied warranties of      *
'' *  merchantability and fitness for a particular purpose, are disclaimed.     *
'' *  In no event shall the authors be liable for any direct, indirect,         *
'' *  incidental, special, exemplary, or consequential damages (including, but  *
'' *  not limited to, procurement of substitute goods or services; loss of use, *
'' *  data, or profits; or business interruption) however caused and on any     *
'' *  theory of liability, whether in contract, strict liability, or tort       *
'' *  (including negligence or otherwise) arising in any way out of the use of  *
'' *  this software, even if advised of the possibility of such damage.         *
'' *                                                                         &