my first code in dbpro also work in dbclassic! A password program!

Author

Message

The Nerd

20

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 23rd Oct 2004 17:49

Link

hi

i have just got dbpro and i want to make a 20 line challeng like the first code!

the password is: "cheese"
but try to type in another word to see that the program only reconise "cheese" as the word.

NOTE: this codesnippet works in dbpro and also in dbclassic

here it is:

+ Code Snippet

answer$ = "cheese"
kode:
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again!"
sleep 2000
goto kode
endif

i would love to get comments.

FREE 2d collision toturials then visit my thread here : http://forum.thegamecreators.com/?m=forum_view&t=41045&b=5
my website : http://www.freewebs.com/waggames

Back to top

Profile PM Email

The Nerd

20

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 23rd Oct 2004 20:11

Link

please give me some comments

-The Nerd

FREE 2d collision toturials then visit my thread here : http://forum.thegamecreators.com/?m=forum_view&t=41045&b=5
my website : http://www.freewebs.com/waggames

Back to top

Profile PM Email

Ilya

21

Years of Service

User Offline

Joined: 10th Aug 2003

Location:

Posted: 24th Oct 2004 03:45

Link

bad

The default editor is fine.

Quote: "I've seen the word programming and I'm not sure what it means. Anybody please explain?"

Back to top

Profile PM Email Website

FROST Blade

20

Years of Service

User Offline

Joined: 2nd Oct 2004

Location:

Posted: 26th Oct 2004 08:31

Link

cool, but try doing something more interseting like have the computer cuss u out if u get the pass wrong

Back to top

Profile PM Email

blanky

20

Years of Service

User Offline

Joined: 3rd Aug 2004

Location: ./

Posted: 21st Dec 2004 19:35

Link

What WOULD be cool, is if you got an encoding/decoding algorithim in there, as at the moment, if you compiled an EXE and looked through it with a hex editor (or maybe even Notepad), among all the gibberish you would see 'cheese'.

If the password was encrypted by itself, then the password would be pretty much uncrackable!

Back to top

Profile PM Email Website

Three Score

20

Years of Service

User Offline

Joined: 18th Jun 2004

Location: behind you

Posted: 26th Dec 2004 05:33 Edited at: 26th Dec 2004 05:36

Link

i made one but i can still see my string but of course i am still in progress of the decryptor

edit:
wow i didnt knwo that: i can see my encryption function in it even
like it says 1 (4 unreadable characters) then a2

come to my forums http://hck83.darktech.info/forum/ formerly: 404 name not found
"others understand me but i dont understand my own thoughts"

Back to top

Profile PM Email Website

L B G

20

Years of Service

User Offline

Joined: 14th Oct 2004

Location: Bath

Posted: 6th Jan 2005 01:17

Link

why dont you dissable escape key and system keys.

then people can't exit the security system!!!

programing's cool but i'm cooler

Back to top

Profile PM Email Website

L B G

20

Years of Service

User Offline

Joined: 14th Oct 2004

Location: Bath

Posted: 6th Jan 2005 01:20

Link

sos

`==================================================================
`**********************************L**B**G*************************
`==================================================================
disable escapekey
disable systemkeys
answer$ = "cheese"
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 2 more tries"
sleep 2000
goto kode
endif

`=============================================

kode:
wait 2000
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 1 more try"
sleep 2000
goto kode 2
endif
kode 2:
`==============================================
wait 2000
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 1 more try"
sleep 2000
wait 600000
end
endif
`==================================================

+ Code Snippet

`==================================================================
`**********************************L**B**G*************************
`==================================================================
disable escapekey
disable systemkeys
answer$ = "cheese"
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 2 more tries"
sleep 2000
goto kode
endif

`=============================================

kode:
wait 2000
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 1 more try"
sleep 2000
goto kode 2
endif
kode 2:
`==============================================
wait 2000
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 1 more try"
sleep 2000
wait 600000
end
endif
`==================================================

programing's cool but i'm cooler

Back to top

Profile PM Email Website

L B G

20

Years of Service

User Offline

Joined: 14th Oct 2004

Location: Bath

Posted: 6th Jan 2005 01:21

Link

sos

+ Code Snippet

`==================================================================
`**********************************L**B**G*************************
`==================================================================
disable escapekey
disable systemkeys
answer$ = "cheese"
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 2 more tries"
sleep 2000
goto kode
endif

`=============================================

kode:
wait 2000
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "that password is wrong try again! 1 more try"
sleep 2000
goto kode 2
endif
kode 2:
`==============================================
wait 2000
cls
input "write the password : ", answer$
if answer$ = "cheese"
print "YOU DID IT!"
sleep 1000
end
else
print "U R Outa Here"
sleep 2000
wait 600000
end
endif
`==================================================

programing's cool but i'm cooler

