Here is a very old code that I wrote during my college day using Turbo Pascal as my programming language it is a password program. The code is very simple and easy to understand.
I am currently accepting programming work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.
Program Listing
Program password;
uses crt;
var
w,i:integer;
pass,a:string[12];
try:char;
name:string;
begin
repeat
randomize;
textbackground(black);
clrscr;
gotoxy(32,6);
write('P A S S W O R D');
gotoxy(27,7); write('旼컴컴컴컴컴컴컴컴컴컴컴커');
gotoxy(27,8); write('? ?);
gotoxy(27,9); write('읕컴컴컴컴컴컴컴컴컴컴컴켸');
textcolor(black);
gotoxy(29,8);readln(pass);
textcolor(white);
gotoxy(20,12); write('Verifying password ');
for i:=40 to 60 do
begin
gotoxy(i,12);
sound(random(1000+i));
write('');
delay(7000);
end;
if pass = 'admin' then
begin
clrscr;
gotoxy(12,20);
write(' You are one of the authorized person(s) ');
end;
nosound;
if pass <> 'admin' then
begin
clrscr;
gotoxy(31,12); write('Wrong Password');
gotoxy(25,14);write('Do you want another try Y/N : ');
end;
nosound;
readln(try);
until (try = 'N') or (try = 'n');
readln;
end.
