Program,Life,Society.....

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

byte[] bytes=Convert.FromBase64String();
System.Text.Encoding.Default.GetString(bytes);

Imports System.Text
Imports System.Security.Cryptography

   
Private Function MD5Encrypt(ByVal EncrtyptStr As StringAs String

        
Dim md5 As New MD5CryptoServiceProvider
        
Dim Password As Byte() = (New ASCIIEncoding).GetBytes(EncrtyptStr)
        
Dim mdByte As Byte() = md5.ComputeHash(Password)

        
Return (New ASCIIEncoding).GetString(mdByte)

    
End Function

posted on 2005-02-05 10:30  vuejs3  阅读(2138)  评论(1)    收藏  举报