TheGameCreators - CodeBase - Password Generator

Category: Complete Applications

Version: 1.0

Information

Uploaded: 1st Jun 2009 14:37

Modified: 1st Jun 2009 14:42

Author: Dazrick

Summary

A nice password generator that will create and store passwords of any length and your choice of complexity, very simply to use.

Full Description

A nice password generator that will create and store passwords of any length and your choice of complexity, very simply to use. it makes use of loops and string manipulation, this is also my first main attempt at using files with DarBASIC, if any one has any advice on my code plz comment below. Enjoy. PS You will need to add the \ on the If Path Exist("C:PassFiles") = 0 then Make Directory "C:PassFiles" Set Dir "C:PassFiles" lines for them to work

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Password Genorator

Rem Created: Monday, May 30, 2009

Rem Created By Darran Nash

Rem ***** Main Source File *****

Randomize Timer()

Set Display Mode 600,600,16

If Path Exist("C:PassFiles") = 0 then Make Directory "C:PassFiles"

Set Dir "C:PassFiles"

Start:

CLS

Characters$ = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890`Â¬!Â£$%^&*()_+{}@:~?><|,./;'#][=-"

PassLength# = 0

Password$ = ""

PassVar# = 0

Variation# = 0

Choice# = 0

PassUse$ = ""

While PassLength# = 0

Input "Enter desired length of password: ", PassLength#

EndWhile

While PassVar# = 0

Print "1) Non-Caps, Caps, Numbers and Symbols"

Print "2) Non-Caps, Caps, Numbers"

Print "3) Non-Caps, Caps"

Print "4) Non-Caps"

Input "Enter Relevant Number for Password Variation: ", PassVar#

EndWhile

If PassVar# = 1 then Variation# = 95

If PassVar# = 2 then Variation# = 62

If PassVar# = 3 then Variation# = 52

If PassVar# = 4 then Variation# = 26

For i = 1 to PassLength#

Password$ = Password$ + MID$(Characters$, RND(Variation#))

CLS

Print "Password is: "+Password$

Print "Press any Key to Continue"

Wait Key

NoOverwrite:

PassUse$=""

While PassUse$ = ""

CLS

Print "This will be used for the Filename"

Input "Enter use for Password: ", PassUse$

EndWhile

If File Exist (PassUse$+".txt")

While Overwrite# = 0

CLS

Print "File Exists"

Print "Do You Wish To Overwrite?"

Print "1) Yes"

Print "2) No"

Input "Choose Number to Continue: ", Overwrite#

If Overwrite# = 1 then Delete File PassUse$+".txt"

If Overwrite# = 2 then GoSub NoOverwrite

EndWhile

EndIf

Open to Write 3, PassUse$+".txt"

Write String 3,Password$

Close File 3

While Choice# = 0

CLS

Print "1) Create Another Password"

Print "2) Exit"

Input "Choose Number to Continue: ", Choice#

If Choice# = 1 then GoSub Start

If Choice# = 2 then END

EndWhile

Download

Please login to download

Comments

No comments yet.

Author Name:	Dazrick
CodeBase Entries:	1

CodeBase - Password Generator

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments