添加一个textbox1控件、2个按钮
在代码最顶处引用 Imports System.Web.Security
主要代码:
Imports System.Web.Security //必须顶部声明
// Button1为SHA1加密方式
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strtext, strSHA1 As String
strtext = TextBox1.Text
strSHA1 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strtext, "SHA1")
Response.Write(strSHA1)
End Sub
// Button2为MD5加密方式
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strtext, strmd5 As String
strtext = TextBox1.Text
strmd5 = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strtext, "md5")
Response.Write(strmd5)
End Sub
关于本站 | 帮 助 | 广告服务 | 版权声明 | 业务合作 | 捐助本站 | 软件发布 | 联系我们
77资源下载 www.77zy.com ©2007-2008 版权所有
备案编号:赣ICP备07002641号 QQ:674648476