TheGameCreators - CodeBase - Passwords generator V1.0

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 9th Aug 2014 05:33

Modified: 11th Nov 2014 12:11

Author: Brux

Summary

Simple Password generator

Full Description

simple password generator <br /> you choose the length up<br /> to a maximum of 14 characters<br /> For default is:9

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: Dark Basic Pro Project

Rem Created: Saturday, August 09, 2014

Rem ****** Generatore di password ++++++++++++

sync on

sync rate 0

Rem define some colors

co1=rgb(255,255,255)

co2=rgb(255,0,0)

co3=rgb(0,200,0)

grigio=rgb(192,192,192)

make_button(grigio,100,100,540,450,co1,0,1)

make_button(co1,220,250,400,300,0,0,2)

rem exit

make_button(co1,480,410,530,430,co2,co2,1)

text 490,413,"EXIT"

text 250,270,"GENERA PASSWORD"

center text 320,400,"PASSWORD CREATOR"

center text 320,420,"By Ermanno (ITALY)"

set text font "arial black"

set text size 40

main:

make_button(0,180,150,450,200,co3,co3,1)

ink co3,0

lT=len(c$):lT=lT/2*4

center text 320-lT,160,c$

repeat

if mouseclick()=1

if mousex()>220 and mousex()<400 and mousey()>250 and mousey()<300

anim_button(220,250,400,300):z=1

endif

if mousex()>480 and mousex()<530 and mousey()>410 and mousey()<430

anim_button(480,410,530,430)

cls 0

end

endif

sync

UNTIL z=1

z=0

c$=""

Rem *************

Rem max 12 Items

Rem deafault 8

Rem *************

for a=1 to 8

kk=rnd(15)

if kk<6 then x=rnd(25)+97

if kk>5 and kk<11 then x=rnd(25)+65

if kk>10 then x=rnd(9)+48

rem x=rnd(9)+48

c$=c$+chr$(x)

goto main

end

Function Make_Button(co1,Left,Top,Right,Bottom,co2,co3,shadow)

Ink 0,0

If shadow=1 Then Box left,top,right,bottom

If shadow=2 Then Box left-2,top-2,right+2,bottom+2

Ink co1,co1

Box left+1,top+1,right-1,bottom-1

Ink co2,co2

Line Left,Bottom,Left,Top : Line Left,Top,Right,Top

Ink co3,co3

Line Right,Top,Right,Bottom : Line Right,Bottom,Left,Bottom

EndFunction

Function Anim_Button(Ax,Ay,Bx,By)

Copy Bitmap 0,Ax-1,Ay-1,Bx,By,0,Ax,Ay,Bx+1,By+1

While MouseClick()=1 : Sync :  EndWhile

Copy Bitmap 0,Ax,Ay,Bx+1,By+1,0,Ax-1,Ay-1,Bx,By

EndFunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Brux
CodeBase Entries:	33

CodeBase - Passwords generator V1.0