home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CON-03A.ZIP / LOGIN.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-16  |  4KB  |  154 lines
  1. (* Groovey Express Software Version 0.01ß (c)1995 Grooven Designs *)
  2. (* The new alternative in /x style software development           *)
  3. (* Coded by Paul Maggs (fLiCk) / Grooven Designs                  *)
  4.  
  5. (* Groovey/x Login/Newuser unit *)
  6.  
  7. unit login;
  8.  
  9. interface
  10.  
  11. procedure init_user_file;
  12. procedure newuser;
  13. procedure login_user;
  14.  
  15. implementation
  16.  
  17. uses crt,
  18.      dos,
  19.      ansi_drv,
  20.      funct,
  21.      mmenu,
  22.      oneliner;
  23. type
  24.   userrecord = record
  25.     handle             : string[30];
  26.     location           : string[30];
  27.     realname           : string[30];
  28.     password           : string[15];
  29.     voicephone         : string[30];
  30.     dataphone          : string[30];
  31.     lines              : string[2];
  32.     computer           : string[30];
  33. {   seclevel           : byte;
  34.     callstotal         : longint;}
  35. end;
  36.  
  37. const
  38.   userfile='data\users.dat';
  39.  
  40. var
  41.   user          : userrecord;
  42.   f             : file of userrecord;
  43.   ename         : string[30];
  44.   epassword     : string[15];
  45.   len           : integer;
  46.  
  47. procedure init_user_file;
  48. begin
  49.    if not fileexists('data\users.dat') then begin
  50.       assign(f,'data\users.dat');
  51.       rewrite(f);
  52.       close(f);
  53.     end;
  54.  
  55.   assign(f,userfile);
  56.   reset(f);
  57. end;
  58.  
  59. (*
  60. procedure load_config;
  61. var
  62.   config        : text;
  63.   setup         : array[1..2] of string;
  64. begin
  65.   assign(config,'config.dat');
  66.   reset(config);
  67.   readln(config,setup[1]);
  68. end;
  69. *)
  70. procedure newuser;
  71.   begin
  72.     len:=30;
  73.     write('newuser, enter a handle       : ');    user.handle:=strupper(lengthstring(len));
  74.     write('enter your group/location     : ');    user.location:=strupper(lengthstring(len));
  75.     write('enter your realname           : ');    user.realname:=strupper(lengthstring(len));
  76.     len:=15;
  77.     write('enter your desired password   : ');    user.password:=strupper(lengthstring(len));
  78.     len:=30;
  79.     write('enter your voice phone number : ');    user.voicephone:=strupper(lengthstring(len));
  80.     write('enter your data phone number  : ');    user.dataphone:=strupper(lengthstring(len));
  81.     len:=2;
  82.     write('enter lines in your screen    : ');    user.lines:=strupper(lengthstring(len));
  83.     len:=30;
  84.     write('enter your type of computer   : ');    user.computer:=strupper(lengthstring(len));
  85.     filemode:=2;
  86.     reset(f);
  87.     seek(f,filesize(f));
  88.     write(f,user);
  89.     close(f);
  90.     init_user_file;
  91.     main_menu;
  92.   end;
  93.  
  94. procedure login_user;
  95.   var
  96.     f              : file of userrecord;
  97.     name           : string[30];
  98.     epassword      : string[15];
  99.     user           : userrecord;
  100.   begin
  101.  
  102.     clrscr;
  103.     writeln('Welcome to Groovy(tm), Located in Melbourne, Australia');
  104.     writeln('Running Conspiracy(tm) 0.2 Alpha (C) Grooven Designs 1995');
  105.     writeln('Registered to flick.  You are connected to node 1 at 33.6k');
  106.     writeln('Connection occured at TIME DATE.');
  107.     send_ansi('welcome.ans');
  108.     write('Enter your handle : ');
  109.     len:=30;
  110.     name:=strupper(lengthstring(len));
  111. (*
  112.  
  113.     if not fileexists('c:\groovey\data\users.dat') then begin
  114.       assign(f,'data\users.dat');
  115.       rewrite(f);
  116.       close(f);
  117.     end;
  118. *)
  119.  
  120.  
  121.     assign(f,'data\users.dat');
  122.     reset(f);
  123.     while (not eof(f)) and (name<>user.handle) do read(f,user);
  124.  
  125.   if (name<>user.handle) then begin
  126.      writeln('++ name not found in users.dat++');
  127.      newuser;
  128.  
  129.    end else begin
  130.          write('Enter your password : ');
  131.          len:=30;
  132.          epassword:=strupper(lengthstring(len));
  133.          if (epassword<>user.password) then
  134.            writeln('Incorrect password')
  135.          else
  136.            begin
  137.              send_ansi('aftername.ans');
  138.              writeln('Welcome to Groovy(tm) v0.2α');
  139.              one_liner_run;
  140.              main_menu;
  141.            end;
  142.          end;
  143. end;
  144.  
  145. (*
  146. begin
  147.   init_user_file;
  148. { load_config;}
  149.   login;
  150. *)
  151. end.
  152.  
  153.  
  154.