新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 软件开发 > .Net开发 > Asp.net教程 > 正文:.NET中带有口令加密的注册页面(还是发表在这里吧~-~)

.NET中带有口令加密的注册页面(还是发表在这里吧~-~)

新客网 XKER.COM 2003-07-12 来源: 收藏本文
在ASP.NET中提供了加密的功能。名字空间System.Web.Security中包含了类FormsAuthentication,其中有一个方法HashPasswordForStoringInConfigFile。这个方法可以将用户提供的字符变成乱码,然后存储起来。注意此方法是不能继承的。
下面的代码就是在做注册页面时将数据加密后存储到数据库的过程
Imports System.Web.Security
Imports System.Data
Imports System.Data.SqlClient  '////////所需要的名称空间

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PassFormate As String
        '///////////////EncryptPassword调用函数
        PassFormate = EncryptPassword(uid.Text, "md5")   '//////////或者是EncryptPassword(uid.Text, "sha1")
        'TextBox2.Text = EncryptPassword(uid.Text, "md5")
        'TextBox3.Text = EncryptPassword(uid.Text, "sha1")
        '///////////这些大家自己试验吧
        'TextBox4.Text = FormsAuthentication.FormsCookieName
        'TextBox5.Text = FormsAuthentication.FormsCookiePath
        'TextBox6.Text = FormsAuthentication.GetRedirectUrl(uid.Text, True)
        'FormsAuthentication.SetAuthCookie(uid.Text, True)

        Dim sql As String = "insert into pwd(uid,pwd) values(@uid,@pwd)"
        Dim comm As SqlCommand = New SqlCommand(sql, conn)
        conn.Open()
        comm.Parameters.Add(New SqlParameter("@uid", SqlDbType.Char, 16))
        comm.Parameters("@uid").Value = uid.Text
        comm.Parameters.Add(New SqlParameter("@pwd", SqlDbType.Char, 16))
        comm.Parameters("@pwd").Value = PassFormate
        comm.ExecuteNonQuery()
        
    End Sub

    '////////////////定义加密函数,可以随时调用。
    Function EncryptPassword(ByVal password As String, ByVal passwordformate As String)
        If passwordformate = "sha1" Then
            EncryptPassword = FormsAuthentication.HashPasswordForStoringInConfigFile(password, "sha1")
        ElseIf passwordformate = "md5" Then
            EncryptPassword = FormsAuthentication.HashPasswordForStoringInConfigFile(password, "md5")
        Else
            EncryptPassword = ""
        End If

    End Function
至于用户的验证也是一样的思路了。
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