TheGameCreators - CodeBase - Password Computer Lock

Return to the CodeBase listing

Category: System

Version: 6.0

Information

Uploaded: 28th May 2009 11:07

Modified: 16th Jul 2010 16:14

Author: Madkiller Max

Summary

This is a program that you could use for a computer lock at startup!

Full Description

This is a program that you could use for a computer lock at startup!

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

part of the program

disable escapekey

disable systemkeys

set dir "C:"

`put forward lash after C: and Creation

make directory "C:/Madkiller Max Creation"

make directory "C:/Madkiller Max Creation/Password Computer Lock"

make directory "C:/Madkiller Max Creation/Password Computer Lock/Accounts"

make directory "C:/Madkiller Max Creation/Password Computer Lock/Admin"

set dir "C:/Madkiller Max Creation/Password Computer Lock/Accounts"

`start menu

startmenu:

disable systemkeys

set dir "C:/Madkiller Max Creation/Password Computer Lock/Accounts"

disable escapekey

cls

prettybackdropmenu()

wait 500

text 160,200, "1) Log In"

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

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

text 160,245, "4) Administrator Account Startmenu"

repeat

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

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

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

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

if inkey$() = "4" then goto aas

delete:

disable systemkeys

disable escapekey

cls rgb (0,0,0)

prettybackdrop()

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 startmenu

cls rgb (0,0,0)

Deletefile:

disable systemkeys

disable escapekey

if file exist (userdelete$ + " " + passworddelete$ + ".txt")

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

goto startmenu

else

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE DOSE NOT EXIST GOING TO START!"

wait 2000

goto startmenu

endif

`if they decide to make an account ask for details

disable systemkeys

disable escapekey

cls rgb (0,0,0)

prettybackdroplogin()

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

if username$ = "" or password$ = "" or username$ = " " or password$ = " "

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE REQUIRES USERNAME AND PASSWORD!"

wait 2000

goto startmenu

else

prettybackdroplogin()

print "Are you sure? Y/N:"

repeat

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

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

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

endif

`create files of those details

newmember:

disable systemkeys

disable escapekey

open to write 1, Username$ + " " + Password$ + ".txt"

cls

prettybackdrop()

text 200,200, "Registration successful!"

text 200,215, "GOING TO START MENU."

wait 2000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS.."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS..."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS.."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS..."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS.."

wait 1000

cls

prettybackdrop()

text 200,200, "TELLING ADMINS..."

wait 1000

cls

prettybackdrop()

text 200,200, "DONE TELLING ADMINS."

wait 1000

goto startmenu

aas:

disable systemkeys

`put forward lash after C: and Creation plus Door Lock

set dir "C:/Madkiller Max Creation/Password Computer Lock/Admin"

disable escapekey

cls rgb (0,0,0)

prettybackdropaaslogin()

set cursor 150,200

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

set cursor 150,215

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

if file exist (adminlogin1$ + " " + adminlogin2$ + ".txt")

goto loadingad

else

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE DOSE NOT EXIST GOING TO START!"

wait 2000

goto startmenu

endif

disable systemkeys

disable escapekey

cls rgb (0,0,0)

prettybackdrop()

set cursor 150,200

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

set cursor 150,215

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

if login1$ = "" or login2$ = ""

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE REQUIRES USERNAME AND PASSWORD!"

wait 2000

goto startmenu

else

if file exist (login1$ + " " + login2$ + ".txt")

goto loadingreg

else

` backway into the admin menu!

if login1$ = "1n" and login2$ = "1o" then goto loadingad

` backway finished

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE DOSE NOT EXIST GOING TO START!"

wait 2000

goto startmenu

endif

loginsuccessful:

disable systemkeys

disable escapekey

cls rgb (100,150,200)

text 230,230, "Successful login!"

goto startmenu

loginadminsuccessful:

set dir "C:/Madkiller Max Creation/Password Computer Lock/Accounts"

disable systemkeys

disable escapekey

cls

prettybackdropadminmenu()

text 160,170, "1) Start"

text 160,185, "2) Restart Program"

text 160,200, "3) Make a Regular Account"

text 160,215, "4) Make an Admin Account"

text 160,230, "5) Delete old Account"

text 160,245, "6) Make a Regualar User Admin"

text 160,260, "7) Other Programs by Madkiller Max"

repeat

until inkey$() = "1" or inkey$() = "2" or inkey$() = "3" or inkey$() = "4" or inkey$() = "5" or inkey$() = "6" or inkey$() = "7" or inkey$() = "8"

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

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

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

if inkey$() = "4" then goto registeradmin

if inkey$() = "5" then goto delete

if inkey$() = "6" then goto regtoad

if inkey$() = "7" then goto otherpro

registeradmin:

disable systemkeys

disable escapekey

cls rgb (0,0,0)

prettybackdrop()

set cursor 200,200

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

set cursor 200,215

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

set cursor 200,230

if usernameadmin$ = "" or passwordadmin$ = "" or usernameadmin$ = " " or passwordadmin$ = " "

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE REQUIRES USERNAME AND PASSWORD!"

wait 2000

goto startmenu

else

prettybackdrop()

print "Are you sure? Y/N:"

repeat

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

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

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

endif

`create files of those details

