Imports<\/span> System.IO<\/span><\/p>\nImports<\/span> System.Data.OleDb<\/span><\/p>\nImports<\/span> System.Web.UI.WebControls.<\/span>ImageButton<\/span><\/p>\nImports<\/span> System.Web.UI.WebControls.<\/span>TextBox<\/span><\/p>\nImports<\/span> System.Web.SessionState<\/span><\/p>\nImports<\/span> System.Web.Security<\/span><\/p>\nImports<\/span> System.Web<\/span><\/p>\nPartial<\/span> <\/span>Class<\/span> Control_Panel<\/span><\/p>\nInherits<\/span> System.Web.UI.<\/span>Page<\/span><\/p>\nProtected<\/span> Sub<\/span> Login_Click(<\/span>ByVal<\/span> sender <\/span>As<\/span> Object<\/span>,<\/span> ByVal<\/span> e <\/span>As<\/span> System.Web.UI.<\/span>ImageClickEventArgs<\/span>)<\/span> Handles<\/span> Login.Click<\/span><\/p>\n‘\/ defining controls<\/span><\/p>\nDim<\/span> usn <\/span>As<\/span> TextBox<\/span><\/p>\nDim<\/span> pwd <\/span>As<\/span> TextBox<\/span><\/p>\n‘\/ binding controls<\/span><\/p>\nusn = Login.FindControl(<\/span>“usn”<\/span>)<\/span><\/p>\npwd = Login.FindControl(<\/span>“pwd”<\/span>)<\/span><\/p>\nDim<\/span> user <\/span>As<\/span> String<\/span><\/p>\nDim<\/span> key <\/span>As<\/span> String<\/span><\/p>\nuser = usn.Text.ToString()<\/span><\/p>\nkey = pwd.Text.ToString()<\/span><\/p>\n
\n<\/span><\/p>\n‘\/ password encryption [SHA1]<\/span><\/span><\/p>\nDim<\/span> sha1Obj <\/span>As<\/span> New<\/span> System.Security.Cryptography.<\/span>SHA1CryptoServiceProvider<\/span><\/p>\nDim<\/span> bytesToHash() <\/span>As<\/span> Byte<\/span>= System.Text.<\/span>Encoding<\/span>.ASCII.GetBytes(key)<\/span><\/p>\nbytesToHash = sha1Obj.ComputeHash(bytesToHash)<\/span><\/p>\nDim<\/span> keyCode <\/span>As<\/span> String<\/span> = <\/span>“”<\/span><\/p>\nFor<\/span> Each<\/span> b <\/span>As<\/span> Byte<\/span> In<\/span> bytesToHash<\/span><\/p>\nkeyCode += b.ToString(<\/span>“x2”<\/span>)<\/span><\/p>\nNext<\/span><\/p>\n‘\/ access db connection – MS Access 2007\/10 driver * you can define your own sql connection<\/span><\/p>\nDim<\/span> ConnDB <\/span>As<\/span> New<\/span> OleDbConnection<\/span>(<\/span>“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=”<\/span> & Server.MapPath(<\/span>“my_user.accdb”<\/span>))<\/span><\/p>\nDim<\/span> cmd <\/span>As<\/span> New<\/span> OleDbCommand<\/span>(<\/span>“SELECT * FROM users WHERE (usn = ‘”<\/span> &usn.Text.ToString() & <\/span>“‘) AND (pwd = ‘”<\/span> & keyCode & <\/span>“‘);”<\/span>,ConnDB)<\/span><\/p>\nDim<\/span> reader <\/span>As<\/span> OleDbDataReader<\/span><\/p>\nTry<\/span><\/p>\n‘\/ open connection<\/span><\/p>\ncmd.Connection.Open()<\/span><\/p>\nreader = cmd.ExecuteReader()<\/span><\/p>\nIf<\/span> reader.Read() <\/span>Then<\/span><\/p>\nLabelUSN.Text = <\/span>“<font color=’green’>Login successful!<\/font> – <a href=’Control-Panel.aspx?do=1′>Enter<\/a> secure pages”<\/span><\/p>\nSession(<\/span>“Name”<\/span>) = reader(1).ToString()<\/span><\/p>\nElse<\/span><\/p>\nLabel2.Text = (<\/span>“<font color=’red’>Login failed<\/font>”<\/span>)<\/span><\/p>\nEnd<\/span> If<\/span><\/p>\n‘\/ close connection<\/span><\/p>\ncmd.Connection.Close()<\/span><\/p>\nCatch<\/span> ex <\/span>As<\/span> Exception<\/span><\/p>\nLabel2.Text = <\/span>“<font color=’red’>Error:<\/font> “<\/span> & ex.Message.ToString()<\/span><\/p>\nEnd<\/span> Try<\/span><\/p>\nEnd<\/span> Sub<\/span><\/p>\nEnd<\/span> <\/span>Class<\/span><\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"Login.aspx [ form page ] Login.asp.vb [code behind] Imports System.IO Imports System.Data.OleDb Imports System.Web.UI.WebControls.ImageButton Imports System.Web.UI.WebControls.TextBox Imports System.Web.SessionState Imports System.Web.Security Imports System.Web Partial Class Control_Panel Inherits System.Web.UI.Page Protected Sub Login_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Login.Click ‘\/ defining controls Dim usn As TextBox Dim pwd As TextBox ‘\/ binding controls usn = […]<\/p>\n","protected":false},"author":35,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[28,17,16],"tags":[30,19,31,20],"class_list":["post-570","post","type-post","status-publish","format-standard","hentry","category-access","category-applications","category-net","tag-access-2","tag-asp-net","tag-encryption-2","tag-login"],"_links":{"self":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/570"}],"collection":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/users\/35"}],"replies":[{"embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/comments?post=570"}],"version-history":[{"count":17,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/570\/revisions"}],"predecessor-version":[{"id":580,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/posts\/570\/revisions\/580"}],"wp:attachment":[{"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/media?parent=570"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/categories?post=570"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.iowawebnet.com\/ein\/wp-json\/wp\/v2\/tags?post=570"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"\"](\"http:\/\/www.iowawebnet.com\/ein\/wp-content\/uploads\/2011\/02\/ScreenShot146.gif\" "\\"Login")
<\/a><\/p><\/blockquote>\n