Program Password Multi User dengan Pascal

Mochammad Rivai
mrivai@telkom.net


Baru.userid := user;
Baru.sandi := sandi;
AddToList(Baru);
Pass(1);
end;
end else Error(1);
end else Error(4);
End;
Procedure MinRec;
Begin
OpenPWL;
ASK('Login Password');
NoRec := 0;
NoRec := SearchList(User);
If NoRec > 0 then
begin
Seek(f,Norec-1);
Read(f,Records);
If Pulih(Records.sandi)=Sandi then
begin
ASK('Record to delete');
NoRec := 0;
NoRec := SearchList(User);
If NoRec > 0 then
begin
Seek(f,Norec-1);
Read(f,Records);
If Pulih(Records.sandi)=Sandi then
begin
DeleteRec(Pulih(Records.userid));
Pass(2);
end else error(2);
end else error(4);
end else error(2);
end else error(4);
End;
Begin
CheckBreak := False;
If Paramcount < 1 then
begin
OpenPWL;
ASK('Login Password');
NoRec := 0;
NoRec := SearchList(User);
If (NoRec > 0) and (Norec<=filesize(f)) then
begin
Seek(f,Norec-1);
Read(f,Records);
If Pulih(Records.sandi)=Sandi then Pass(0) else Error(0);
end else error(0);
end else
Begin
if Paramstr(1) = '+' then PlusRec else
If paramstr(1) = '-' then MinRec else Error(5);
End;
End.