VB中实现MD5加密[1]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 bucher 的 blog

使用方法:

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.         *
' *                                                                            *
' ******************************************************************************
'
'  class: md5
'
'  description:
'     this is a class which encapsulates a set of md5 message digest functions.
'     md5 algorithm produces a 128 bit digital fingerprint (signature) from an
'     dataset of arbitrary length.  for details see rfc 1321 (summarized below).
'     this implementation is derived from the rsa data security, inc. md5 message-digest
'     algorithm reference implementation (originally written in c)
'
'  author:
'     robert m. hubley 12/1999
'
'
'  notes:
'      network working group                                    r. rivest
'      request for comments: 1321     mit laboratory for computer science
'                                             and rsa data security, inc.
'                                                              april 1992
'
'
'                           the md5 message-digest algorithm
'

本文关键:MD5,VB6
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top