newmemberadmin:

disable systemkeys

disable escapekey

open to write 1, Usernameadmin$ + " " + Passwordadmin$ + ".txt"

cls

prettybackdrop()

text 200,200, "Registration successful!"

text 200,215, "Please restart program for this to take effect"

wait 2000

goto loginadminsuccessful

regtoad:

set dir putfile$ + "/Madkiller Max Creation/Password Computer Lock/Accounts"

disable systemkeys

disable escapekey

cls rgb (0,0,0)

prettybackdrop()

set cursor 200,200

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

set cursor 200,215

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

set cursor 200,230

disable systemkeys

disable escapekey

set dir "C:/Madkiller Max Creation/Password Computer Lock/Accounts"

if file exist (usernameadmin$ + " " + passwordadmin$ + ".txt")

move file usernameadmin$ + " " + passwordadmin$ + ".txt", "C:/Madkiller Max Creation/Password Computer Lock/Admin" + usernameadmin$ + " " + passwordadmin$ + ".txt"

delete file "C:/Madkiller Max Creation/Password Computer Lock/Accounts" + usernameadmin$ + " " + passwordadmin$ + ".txt"

else

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE DOSE NOT EXIST GOING TO START!"

wait 2000

goto loginadminsuccessful

endif

`create files of those details

newmemberadmin:

set dir "C:/Madkiller Max Creation/Password Computer Lock/Admin"

disable systemkeys

disable escapekey

open to write 1, Usernameadmin$ + " " + Passwordadmin$ + ".txt"

cls rgb (100,90,110)

prettybackdrop()

text 200,200, "Registration successful!"

text 200,215, "Please restart program for this to take effect"

wait 2000

goto loginadminsuccessful

`if they decide to make an account ask for details

registerreg:

disable systemkeys

disable escapekey

cls rgb (0,0,0)

prettybackdrop()

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

if username$ = "" or password$ = "" or username$ = " " or password$ = " "

cls rgb (0,0,0)

prettybackdrop()

set cursor 160,200

PRINT "USER FILE REQUIRES USERNAME AND PASSWORD!"

wait 2000

goto startmenu

else

prettybackdrop()

print "Are you sure? Y/N:"

repeat

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

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

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

endif

`create files of those details

newmemberreg:

disable systemkeys

disable escapekey

open to write 1, Username$ + " " + Password$ + ".txt"

cls

prettybackdrop()

text 200,200, "Registration successful!"

text 200,215, "GOING TO START MENU."

wait 2000

goto loginadminsuccessful

restart:

disable systemkeys

disable escapekey

goto proend

otherpro:

prettybackdrop()

text 160,200,"Ending program"

wait 1000

cls

prettybackdrop()

text 160,200,"Ending."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending.."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending..."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending.."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending..."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending.."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending..."

wait 1000

prettybackdrop()

rem get website

myweb$ = "http://omegabasic.thegamecreators.com/?m=codebase_list&c=&l=&p=&a=3734741ba71e2e1893b8f37bcc0d35d8"

rem Launch website

execute file myweb$,"",""

end

loadingreg:

disable escapekey

disable systemkeys

prettybackdrop()

text 200,200, "LOADING."

wait 1000

prettybackdrop()

text 200,200, "LOADING.."

wait 1000

prettybackdrop()

text 200,200, "LOADING..."

wait 1000

prettybackdrop()

text 200,200, "LOADING."

wait 1000

prettybackdrop()

text 200,200, "LOADING.."

wait 1000

prettybackdrop()

text 200,200, "LOADING..."

wait 1000

prettybackdrop()

text 200,200, "LOADING."

wait 1000

prettybackdrop()

text 200,200, "LOADING.."

wait 1000

prettybackdrop()

text 200,200, "LOADING..."

wait 1000

prettybackdrop()

goto loginsuccessful

loadingad:

disable escapekey

disable systemkeys

prettybackdrop()

text 200,200, "LOADING."

wait 1000

prettybackdrop()

text 200,200, "LOADING.."

wait 1000

prettybackdrop()

text 200,200, "LOADING..."

wait 1000

prettybackdrop()

text 200,200, "LOADING."

wait 1000

prettybackdrop()

text 200,200, "LOADING.."

wait 1000

prettybackdrop()

text 200,200, "LOADING..."

wait 1000

prettybackdrop()

text 200,200, "LOADING."

wait 1000

prettybackdrop()

text 200,200, "LOADING.."

wait 1000

prettybackdrop()

text 200,200, "LOADING..."

wait 1000

prettybackdrop()

goto loginadminsuccessful

proend:

prettybackdrop()

text 160,200,"Ending program"

wait 1000

cls

prettybackdrop()

text 160,200,"Ending."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending.."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending..."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending.."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending..."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending.."

wait 1000

cls

prettybackdrop()

text 160,200,"Ending..."

wait 1000

end

function prettybackdropmenu