求教:在ASP.NET里面怎样使用MD5加密用户密码

coolfax

谁能给个用HashPasswordForStoringInConfigFile方法加密和读取比较MD5密码的例子

要求的语言是VB.NET

谢谢

数据库是ACCESS


:)

Error

最初由 coolfax 发布
[B]谁能给个用HashPasswordForStoringInConfigFile方法加密和读取比较MD5密码的例子

要求的语言是VB.NET

谢谢

数据库是ACCESS


:) [/B]

Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text

Class FileEncrypt
    Public Shared Function ConvertStringToByteArray(s As [String]) As [Byte]()
        Return (New UnicodeEncoding()).GetBytes(s)
    End Function 'ConvertStringToByteArray


    Public Shared Sub Main()
        Dim fs As New FileStream("EncryptedFile.txt", FileMode.Create, FileAccess.Write)

        '创建文件流

        Console.WriteLine("输入一些要存储在加密文件中的文本：:")
        Dim strinput As [String] = Console.ReadLine()
        Dim bytearrayinput As [Byte]() = ConvertStringToByteArray(strinput)
        '具有随机密钥的 DES 实例
        Dim des As New DESCryptoServiceProvider()
        '从此实例创建 DES 加密器
        Dim desencrypt As ICryptoTransform = des.CreateEncryptor()
        '创建使用 des 加密转换文件流的加密流
        Dim cryptostream As New CryptoStream(fs, desencrypt, CryptoStreamMode.Write)
        '写出 DES 加密文件
        cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)

        cryptostream.Close()
        '创建文件流以读回加密文件
        Dim fsread As New FileStream("EncryptedFile.txt", FileMode.Open, FileAccess.Read)
        '从此 des 实例创建 DES 解密器
        Dim desdecrypt As ICryptoTransform = des.CreateDecryptor()
        '创建加密流集合以便对传入的字节进行读取并执行 des 解密转换
        Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
        '输出已解密文件的内容
        Console.WriteLine(New StreamReader(cryptostreamDecr, New UnicodeEncoding()).ReadToEnd())

        Console.WriteLine ()
        Console.WriteLine ("按 Enter 键继续...")
        Console.ReadLine()
    End Sub 'Main
End Class 'FileEncrypt

这个市visual studio.net里的帮助文档的事列

coolfax

:) :)

非常感谢~~~

;13

请问大侠

DES  , SHA , MD5

哪个加密比较安全呢?

coolfax

我刚才看了MSDN

决定用MD5了

但是我以前的旧密码是16位加密的

有什么工具可以把它升级到32位加密?

;13

因为用户很多了,不可能把人家原本的密码都删除