Back to top

Profile PM Email Website

Random 69

20

Years of Service

User Offline

Joined: 24th Aug 2004

Location: Marshmellowland

Posted: 8th Jan 2005 05:47

Link

Her eis a better password protection program i made you cant alt tab out if you have the dll.......

ANd you can make a new pass of whatever you want here

rem disable stuff

DISABLE ESCAPEKEY
DISABLE SYSTEMKEYS

load dll "WinLockDll.dll", 1
call dll 1, "CtrlAltDel_Enable_Disable" ,0
call dll 1, "AltTab2_Enable_Disable" ,0,0
call dll 1, "Keys_Enable_Disable" ,0
call dll 1, "TaskSwitching_Enable_Disable" ,0 : rem enable end disable win key + alt tab.

`For first startup if file doesnt exist then create it
if file exist("xz.txt") = 1
	open to read 1,"xz.txt"
	read string 1,bong$
	close file 1
else

goto tec
endif

x = 0
print "Welcome To Gangsta Protect 1.0 Made By: Evan Davies"

aaa:
print " "
input "Please enter your password > ";pass$
if pass$ = bong$ then goto tec
cls
x = x + 1
print "Invalid Password Please try Again"
print " "
if x = 6 then goto bbb
goto aaa

bbb:
cls
print " To many Invalid Attempts System Locked."
goto bbb

tec:
call dll 1, "Keys_Enable_Disable" ,1
call dll 1, "CtrlAltDel_Enable_Disable" ,1
call dll 1, "AltTab2_Enable_Disable" ,0,1
call dll 1, "TaskSwitching_Enable_Disable" ,1
Print " Would you like to Create a new Password (Y/N)"
print " "
input " >" ;newp$
if newp$ = "y" then goto 444
end

444:

input "Enter New Password >" ;bong$
if file exist("xz.txt") then delete file "xz.txt"
open to write 1,"xz.txt"
write string 1, bong$
close file 1
print "New pass Has been Recorded. Press anykey to End"
wait key

+ Code Snippet


rem disable stuff




DISABLE ESCAPEKEY
DISABLE SYSTEMKEYS

load dll "WinLockDll.dll", 1
call dll 1, "CtrlAltDel_Enable_Disable" ,0
call dll 1, "AltTab2_Enable_Disable" ,0,0
call dll 1, "Keys_Enable_Disable" ,0
call dll 1, "TaskSwitching_Enable_Disable" ,0 : rem enable end disable win key + alt tab.






`For first startup if file doesnt exist then create it
if file exist("xz.txt") = 1
	open to read 1,"xz.txt"
	read string 1,bong$
	close file 1
else

	goto tec
endif



x = 0
print "Welcome To Gangsta Protect 1.0 Made By: Evan Davies"


aaa:
print " "
input "Please enter your password > ";pass$
if pass$ = bong$ then goto tec
cls
x = x + 1
print "Invalid Password Please try Again"
print " "
if x = 6 then goto bbb
goto aaa


bbb:
cls
print " To many Invalid Attempts System Locked."
goto bbb


tec:
call dll 1, "Keys_Enable_Disable" ,1
call dll 1, "CtrlAltDel_Enable_Disable" ,1
call dll 1, "AltTab2_Enable_Disable" ,0,1
call dll 1, "TaskSwitching_Enable_Disable" ,1
Print " Would you like to Create a new Password (Y/N)"
print " "
input " >" ;newp$
if newp$ = "y" then goto 444
end

444:

input "Enter New Password >" ;bong$
if file exist("xz.txt") then delete file "xz.txt"
open to write 1,"xz.txt"
write string 1, bong$
close file 1
print "New pass Has been Recorded. Press anykey to End"
wait key

just remove the call dll stuff to run it

Happy joy happy happy

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 8th Jan 2005 19:21

Link

Why not try and make it so that when someone types in a password, it comes up as *'s?
Takes abit of working out, you need to print **** to the screen, but still know what the user typed to see if the password matches.

http://www.dbspot.com/NYC
New years competition... Fo Shizzle.

Back to top

Profile PM Email Website

The Nerd

20

Years of Service

User Offline

Joined: 5th Jun 2004

Location: Denmark

Posted: 8th Jan 2005 19:24

Link

Well i dont know how to make that!

But yes it could be cool

The Nerd

looking for Royalty free 3D objects?
then Check PanzerGames at this link : http://www.freewebs.com/panzergames

Back to top

Profile PM Email

Neofish

20

Years of Service

User Offline

Joined: 7th Apr 2004

Location: A swimming pool of coke

Posted: 11th Jan 2005 05:59

Link

Not that hard, use a list or an enlarging string that records the inskey() or something and print a * for every letter. Then run the script on pressing of enter

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / my first code in dbpro also work in dbclassic! A password program!