Program StartUpAuth;
uses dos;
uses Reboot;
const
pwrd = 'd347h3464';
usrname = 'DarknessX';
var
cmd: String;
s: String;
username: String;
password: String;
Procedure Shut_Down_Windows;
begin
 writeln('DarknessX Authentication Server');
 writeln('Please type your username.');
 readln(username);
  if usrname = username then
   begin
    writeln('Please type your password now.');
    readln(password);
     if pwrd = password then
      writeln(' Verifying...');
end;
begin
  if username <> 'DarknessX' then
   writeln('Sorry. No cheating the system...');
RebootMach;
  if password <> 'd347h3464' then
   writeln('Sorry. No cheating the system...');
RebootMach;
   end;
writeln('Welcome to the WinXP Command Line Interface.');
writeln('Please type "help" for a list of commands.');
writeln('If you wish to skip this, please type "exit"');
writeln('CMD..');
read(cmd);
write(cmd);
if cmd <> 'exit' then
writeln('Sorry, this command line interface has no extra commands available');
if cmd = 'help' then
writeln('The WinXP CLI, made by DarknessX, currently has no features.');
writeln('The only feature it has is Authentication.');
if cmd = 'exit' then
end;
end.

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
 
//Use upper case constants as a convention
const PWRD = 'd347h3464';
      USRNAME = 'DarknessX';
      VER = '1.0';
 
var cmd: String;
    username: String;
    password: String;
 
begin
 writeln('DarknessX Authentication Server');
 write('username : ');
 readln(username);
 write('password : ');
 readln(password);
 writeln(' Verifying...');
 
 if username <> USRNAME then begin
  While true do write('Sorry. No cheating the system...');
  //RebootMach;
 end;
 
 if password <> PWRD then begin
  While true do write('Sorry. No cheating the system...');
  //RebootMach;
 end;
 
 writeln('Welcome to the WinXP Command Line Interface.');
 writeln('Please type "help" for a list of commands.');
 writeln('If you wish to skip this, please type "exit"');
 writeln('CMD..');
 While true do Begin
  Write('>');
  readln(cmd);
  if cmd = 'help' then begin
   writeln('The WinXP CLI V'+VER+' - by DarknessX.');
   writeln('Supported commands :');
   writeln(' help');
   writeln(' ver');
   writeln(' exit');
  end else if cmd = 'ver' then Begin
   writeln('WinXP CLI V'+VER+' - by DarknessX');
  end else if cmd = 'exit' then Begin
   exit;
  end else writeln('Unrecognized command. Try help.');
 end;
end.