----------------------------------------------
  /       ---/   --/  /   /  |  /------/   /    /
 /---       /-----/------/-----/      /   /    /
/----------/                         /--------/
              -of HAVOC Bell Systems-

by Scud-O

Why is it called HellNet[tm]?

Text files you need to create:

HOSTMODE.SRP

int STACKSIZE = 45;

/* HAVOC Bell Systems HellNet[tm] Host Mode Script Version 0 */
/* Copyright HAVOC Bell Systems (c) 1996 ALL FIGHT F**KED! */

int  BaudRate;

char FALSE = 0;
char TRUE = 1;
char CANCEL = -1;

int  MAX_FILE_LEN = 144;
int  HOST_TIMOUT;

char DefaultProtocol;
char CurrentDir[144];
char StartupDir[144];
char TempDir[144];
char UserName[82];
char userString[82];

char host_timeout = FALSE;
char host_continue;
char security_level;
char last_prompt;
char ASCIITransComplete[] = "\r\nASCII transfer completed.\r\n";
char ASCIITransCanceled[] = "\r\nASCII transfer completed.\r\n";
char xTransComplete[] = "\r\nXmodem transfer completed.\r\n";
char xTransCanceled[] = "\r\nXmodem transfer canceled.\r\n";
char yTransComplete[] = "\r\nYmodem transfer completed.\r\n";
char yTransCanceled[] = "\r\nYmodem transfer canceled.\r\n";
char kTransComplete[] = "\r\nKermit transfer completed.\r\n";
char kTransCanceled[] = "\r\nKermit transfer canceled.\r\n";
char zTransComplete[] = "\r\nZmodem transfer completed.\r\n";
char zTransCanceled[] = "\r\nZmodem transfer canceled.\r\n";
char xyCancelPrompt[] = "\r\nPress Ctrl-X several times to cancel.\r\n";
char thatSelection[] = "\r\nThe option you selected is not available to you.\r\n";
char accessDenied[] = "\r\nAccess denied.\r\n";
char tooLong[] = "\r\n\r\nYou took too long to respond.\r\n\r\nGoodbye!\r\n";
char invalid[] = "\r\nInvalid selection.\r\n";
char pleaseWaitProcessing[] = "\r\nPlease wait.  Your request is being processed...\r\n";

char *days[] = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"};

HostOut(char *str)
{
	Out(str);
	Echo(str);
}


ListProtocols()
{
	HostOut("\r\nChoose a file transfer protocol...\r\n");
        HostOut("[1] ASCII        [5] Ymodem\r\n");
        HostOut("[2] Xmodem       [6] Ymodem-G\r\n");
        HostOut("[3] Xmodem CRC   [7] Kermit/SuperKermit\r\n");
        HostOut("[4] Xmodem 1K    [8] Zmodem\r\n");
        HostOut("                 [ESC] cancels transfer\r\n");
}


SelectProtocol()
{
	int rv;

	ListProtocols();
	DefaultProtocol = 0;
	PrintHostPrompt(3);

    rv = GetUserInput(userString, TRUE, HOST_TIMOUT);
	if (rv)
	{
		if ((userString[0] >= 49) && (userString[0] <= 56) && (!userString[1]))
			DefaultProtocol = userString[0] - 48;
		else
			rv = CANCEL;
	}
    else
		host_timeout = TRUE;
	return(rv);
}


GetFileName()
{
	int rv;

	PrintHostPrompt(4);
    rv = GetUserInput(userString, TRUE, HOST_TIMOUT);

	if (rv == CANCEL)
	{
		return(CANCEL);
	}
	else if (rv == TRUE)
	{
		if (userString[0])
		{
			if ((Exists(userString)) == -1)
			{
				return(-2);
			}
			else
			{
				return(TRUE);
			}
		}
	}
	else
		host_timeout = TRUE;
	return(FALSE);
}


PutFileName()
{
	int rv;

	PrintHostPrompt(4);
    rv = GetUserInput(userString, TRUE, HOST_TIMOUT);

	if (rv == CANCEL)
	{
		return(CANCEL);
	}
	else if (rv == TRUE)
	{
		if (userString[0])
		{
			if ((Exists(userString)) == -1)
			{
				return(TRUE);
			}
			else
			{
				return(FALSE);
			}
		}
	}
	else
		host_timeout = TRUE;
	return(FALSE);
}


