TheGameCreators - CodeBase - Password Security Program

Category: File Control

Version: 2.5

Information

Uploaded: 10th Feb 2009 21:24

Modified: 16th Jul 2010 16:24

Author: Madkiller Max

Summary

This will create delete and login in to a account you make!if you would like to use this code please say something that makes me connected to this part of the program!

Full Description

This will create delete and login in to a account you make!if you would like to use this code please say something that makes me connected to this part of the program!<br /> WARNING put a forward slash after C: and Madkiller Max Creation in the coding WARNING

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REMSTART

property of www.thegameruler.us and the creator Madkiller Max

can always find me on steam as [MK] Madkiller Max (GOOGLE ME)

if you would like to use this code please say something that makes me connected to this part of the program

REMEND

`set the place to write files

set dir "C:"

`put forward lash after C: and Creation

make directory "C:Madkiller Max creationPassword Protect"

set dir "C:Madkiller Max creationPassword Protect"

`start menu

start:

text 200,200, "1) Log In"

text 200,215, "2) Make an Account"

text 200,230, "3) Delete old Account"

repeat

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

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

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

if inkey$() = "3" then goto Delete

delete:

cls rgb (0,0,0)

set cursor 200,200

input "Please type in a username to delete: ", userdelete$

set cursor 200,215

input "Please type in a password to delete: ", passworddelete$

set cursor 200,230

print "Are you sure you want to delete? Y/N:"

repeat

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

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

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

cls rgb (0,0,0)

Deletefile:

delete file userdelete$ + " " + passworddelete$ + ".txt"

cls rgb (0,0,0)

goto start

`if they decide to make an account ask for details

cls rgb (0,0,0)

set cursor 200,200

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

set cursor 200,215

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

set cursor 200,230

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$ + " " + Password$ + ".txt"

cls rgb (100,90,110)

text 200,200, "Registration successful!"

text 25,215, "In order for your settings to take effect, please hit any key to continue."

wait key

end

cls rgb (0,0,0)

set cursor 150,200

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

set cursor 150,215

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

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

cls rgb (0,0,0)

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

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:

cls rgb (0,0,0)

if file exist (login2$) = 1 then goto login2successful

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

wait key

goto login

login2successful:

cls rgb (100,150,200)

text 230,230, "Successful login!"

wait key

cls rgb (0,0,0)

` right here is for the stuff you want to put in

Download

Please login to download

Comments

No comments yet.

Author Name:	Madkiller Max
CodeBase Entries:	4

CodeBase - Password Security Program

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments