Simple Login Forum + KEY GENERATOR

**DeToX** · 03-22-2010, 10:21 PM

Login Form

ok im only going to post the source you gota do the forum your self and if you program in vb you will understand, this is just a way to make a login page, and when you log in it will unlock a secret textbox.text

Code:

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = "password1" Then
            TextBox3.Visible = True
            MsgBox("Welcome To DeToX's Vault")
        Else
            TextBox3.Visible = False
            MsgBox("Please Enter The Correct Password")




        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub
End Class

also if you were smart you could change this a bit to read off maybe for say a webpage to load a list of passwords and names :O

-------------

KEY GENERATOR

okay i put double protection =) lmao a password and username, i only did one but you can change the user name for each program and password that way you can add a bunch of keys's for each program

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox2.Text = "Vault BKDXVIP" Then
            MsgBox("You Are One Step Closer To Getting The Correct Pin")
        Else
            MsgBox("You Are One Step Closer To Getting The Correct Pin")
        End If
        If TextBox1.Text = "23MJ23LEBRON23" & TextBox2.Text = "Vault BKDXVIP" Then
            MsgBox("Heres Your PIN")
            Label2.Text = "KEY"
            MsgBox("Key")
        Else
            MsgBox("Here Your Pin")
            Label2.Text = "FAKE KEY"
            MsgBox("Fake")
        End If
    End Sub
End Class