GetMultipleFiles(char *fileName)
{
	char ret = TRUE;

	if (fileName[0])
		AddFile(fileName);

	HostOut("\r\nSpecify multiple files, blank filename terminates list.\r\n");

	while ((ret == TRUE) && !host_timeout)
	{
		while ((ret = GetFileName()) == -2)
			HostOut("\r\nFile does not exist.\r\n");

		StrCpy(userString, fileName);
		if (fileName[0])
			AddFile(fileName);
	}
}


DownloadFiles()
{
	int rv;
	char fileName[MAX_FILE_LEN];

    ClearList();
	HostOut("\r\nFile Download");
	if ((GetFileName() == TRUE) && !host_timeout)
	{
	    StrCpy(userString, fileName);
		rv = SelectProtocol();
		if (rv == CANCEL)
			return(CANCEL);
		else if (rv == FALSE)
		return(host_timeout);

		if (DefaultProtocol == 1)
		{
			PrintHostPrompt(5);
			if (GetUserInput(userString, TRUE, HOST_TIMOUT))
			{
				if (Upload(1, fileName))
					HostOut(ASCIITransComplete);
				else
					HostOut(ASCIITransCanceled);
			}
			else
			{
				host_timeout = TRUE;
			}
		}
		else if ((DefaultProtocol == 2) || (DefaultProtocol == 3))
		{
			HostOut("\r\nBegin your Xmodem receive now.");
			HostOut(xyCancelPrompt);
			Wait(2);
			if (Upload(3, fileName))
				HostOut(xTransComplete);
			else
				HostOut(xTransCanceled);
		}
		else if (DefaultProtocol == 4)
		{
			HostOut("\r\nBegin your Xmodem 1K receive now.");
			HostOut(xyCancelPrompt);
			if (Upload(4, fileName))
				HostOut(xTransComplete);
			else
				HostOut(xTransCanceled);
		}
		else if ((DefaultProtocol == 5) || (DefaultProtocol == 6))
		{

                        GetMultipleFiles(fileName);
	    if (!host_timeout)
			{
				if (DefaultProtocol == 5)
					HostOut("\r\nBegin your Ymodem receive now.");
				else
				    HostOut("\r\nBegin your Ymodem-G receive now.");
				HostOut(xyCancelPrompt);
				Wait(2);
				if (Upload(5))
					HostOut(yTransComplete);
				else
					HostOut(yTransCanceled);

			}
		}
		else if (DefaultProtocol == 7)
		{
			GetMultipleFiles(fileName);
	    if (!host_timeout)
			{
				HostOut("\r\nBegin your Kermit/SuperKermit receive now.");
				HostOut(xyCancelPrompt);
				if (Upload(2))
					HostOut(kTransComplete);
				else
					HostOut(kTransCanceled);
			}
		}
		else if (DefaultProtocol == 8)
		{
			GetMultipleFiles(fileName);
	    if (!host_timeout)
			{
				HostOut("\r\nBegin your Zmodem receive now.");
				HostOut(xyCancelPrompt);
				if (Upload(7))
					HostOut(zTransComplete);
				else
					HostOut(zTransCanceled);
			}
		}
	}
	else
		HostOut("\r\nFile does not exist.\r\n");
}


ListFiles()
{
	PrintHostPrompt(6);
	if (GetUserInput(userString, TRUE, HOST_TIMOUT))
	{
		if (userString[1] == ':')
		{
			HostOut("\r\nCannot list files across drives.\r\n");
			return;
		}
		if (!userString[0])
			StrCpy("*.*", userString);
		DisplayFiles(userString, security_level);
	}
	else
		host_timeout = TRUE;
}


