1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
program mdp;
var F:Text;
a,user,mp,user_enr,mp_enr:string;
flag,PosDebMp:integer;
begin
write('votre user ? ');
readln(user);
write('votre mdp ? ');
readln(mp);
assign(F,'mdp.txt');
reset(F);
flag:=0;
while not eof(F) do Begin
readln(F,a);
user_enr:=copy(a,1,pos(' :',a)-1);
PosDebMp:=pos(': ',a);
mp_enr:=copy(a,PosDebMp+2,length(a)-PosDebMp-1);
if (user=user_enr) and (mp=mp_enr) then begin
Flag:=1;
Writeln('vous êtes bien identifé ',user_enr,' avec le mot de passe ',mp_enr);
break;
end;
end;
if flag=0 then Writeln('vérifier votre user ou mot de passe ....');
writeln;
write('Enter pour quitter..');
readln;
close(F);
end. |
Partager