Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Newcomers DBPro Corner / password *********

Author
Message
BongMong
21
Years of Service
User Offline
Joined: 29th Jul 2003
Location:
Posted: 29th Jul 2003 12:36
Link
hello, my first problem
im trying to turn password into ******

MY CODE
input "Connect to?:>";url$
input "User?:>";user$
input "Password?:>";password$

CODE From forum which works but cant get it to work with my code

print "Password=";
pass$="WeHaveAProblem"
pass2$=""
while returnkey()=0
if inkey$()="" then last=0
if (inkey$()"") and (last=0)
char=asc(lower$(inkey$() ))
if (char>=97) and (char
Back to top
Profile PM
Magpie
21
Years of Service
User Offline
Joined: 16th Jul 2003
Location: Otherland! Cos it rocks!
Posted: 29th Jul 2003 22:58
Link
Okaaaaaaaaaaayyyyyy...
Here we go:

top:
pass$ = ""
answer$ = "This Is The Right Password"
sync on
letters = 0
beginloop:
cls
pass2$ = ""
for le = 1 to letters
pass2$ = pass2$ + "*"
next le
text 1,1,"Type Your Password:"
text 1,40,pass2$
sync
repeat
if lower(inkey$()) = "a" then letters = letters + 1: pass$ = pass$ + "a": goto loopbegin
(repeat for all letters)
until returnkey() = 1
if pass$ = answer$
cls
text 1,1,"correct"
suspend for key
end
endif
cls
text 1,1,"wrong!!"
suspend for key
goto top

Back to top
Profile PM Email Website
Magpie
21
Years of Service
User Offline
Joined: 16th Jul 2003
Location: Otherland! Cos it rocks!
Posted: 29th Jul 2003 22:59
Link
I hope you can adapt it.

Back to top
Profile PM Email Website
k0shi
21
Years of Service
User Offline
Joined: 30th Dec 2002
Location: Cyberspace
Posted: 30th Jul 2003 20:36
Link
i have no nose!

Learn as if youll live forever, and give as if youll die tomorrow.
Back to top
Profile PM Email Website
k0shi
21
Years of Service
User Offline
Joined: 30th Dec 2002
Location: Cyberspace
Posted: 30th Jul 2003 22:35
Link
ok i improved it, its shorter now.

Learn as if youll live forever, and give as if youll die tomorrow.
Back to top
Profile PM Email Website
Back to top

Login to post a reply

Server time is: 2024-09-20 17:46:27
Your offset time is: 2024-09-20 17:46:27