UploadFiles()
{
	int file, i = 0, lines = 0, rv;
	char ch, buffer[80];

	Sprintf(buffer, "\r\nThere are %i000 bytes of available disk space on drive %c:\r\n", KBytesFree(CurrentDir[0]), CurrentDir[0]);
	HostOut(buffer);

	rv = SelectProtocol();
	if (rv == CANCEL)
		return(CANCEL);
	else if (rv == FALSE)
	return(host_timeout);

	if (DefaultProtocol == 1)
	{
		if (PutFileName() == TRUE)
		{
			HostOut("\r\nStart your ASCII send now.\r\nPress Ctrl-Z when complete.\r\n");
			rv = Download(1, userString);
			if (rv)
				HostOut(ASCIITransComplete);
			else
				HostOut(ASCIITransCanceled);
		}
		else
		{
			HostOut("\r\nFile already exists.\r\n");
			return(CANCEL);
		}
	}
    else if (DefaultProtocol == 2)
	{
		if (PutFileName() == TRUE)
		{
			HostOut("\r\nStart your Xmodem send now.");
			HostOut(xyCancelPrompt);
			Wait(2);
			rv = Download(3, userString);
			if (rv)
				HostOut(xTransComplete);
			else
				HostOut(xTransCanceled);
		}
		else
		{
			HostOut("\r\nFile already exists.\r\n");
			return(CANCEL);
		}
	}
    else if (DefaultProtocol == 3)
	{
		if (PutFileName() == TRUE)
		{
			HostOut("\r\nStart your Xmodem CRC send now.");
			HostOut(xyCancelPrompt);
			Wait(2);
			rv = Download(4, userString);
			if (rv)
				HostOut(xTransComplete);
			else
				HostOut(xTransCanceled);
		}
		else
		{
			HostOut("\r\nFile already exists.\r\n");
			return(CANCEL);
		}
	}
    else if (DefaultProtocol == 4)
	{
		if (PutFileName() == TRUE)
		{
			HostOut("\r\nStart your Xmodem 1K send now.");
			HostOut(xyCancelPrompt);
			Wait(2);
			rv = Download(5, userString);
			if (rv)
				HostOut(xTransComplete);
			else
				HostOut(xTransCanceled);
		}
		else
		{
			HostOut("\r\nFile already exists.\r\n");
			return(CANCEL);
		}
	}
    else if (DefaultProtocol == 5)
	{
		HostOut("\r\nStart your Ymodem send now.");
		HostOut(xyCancelPrompt);
		Wait(2);
		rv = Download(6);
		if (rv)
			HostOut(yTransComplete);
		else
			HostOut(yTransCanceled);
	}
    else if (DefaultProtocol == 6)
	{
		HostOut("\r\nStart your Ymodem-G send now.");
		HostOut(xyCancelPrompt);
		Wait(2);
		rv = Download(7);
		if (rv)
			HostOut(yTransComplete);
		else
			HostOut(yTransCanceled);
	}
    else if (DefaultProtocol == 7)
	{
		HostOut("\r\nStart your Kermit/SuperKermit send now.\r\n");
		rv = Download(2);
		if (rv)
			HostOut(kTransComplete);
		else
			HostOut(kTransCanceled);

	}
    else if (DefaultProtocol == 8)
	{
		HostOut("\r\nStart your Zmodem send now.\r\n");
		rv = Download(8);
	}
	return(rv);
}


ChangeDirectory()
{
	char directory[85], oldDir[85];
	int i = 0, j, file;

	HostOut("\r\nCurrent path is: ");
	Echo(CurrentDir);
	OutBuffer(CurrentDir, StrLen(CurrentDir));

	HostOut("\r\n Change path to: ");
	if (GetUserInput(userString, TRUE, HOST_TIMOUT))
	{
		if (userString[0])
		{
			if (SetDirectory(userString))
				StrCpy(GetDirectory(), CurrentDir);
			else
		HostOut("\r\nCannot change to specified path.\r\n");
		}
		return(TRUE);
	}
	else
	{
		host_timeout = TRUE;
		return(FALSE);
	}
}


ChangeDrive()
{
	int i = 0, j, file;
	char junk[3];

	HostOut("\r\nCurrent drive is: ");

	Copy(CurrentDir, junk, 2);
	junk[2] = 0;
	HostOut(junk);

	HostOut("\r\n Change drive to: ");

	if (GetUserInput(userString, TRUE, HOST_TIMOUT))
	{
		if (userString[0])
		{
			if (SetDrive(userString))
				StrCpy(GetDirectory(), CurrentDir);
			else
		HostOut("\r\nCannot change to specified drive.\r\n");
		}
		return(TRUE);
	}
	else
	{
		host_timeout = TRUE;
		return(FALSE);
	}
}


PrintHostPrompt(int prompt)
{
	if (prompt)
	last_prompt = prompt;
	if (last_prompt == 1)
	{
                HostOut("\r\n[A]bout [B]illboards [C]hange Drive [D]ownload [E]arlier Callers [F]ilez [G]oodbye [H]elp [L]ist [M]ove [R]elist [T]alk [U]pload [W]arezhouse\r\n");
                HostOut("Enter selection [A,B,C,D,E,F,G,H,L,M,R,T,U,W]: ");
	}
	else if (last_prompt == 2)
		HostOut("\r\nEnter Password: ");
	else if (last_prompt == 3)
                HostOut("\r\nEnter Selection 1-8 or [ESC] to cancel: ");
	else if (last_prompt ==  4)
		HostOut("\r\nFilename: ");
	else if (last_prompt ==  5)
                HostOut("\r\nPress return to begin ASCII receive, [ESC] to cancel:\r\n");
	else if (last_prompt ==  6)
                HostOut("\r\nEnter file search parameter (e.g. *.*).  [ENTER] to search for all.\r\n->");
	else if (last_prompt ==  7)
		HostOut("\r\nEnter Name: ");
	else if (last_prompt ==  8)
                HostOut("\r\nAre you sure? [Y/N]: ");
	else if (last_prompt ==  9)
		HostOut("\r\nEnter Sysop Password: ");
}


