TheGameCreators - CodeBase - Unique Password Protect

Return to the CodeBase listing

Category: File Control

Version: 1.0

Information

Uploaded: 16th Mar 2005 12:59

Modified: 1st Jan 1970 01:00

Author: 00bk

Summary

A working password protect program for multiple users!

Full Description

A working password protect program for multiple users!<br /> <br /> Creates files for every user's name and password so that each and every user can log in to the members only section of the program!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`set the place to write files to - the local hard drive

set dir "C:\"

`create a directory to store names + passwords

make directory "Password Protect"

set dir "C:\Password Protect"

`start menu

start:

print "1) Log In"

print "2) Make an Account"

repeat

until inkey$() = "1" or inkey$() = "2"

if inkey$() = "1" then goto login

if inkey$() = "2" then goto register

`if they decide to make an account ask for details

input "Please type in a username: ", username$

input "Please type in a password: ", password$

print "Are you sure? Y/N:"

repeat

until inkey$() = "y" or inkey$() = "n"

if inkey$() = "y" then goto newmember

if inkey$() = "n" then goto start

`create files of those details

newmember:

open to write 1, username$ + ".txt"

open to write 2, password$ + ".txt"

print "Registration successful!"

`don't know why but you need to log out for it to work...

print "In order for your settings to take effect, please logout."

input "Please type in your username: ", login1$

input "Please type in your password: ", login2$

`search for a file with their username as the name of the file

if file exist(login1$ +".txt") = 1 then goto login1successful

print "Incorrect login. Press any key to go back and try again."

wait key

goto login

`search for a file with their password as the name of the file

login1successful:

if file exist(login2$ +".txt") = 1 then goto login2successful

print "Incorrect login. Press any key to go back and try again."

wait key

goto login

login2successful:

print "Successful login!"

wait key

`put whatever you want here for members only!

Download

Please login to download

Comments

No comments yet.

Author Name:	00bk
CodeBase Entries:	5

CodeBase - Unique Password Protect

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments