PDA

Zobacz pełną wersję : zakrycie hasla



aha16
13-05-08, 14:54
witam robie sobie programik zeby logowalo mi sie no i tak
mam napisane:

program cos;
{haslo 3 proby}
uses crt;
var
i: byte;
haslo, uzytkownik, h,u: string;
begin
i:=2;
clrscr;
uzytkownik:='mama';
haslo:= 'hahaha123';
write('podaj nazwe uzytkownika ');
readln(u);
write('podaj haslo ');
readln(h);
if (uzytkownik<> u) and (haslo <> h) then
begin
repeat
begin
clrscr;
if i =0 then
begin
writeln('koniec prob po wcisnieciu entera program zostanie zamkiniety');
repeat until keypressed;
halt;
end;
writeln('nieprawidlowe haslo masz jeszcze ',i,' prob');
i:=i-1;
write('podaj nazwe uzytkownika ');
readln(u);
write('podaj haslo ');
readln(h);
end;
until (uzytkownik=u) and (haslo=h);
end;
clrscr;
writeln('dobrze');
repeat until keypressed;
end.


i nie wiem jak zrobic zeby zamias hasla wyskakiwaly mi gwiazdki( jak sie loguje , pisze haslo to go widac a chcialbym zeby wyskakiwaly gwiazdki)

Siriah
13-05-08, 19:33
zamiast

write('podaj haslo ');
readln(h);
zrb co w tym stylu:

write('podaj haslo ');
czytaj_haslo(h);
i co jak:


function czytaj_haslo(tutaj odpowiednia deklaracja zmiennych i parametru
zwracanego, czyli sczytanego z klawiatury hasa)

deklaracja zmiennych znak i haslo;

koniec:=false;
repeat
readkey(znak);
write('*')
if znak<>"jaki warunek zakaczajcy np kropka, czy ENTER"
haslo:=haslo+znak
else koniec:=true
until koniec=true

gorzej jeeli bdziesz chciaa wykasowywa gwiazdki... :D ale to te jest do zrobienia

PS. sorki za tak oglnikowy opis, ale:
a) dawno temu miaem do czynienia z programowaniem;
b) jaki wkad twrczy z Twojej strony te si programowi naley;

varez
13-05-08, 21:10
Siriah, skad wiesz ze aha to kobieta?
kod ogolnie dobry, tylko trzeba rozbudowac to zeby znak konczący był enterem.. z tym ze nie chce mi sie, mature z informatyki mam 21 maja, wiec 20 pomysle nad tym, w ramach treningu ;)