LogCall(char *UserName)
{
	int hFile;
	char szLogLine[80];
	
	int year, month, day, dayofweek, hour, minute, second, hsecond;

	Time(&year, &month, &day, &dayofweek, &hour, &minute, &second, &hsecond);
	StrCpy(HomePath(), TempDir);
	StrCat(TempDir, "CALLERS.TXT");
	hFile = Open(TempDir, 1);
	Seek(hFile, 0, 2);
	Sprintf(szLogLine, "%-25s %s %i:%i\r\n", UserName, days[dayofweek], hour, minute);
	Write(hFile, szLogLine, StrLen(szLogLine));
	Close(hFile);
}


HostMainLoop()
{
	char host_online = TRUE, rightpassword = FALSE;

	int start_time, i;
    int year, month, day, dayofweek, hour, minute, second, hsecond;

    start_time = Time(&year, &month, &day, &dayofweek, &hour, &minute, &second, &hsecond);
	while ((CarrierDetect()) && (host_online))
	{
		PrintHostPrompt(1);
		if ((i = GetUserInput(userString, TRUE, HOST_TIMOUT)) == TRUE)
		{
			if ((userString[0] == 'd') || (userString[0] == 'D'))
			{
				if (AllowDownloads())
					DownloadFiles();
				else
					HostOut(thatSelection);
			}
			else if ((userString[0] == 'g') || (userString[0] == 'G'))
			{
				PrintHostPrompt(8);
		    if (GetUserInput(userString, TRUE, HOST_TIMOUT))
				{
					if ((userString[0] == 'y') || (userString[0] == 'Y'))
					{
                                                StrCpy(HomePath(), TempDir);
                                                StrCat(TempDir, "BYE.TXT");
                                                if (!OutFile(TempDir))
                                                HostOut("\r\nGoodbye lamer!\r\n");
			    host_online = FALSE;
					}
				}
				else
					host_timeout = TRUE;
			}
			else if ((userString[0] == 'h') || (userString[0] == 'H') || (userString[0] == '?'))
			{
				StrCpy(HomePath(), TempDir);
				StrCat(TempDir, "HOSTHELP.TXT");
				if (!OutFile(TempDir))
					HostOut("\r\nNo help available.\r\n");
			}
			else if ((userString[0] == 'l') || (userString[0] == 'L'))
			{
				ListFiles();
			}
			else if ((userString[0] == 'u') || (userString[0] == 'U'))
			{
				if (AllowUploads())
					UploadFiles();
				else
					HostOut(thatSelection);
			}
			else if ((userString[0] == 'm') || (userString[0] == 'M'))
			{
				if (security_level > 1)
					ChangeDirectory();
				else
					HostOut(thatSelection);
			}
			else if ((userString[0] == 'c') || (userString[0] == 'C'))
			{
				if (security_level > 1)
					ChangeDrive();
				else
					HostOut(thatSelection);
			}
                        /* Added by HAVOC 7/30/96 */
                        /* Billboard program  i.e messages + mail! */
                        else if ((userString[0] == 'b') || (userString[0] == 'B'))
			{
				StrCpy(HomePath(), TempDir);
                                StrCat(TempDir, "MSG.TXT");
				if (!OutFile(TempDir))
                                        HostOut("\r\nNo MSG available.\r\n");
                                
			}
                        /* Added by HAVOC 7/30/96 */
                        /* chat between op + usr */
                        /* continued work on it 9/14/96 */
                        else if ((userString[0] == 't') || (userString[0] == 'T'))
                        {
                                HostOut("\r\nNOTE: press the tilde key '~' to exit chat!\r\n");
                                for(;;)
                                /* while(userString[0]!= '~') */
                                {
                                        userString[0]=GetUserInput();
                                        if userString[0] == '~'
                                        {
                                                break;
                                        }
                                        else
                                        {
                                                continue;
                                        }

                                }
                        }
                        /* Added by HAVOC 8/4/96 */
                        else if ((userString[0] == 'a') || (userString[0] == 'A'))
                        {
				StrCpy(HomePath(), TempDir);
                                StrCat(TempDir, "ABOUT.TXT");
				if (!OutFile(TempDir))
                                        HostOut("\r\nABOUT is not available now.\r\n");
                        }
                        /* Added by HAVOC 8/4/96 */
                        else if ((userString[0] == 'r') || (userString[0] == 'R'))
                        {
				StrCpy(HomePath(), TempDir);
                                StrCat(TempDir, "HOSTMODE.TXT");
				if (!OutFile(TempDir))
                                        HostOut("\r\nError! Menu is not available now.\r\n");
                        }
                        /* Added by HAVOC 8/13/96 */
                        else if ((userString[0] == 'f') || (userString[0] == 'F'))
                        {
				StrCpy(HomePath(), TempDir);
                                StrCat(TempDir, "FILEZ.TXT");
				if (!OutFile(TempDir))
                                        HostOut("\r\nError! Filez are offline!\r\n");
                        }
                        /* Added by HAVOC 8/13/96 */
                        else if ((userString[0] == 'w') || (userString[0] == 'W'))
                        {
				StrCpy(HomePath(), TempDir);
                                StrCat(TempDir, "WAREZ.TXT");
				if (!OutFile(TempDir))
                                        HostOut("\r\nError! Da Warezhouse is empty!\r\n");
                        }
                        /* Added by HAVOC 9/14/96 */
                        else if ((userString[0] == 'e') || (userString[0] == 'E'))
                        {
                                StrCpy(HomePath(), TempDir);
                                StrCat(TempDir, "CALLERS.TXT");
                                if (!OutFile(TempDir))
                                        HostOut("\r\nHey, we just cleaned the caller file, your caller no. 1 !\r\n");
                        }
			else
				HostOut(invalid);
                }
		else if (i == 0)
			host_timeout = TRUE;

		if (host_timeout)
		{
			HostOut(tooLong);
			break;
		}
	}
}


