This tutorial shows how we can use C# to generate a random password. VB version.Generating random passwords can increase the security of a
website by taking the process out of the hands of the user, or simply
providing an alternative.
Generating Random Passwords with ASP.NET and VB
This tutorial shows how we can use C# to generate a random password. VB version.
Generating random passwords can increase the security of a
website by taking the process out of the hands of the user, or simply
providing an alternative, and thus reducing the chance of
easily-guessable passwords being used. This tutorial shows a simple
method of creating a random password.
We moved our web sites to Server Intellect and have found them to be incredibly professional. Their setup is very easy and we were up and running in no time.
First, we create the ASPX page:
Enter Required Password Length:
|
Server Intellect assists companies of all sizes with their hosting needs by offering fully configured server solutions coupled with proactive server management services. Server
Intellect specializes in providing complete internet-ready server
solutions backed by their expert 24/365 proactive support team.
The simple method is shown below. This is how the code-behind should look:
Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
If IsPostBack Then
Label1.Text = "Please enter a password length (e.g. 8)"
End If
End Sub
Public Shared Function CreateRandomPassword(ByVal PasswordLength As Integer) As String
Dim _allowedChars As String = "abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ0123456789"
Dim randNum As New Random()
Dim chars(PasswordLength - 1) As Char
Dim allowedCharCount As Integer = _allowedChars.Length
For i As Integer = 0 To PasswordLength - 1
chars(i) = _allowedChars.Chars(CInt(Fix((_allowedChars.Length) * randNum.NextDouble())))
Next i
Return New String(chars)
End Function
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
If TextBox1.Text <> "" Then
Dim myInt As String = TextBox1.Text.ToString()
Label1.Text = "Your generated password is: " & CreateRandomPassword(Integer.Parse(myInt))
End If
End Sub
|
|
