Call Function

campkev 0 Posting Pro in Training · 2006-01-25T01:37:03+00:00

are you trying to put it on the aspx page or in the codebehind?

f1 fan 16 Posting Whiz in Training · 2006-01-25T03:10:59+00:00

make it a static function in a class (say Utilities) then in your click event in code behind just call Utilities.RandomPW(7). But you need to return the password you generated.

I have created a random password generator function in asp.net (vb.net)

No you copied it without understanding it again. There is no way that you could have thought up that code and coded it and then not know how to call a function.

Naters_uk 0 Junior Poster in Training · 2006-01-25T07:35:10+00:00

codes behind page.

campkev 0 Posting Pro in Training · 2006-01-25T21:22:33+00:00

here ya go hope this helps

WebForm1.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="vbtest.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
	<HEAD>
		<title>WebForm1</title>
		<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
		<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
		<meta name="vs_defaultClientScript" content="JavaScript">
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
	</HEAD>
	<body MS_POSITIONING="GridLayout">
	<form runat=server id="Form1">
		<asp:Button id="RndPassword" style="Z-INDEX: 100; LEFT: 392px; POSITION: absolute; TOP: 112px"
			runat="server" Text="RandomPassword"></asp:Button>
		<asp:Label id="lblNewPassword" style="Z-INDEX: 104; LEFT: 392px; POSITION: absolute; TOP: 152px"
			runat="server" Width="160px"></asp:Label>
		<asp:TextBox id="TextBoxPasswordLength" style="Z-INDEX: 101; LEFT: 336px; POSITION: absolute; TOP: 112px"
			runat="server" Width="28px"></asp:TextBox>
		<asp:Label id="Label1" style="Z-INDEX: 103; LEFT: 216px; POSITION: absolute; TOP: 112px" runat="server"
			Width="91px">Password Length</asp:Label>
			</form>
	</body>
</HTML>

WebForm1.aspx

Public Class WebForm1
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents RndPassword As System.Web.UI.WebControls.Button
    Protected WithEvents TextBoxPasswordLength As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents lblNewPassword As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub RndPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RndPassword.Click

        'These constant are the minimum and maximum length for random
        'length passwords. Adjust these values to your needs.
        Const minLength = 6
        Const maxLength = 20
        Dim myLength

        Try
            myLength = Convert.ToInt32(TextBoxPasswordLength.Text())

        Catch ex As Exception
            myLength = 0
        End Try
        Dim X, Y, strPW

        If myLength = 0 Then
            Randomize()
            myLength = Int((maxLength * Rnd()) + minLength)
        End If


        For X = 1 To myLength
            'Randomize the type of this character
            Y = Int((3 * Rnd()) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase

            Select Case Y
                Case 1
                    'Numeric character
                    Randomize()
                    strPW = strPW & Chr(Int((9 * Rnd()) + 48))
                Case 2
                    'Uppercase character
                    Randomize()
                    strPW = strPW & Chr(Int((25 * Rnd()) + 65))
                Case 3
                    'Lowercase character
                    Randomize()
                    strPW = strPW & Chr(Int((25 * Rnd()) + 97))

            End Select
        Next

        lblNewPassword.Text() = strPW



    End Sub
End Class

golden_leo 0 Newbie Poster · 2010-05-31T16:46:22+00:00

i like to add a special caracters, can you tel me how ?
thanks

kvprajapati 1,826 Posting Genius Team Colleague · 2010-06-01T15:39:43+00:00

@golden_leo

I'm glad you got it helpful.
Please do not resurrect old threads. If you have any questions please ask. You are welcome to start your own threads.

Thread Closed.