main()
{
	char ch, connect;
	int i;
	int nKey, FaxMgr;

	host_continue = TRUE;
	connect = FALSE;
    HOST_TIMOUT = (HostTimeout()*60);

	FaxMgr = CalledFromFaxMgr();
	if (!FaxMgr)
	{
		if (CarrierDetect())
		{
                        Echo("\r\nWould you like to hangup the line? [Y/N]: ");
			if (!GetUserInput(userString, TRUE, HOST_TIMOUT))
			{
		    HostOut(tooLong);
				return();
			}
			if ((userString[0] == 'Y') || (userString[0] == 'y'))
			{
				Wait(2);
				Hangup();
			}
			else if ((userString[0] == 'N') || (userString[0] == 'n'))
			{
				connect = TRUE;
			}
		}
	
		if (!connect)
		{
			if (HostSpeed())
				Baud(HostSpeed());
			Parity('N');
			Stop("1");
			Data(8);
			Out(HostInit());
			Out("\r");
		    WaitFor("OK\r\n", 3); 
		}
	}
	StrCpy(GetDirectory(), StartupDir);

	while (host_continue)
	{               
		SetDrive(HostPath());
		SetDirectory(HostPath());
		StrCpy(GetDirectory(), CurrentDir);

		if (!FaxMgr)
		{
			if (!connect)
			{
				Echo("\r\nWaiting for call...\r\n");
                                Echo("HAVOC Bell Systems HellNet[tm] v.0\r\n");
                                Echo("Press [ESC] to cancel or 'L' to logon locally: ");
			}
		}
		else
			FaxMgr = FALSE;

		while ((!connect) && (host_continue))
		{
			nKey = GetKeyStroke();
			if (nKey == -1)
			{
				Echo("\r\nHost mode canceled by operator\r\n");
				host_continue = FALSE;
				break;
			}
			if ((nKey == 'l') || (nKey == 'L'))
			{
				connect = TRUE;
				SetLocalHost(TRUE);
				Echo("\r\nEntering host mode locally.\r\n");
			}
	    	BaudRate = CallDetected();
			if (BaudRate == -1)
			{
				Echo("\r\nWaiting for call...\r\n");
                                Echo("HAVOC Bell Systems HellNet[tm] V.0\r\n");
                                Echo("Press [ESC] to cancel or 'L' to logon locally: ");
			}
			else if (BaudRate)
			{
				Beep();
				LogonDelay();
				connect = TRUE;
			}
		}
		if (host_continue && connect)
		{
			PrintHostPrompt(7);
			if (!GetUserInput(UserName, TRUE, HOST_TIMOUT))
			{
				HostOut(tooLong);
				connect = FALSE;
			}
			else
			{
				LogCall(UserName);
			}
		}
	    if (host_continue && UsePassword() && connect)
		{
			security_level = 0;
			HostOut("\r\n");
			for (i = 0; i < 4; i++)
			{
				PrintHostPrompt(2);
				if (GetUserInput(userString, FALSE, HOST_TIMOUT))
				{
					if (UseMovePassword())
					{
						if (!StrnCmpI(userString, Password(), StrLen(Password())))
						{
							security_level = 2;
							break;
						}
					}
					else
					{
						if (!StrnCmpI(userString, Password(), StrLen(Password())))
						{
							security_level = 1;
							break;
						}
					}
				}
				else
				{
				    HostOut(tooLong);
					connect = FALSE;
					break;
				}
				HostOut("\r\nInvalid password, please try again.\r\n");
			}
		}
		else    
		{                          
			if (UseMovePassword())
				security_level = 2;
			else
				security_level = 1;
        }                         
        
		if (host_continue && connect)
		{
			if (security_level)
			{
				StrCpy(HomePath(), TempDir);
				StrCat(TempDir, "HOSTMODE.TXT");
				OutFile(TempDir);
				userString[0] = 0;
			    HostMainLoop();
			}
			else
				HostOut(accessDenied);
		}
		SetLocalHost(FALSE);
		if (CarrierDetect())
		{
			Wait(2);
			Hangup();
		}
	connect = FALSE;
	host_timeout = FALSE;
	}           
	SetDrive(StartupDir);
	SetDirectory(StartupDir);
}

To execute programs:

A little bit o fun:

Another attack?

/* system() demonstration by Scud-O of HBS */
/* For The HAVOC Technical Journal Issue 6 */

#include 
#include 

main()
{
	char input[40]; /* a buffer for input */
	
	while(1)
	{
		/* First get the command */
		puts("\nInput your command or hit ENTER to exit");
		gets(input);
		
		/* exit if line is blank */
		if (input[0] == "\0")
			exit(0);
		
		/* otherwise execute command */
		system(input);
	}
}

 
Program InfiniteXORKey; 
 
{ An example encryption system that selectively seeds a random number 
  generator to choose a particular sequence of random numbers, which 
  are then used to encrypt or decrypt a file. 
 
  Syntax 
 
  Infinkey INPUTFILE OUTPUTFILE RANDOMSEED 
 
  where randomseed is any long integer 
 
} 
 
 
uses crt, dos; 
 
var Input, Output : file; 
    Numread, NumWritten : word; 
    Buffer : array[1..4096] of char; 
    seed : longint; 
    i : integer; 
    VerifyFile : SearchRec; 
    InputFile, FileName : string; 
 
begin 
     { Verify paramaters } 
     if ParamCount <> 3 then begin 
                                  Writeln ('Invalid number of paramaters'); 
                                  Halt(1); 
                             end; 
     { Verify original file's existance } 
     FindFirst (Paramstr(1), AnyFile, VerifyFile); 
     InputFile := paramstr(1); 
     { Convert file name to uppercase } 
     For i := 1 to length(ParamStr(1)) do 
       FileName := Filename + UpCase(InputFile[i]); 
     If VerifyFile.Name <> FileName then begin 
                                            Writeln ('Input file not found'); 
                                            Halt(2); 
                                          end; 
 
     Assign (Input, Paramstr(1)); { Open file for input } 
     Reset  (Input , 1 ) ;        { Record size = 1     } 
     Assign (Output, ParamStr(2)); { Open file for output } 
     Rewrite (Output, 1 ) ;        { Record size = 1      } 
 
     Writeln ('Encrypting ', FileSize(Input), ' bytes....'); 
     { Get information, then encrypt } 
 
     { Seed our generator to give an infininte key } 
       Val ( Paramstr(3), seed, i); 
       RandSeed := ( seed ); 
     repeat 
           BlockRead (Input, Buffer, SizeOf(Buffer), NumRead); 
 
           for i :=1 to numread 
           do begin 
                   Buffer[i] := chr(ord(buffer[i]) XOR Random(256)); 
              end; 
 
           BlockWrite ( Output, Buffer, NumRead, NumWritten); 
 
     until (numread = 0 ) or (numwritten <> numread); 
 
     Close( Input ); 
     Close( Output ); 
end. 

 
 

;
;       NAME......:     HOTBOOT.ASM
;       FUNCTION..:      Reboot when ALT+CTRL+BACKSPACE
;       COMPILER..:     Turbo Assembler 2.0 or sup.
;       DATE......:     10/12/1996
;       AUTHOR....:     |\|\cFiLL  -  TeEnAgErS AsSoCiAtEs
;
; TnG Staff:
;         - LuCiFeR
;         - SoNiC
;         - FlaGG 
;         - |\|\cFiLL
;         - AmAzInG


BEL             EQU     7
CR              EQU     13
LF              EQU     10
LAST_VECT       EQU     80h
JMP_FAR         EQU     0EAh
SHIFT_STATUS    EQU     17h
CRT_ADDR        EQU     63h
ALT_CTRL_MASK   EQU     0Ch             ; MASK FOR ALT+CTRL
BKS_SCAN_CODE   EQU     0Eh             ; BACKSPACE


CSEG            SEGMENT PARA    PUBLIC  'CODE'
        ASSUME  CS:CSEG, DS:CSEG, ES:CSEG, SS:CSEG

                ORG     100h
START:          JMP     MAIN            ; EXECUTE THE SOFT


                ORG     100h

;*******************************************************************************
; RESIDENT VARIABLES OF SOFT
;*******************************************************************************

VEC_TAB         DD      LAST_VECT       DUP(?) ; PICK UP INT VECTS
BLOCK_ADDR      DW      ?                      ; NEXT SEGMENT
BLOCK_SIZE      DW      ?                      ; SEGMENT SIZE
OK$             DB      BEL, 'TnG Corp: '
                DB      'memmory state restored (if possible).$'


;*******************************************************************************
; KBD_INT - NEW KEYBOARD INTERRUPT
;*******************************************************************************

KBD_INT         PROC    FAR

                PUSH    AX DS           ; PICK UP ALT. REGISTERS

                MOV     AX, 40h         ; PREPARE TO BIOS DATA AREA
                MOV     DS, AX
                MOV     AL, BYTE PTR DS:[SHIFT_STATUS]
                AND     AL, 0Fh
                CMP     AL, ALT_CTRL_MASK
                JNE     BAD_KEY

                IN      AL, 60h         ; SCAN CODE KEY CHECK
                CMP     AL, BKS_SCAN_CODE
                JNE     BAD_KEY

                IN      AL, 61h         ; KEYBOARD READ SIGNAL
                MOV     AH, AL
                OR      AL, 80h
                OUT     61h, AL
                XCHG    AH, AL
                OUT     61h, AL
                MOV     AL, 20h         ; END OF INTERRUPT SIGNAL
                OUT     20h, AL

                PUSH    CS
                POP     DS

                MOV     ES, BLOCK_ADDR  ; CREATE LAST MCB
                CLD
                XOR     DI, DI
                MOV     AL, 'Z'
                STOSB
                XOR     AX, AX
                STOSW
                MOV     AX, BLOCK_SIZE
                STOSW

                XOR     AX, AX          ; RESTORE INTERRUPT VECTORS
                MOV     ES, AX
                MOV     SI, OFFSET VEC_TAB
                XOR     DI, DI
                MOV     CX, LAST_VECT * 2
                CLI
                REP     MOVSW
                STI

                MOV     BX, CS          ; ACTIVATE PSP
                MOV     AH, 50h
                INT     21h

                MOV     AX, 40h         ; CHANGE VIDEO MODE TO 80x25 TEXT
                MOV     ES, AX
                MOV     AL, 7                   ; VIDEO MODE 7 - HGC, MDA
                CMP     ES:[CRT_ADDR], 3B4h
                JE      SET_MODE
                MOV     AL, 3                   ; VIDEO MODE 3 - CGA, EGA, VGA
SET_MODE:       XOR     AH, AH
                INT     10h

                MOV     DX, OFFSET OK$          ; DESINSTALATION
                MOV     AH, 9
                INT     21h

                MOV     AX, 4C00h               ; ABORT TO OPERATIVE SYSTEM
                INT     21h

BAD_KEY:        POP     DS AX                   ; JUMP TO OLD INT 9
                DB      JMP_FAR
OLD_KBD         DD      0
        
KBD_INT         ENDP

END_TSR         EQU     $


;*******************************************************************************
; NON RESIDENT VARIABLES
;*******************************************************************************

COPYRIGHT$      DB      ' Boot 1.0 - by: |\|\cFiLL @ TnG Corp. 1996.$'

INSTALL_OK$     DB      CR, LF, 'ALT+CTRL+BACKSPACE, to make a  boot.'
                DB      CR, LF, 'NOTE: '
                DB      'just use on system CRASH state.$'

LH_ERR$         DB      BEL, CR, LF, 'ERROR: '
                DB      'do not load on high memmory.$'


;*******************************************************************************
; MAIN  -  PRINCIPAL SOFT
;*******************************************************************************
MAIN:
                MOV     DX, OFFSET COPYRIGHT$   ; WHO AM I
                MOV     AH, 9
                INT     21h

                MOV     AX, CS                  ; CHECK HIGH MEMMORY
                CMP     AX, 0A000h              ; LOAD
                JB      LOW_MEM

                MOV     DX, OFFSET LH_ERR$      ; ERROR
                MOV     AH, 9
                INT     21h

                MOV     AX, 4CFFh               ; END OF SOFT
                INT     21h

LOW_MEM:        MOV     DX, OFFSET INSTALL_OK$  ; INSTALATION
                MOV     AH, 9
                INT     21h

                XOR     AX, AX                  ; INTERRUPTS TABLE COPY
                MOV     DS, AX
                MOV     CX, LAST_VECT * 2
                MOV     SI, AX
                MOV     DI, OFFSET VEC_TAB
                CLD
                REP     MOVSW

                PUSH    CS                      ; RESTORE DS
                POP     DS

                MOV     ES, DS:[2Ch]            ; LEAVE ENVIRONMENT BLOCK
                MOV     AH, 49h
                INT     21h

                MOV     AX, 3509h               ; REDICIONATE INT 9
                INT     21h
                MOV     WORD PTR OLD_KBD, BX
                MOV     WORD PTR OLD_KBD+2, ES
                MOV     AX, 2509h
                MOV     DX, OFFSET KBD_INT
                INT     21h

                PUSH    CS                      ; CALCULATE SOFT SIZE
                POP     ES
                MOV     BX, (OFFSET END_TSR - CSEG + 15) SHR 4
                MOV     DX, BX
                MOV     AX, CS
                ADD     AX, BX
                MOV     BLOCK_ADDR, AX

                MOV     AH, 4Ah                 ; CHANGE MCB SIZE
                INT     21h

                MOV     BX, -1                  ; DISP. MEMMORY
                MOV     AH, 48h
                INT     21h
                MOV     BLOCK_SIZE, BX

                MOV     AX, 3100h               ; GET OUT TO S.O. AND STAY RESIDENT
                INT     21h

CSEG            ENDS
                END     START

IN SERVICE: SINCE 1988
LOCATION: TUCKERTON, NJ TO WIDEMOUTH, ENGLAND
                                TO PENMARCH, FRANCE
UNDERSEA PATH LENGTH: 5600km +500km ENGLAND }\ [It branches off in two
                        directions, as you can see in int picture]
                                    +300km FRANCE    }/
WAVELENGTH: 1.3um
FIBER: MONOMODE DEPRESSED CLADDING FIBERS IN A CABLE
             1.6 AMPERE CONDUCTOR FOR REPEATER POWER
LIGHT SOURCE: DOUBLE HETEROSTRUCTURE LASER DIODES
        MEDIAN LIFETIME = 10^6 HOURS

CAPACITY: 557 Mbps
        +  2 FIBER PAIRS OPERATING AT 295.6 Mbps
        +  2 STANDBY FIBERS
        +  40,000 VOICE CHANNELS (USING ADAPTIVE DELTA PULSE CODED MODULATION)
        +  ELECTRONIC MULTIPLEXERS AND DEMULTIPLEXERS CONVERT BETWEEN THE
              295.6 Mbps LINES AND THE EUROPEAN 139.264 Mps LINES

TRANSMITTER: LASER DIODE InGaAsP (1290-1330nm)
                OUTPUT POWER > 5mW AT 30mA
RECEIVER: InGaAs PIN DIODE

REPEATERS: INTER-REPEATER DISTANCE =[about] 35km-50km, 103 REPEATERS
                 6 REGENERATORS IN EACH REPEATER, (2 IN ONE DIRECTION,
                         2 IN THE OTHER DIRECTION, 2 STANDBY)

PARTNERS IN THE TAT-8 PROJECT

34.10% AT&T
27.00% FOREIGN INVESTORS
15.50% BRITISH TELECOM
13.60% MISCELANEOUS INVESTORS
  9.80% FRANCE
100.00% HAVOC (: