home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / zines / phrack1 / phrack9.007 < prev    next >
Encoding:
Text File  |  2003-06-11  |  6.4 KB  |  194 lines
  1.                                ==Phrack Inc.==
  2.  
  3.                     Volume One, Issue Nine, Phile #7 of 10
  4.  
  5. ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  6.                                 (512)-396-1120
  7.                             The Shack // presents
  8.                     A Multi-User Chat Program for DEC-10s
  9.                              Original Program by
  10.                                    TTY-Man
  11.                           Modified and Clarified by
  12.                                +++The Mentor+++
  13.                               October 6th, 1986
  14.  
  15. Intro:  Unlike its more sophisticated older brother, the VAX, the DEC has no
  16. easy-to-use communication system like the VMS PHONE utility.  The following
  17. program makes use of the MIC file type available on most DECs.  Each user that
  18. wishes to be involved in the conference needs to run the program from his area
  19. using the .DO COM command.  The program can be entered with any editor (I
  20. recommend SED if you have VT52 emulation), and should be saved as COM.MIC. The
  21. program does not assume any specific terminal type or emulation.  You will
  22. have to know the TTY number of any person you wish to add to the conference,
  23. but this is available through a .SYSTAT command or .R WHO (see below.)
  24. SYSTAT
  25. This is an example of a SYSTAT to used to determine TTY#...
  26. Status of Saturn 7.03.2 at  7:27:51 on 03-Oct-86
  27. Uptime 40:41:14, 77% Null time = 77% Idle + 0% Lost, 9% Overhead
  28. 27 Jobs in use out of 128.  27 logged in (LOGMAX of 127), 16 detached.
  29.        PPN#    TTY#      CURR     SIZE
  30. 19    [OPR]       6      OPR      56+39     HB              18
  31. 20     7,20       5      OPR      23+39     HB              24 $
  32. 21  2501,1007    56      COMPIL   8+8       ^C            1:34 $
  33. 22    66,1012    57      TECO     10+12     TI              39
  34. 23    66,1011    62      1022     16+55     TI              36 $
  35. 24    [SELF]     64      SYSTAT   23+SPY    RN               0 $
  36. 26    [OPR]      DET     STOMPR   10+9      SL               2
  37. 27 16011,1003    DET     DIRECT   17+32     ^C              30 $
  38. 36    [OPR]      DET     FILDAE   17        HB            1:57
  39.  
  40.         The TTY# is available in the TTY column... DET means that the user is
  41. detached and is unavailable for chatting...
  42.         Below is an example of .R WHO to obtain the same information...
  43.  
  44. /- jobs in use out of 127.
  45. Job   Who        Line      PPN
  46. 20  OPERATOR 20     5      7,20
  47. 21  DISPONDENT     56   2501,1007
  48. 22  ADP-TBO        57     66,1012
  49. 23  ADP-MDL        62     66,1011
  50. 24  THE MENTOR     64   XXXX,XXX
  51. 27  GEO4440103    Det  16011,1003
  52.  
  53.  
  54.         In each case, I am on TTY# 64...
  55.  
  56.         Anyway, use the following program, it's more convenient that doing a
  57. .SEN <tty> every time you want to send a message.   Also, to shut out an
  58. annoying sender, use .SET TTY GAG.  To remove, .SET TTY NO GAG... pretty
  59. simple, huh?
  60.  
  61.  
  62. start::
  63. !
  64. !Now in loop: 'a 'b 'c 'd 'e 'f
  65. !
  66. .mic input A,"Destination Terminal 1:"
  67. .if ($a="") .goto welcome
  68. .mic input B,"Destination Terminal 2:"
  69. .if ($b="") .goto welcome
  70. .mic input C,"Destination Terminal 3:"
  71. .if ($c="") .goto welcome
  72. .mic input D,"Destination Terminal 4:"
  73. .if ($d="") .goto welcome
  74. .mic input E,"Destination Terminal 5:"
  75. .if ($e="") .goto welcome
  76. .mic input F,"Destination Terminal 6:"
  77. .if ($f="") .goto welcome
  78. welcome::
  79. !Sending Hello Message...
  80. sen 'a Conference Forming on TTYs 'b 'c 'd 'e 'f ... DO COM to these to join'
  81. sen 'b Conference Forming on TTYs 'a 'c 'd 'e 'f ... DO COM to these to join'
  82. sen 'c Conference Forming on TTYs 'a 'b 'd 'e 'f ... DO COM to these to join'
  83. sen 'd Conference Forming on TTYs 'a 'b 'c 'e 'f ... DO COM to these to join'
  84. sen 'e Conference Forming on TTYs 'a 'b 'c 'd 'f ... DO COM to these to join'
  85. sen 'f Conference Forming on TTYs 'a 'b 'c 'd 'e ... DO COM to these to join'
  86. !
  87. !Type /h for help
  88. com::
  89. .mic input G,"T>"
  90. !Checking Commands.. Wait..
  91. .if ($g="/h") .goto help
  92. .if ($g="/k") .goto kill
  93. .if ($g="/l") .goto list
  94. .if ($g="/d") .goto drop
  95. .if ($g="/t") .goto time
  96. .if ($g="/w") .goto who
  97. .if ($g="/u") .goto users
  98. .if ($g="/q") .goto quit
  99. .if ($g="/r") .backto start
  100. .if ($g="/ac") .goto ack
  101. !Transmitting..  Wait..
  102. sen 'a 'g
  103. sen 'b 'g
  104. sen 'c 'g
  105. sen 'd 'g
  106. sen 'e 'g
  107. sen 'f 'g
  108. .backto com
  109. help::
  110. !
  111. !        Internal Commands
  112. !
  113. ! /H  -> This Menu       /K -> Kill
  114. ! /L  -> List Terminals  /U -> Users
  115. ! /W  -> R who           /AC-> Alert Caller
  116. ! /Q  -> Quit
  117. ! /R  -> Restart/Add
  118. ! /T  -> Show Date/Time
  119. ! /D  -> Drop Caller
  120. !
  121. ! All Commands must be in lower case.
  122. !
  123. .backto com
  124. list::
  125. !
  126. !Currently Connected To Terminals: 'a 'b 'c 'd 'e 'f
  127. !
  128. .backto com
  129. who::
  130. .revive
  131. .r who
  132. '<silence>
  133. .backto com
  134. users::
  135. .revive
  136. .r users
  137. '<silence>
  138. .BACKTO COM
  139. QUIT::
  140. !
  141. !Call The Shack... 512-396-1120 300/1200 24 hours
  142. !
  143. .mic cancel
  144. drop::
  145. !
  146. !Send Hangup Message:: Enter Terminal Number To Be Disconnected.
  147. !
  148. .mic input h,"Destination Terminal Number:"
  149. .sen 'h  <=- Communication Terminated at '<time> -=>
  150. .backto start
  151. ack::
  152. .mic input h,"Destination Terminal Number:"
  153. .sen 'h %TMRR -  Timeout Error, Response Required, Please ACKNOWLEDGE!
  154. .backto com
  155. kill::
  156. !
  157. !Send Message To Specific Terminal In A Loop
  158. .mic input n,"Are You Sure (Y/N)?"
  159. .if ($n="y") then .goto k1
  160. !%Function Aborted - Returning To Communication Mode.
  161. .backto com
  162. k1::
  163. .mic input h,"Destination Terminal Number:"
  164. .mic input n,"K>"
  165. dog::
  166. !Transmitting...CTRL-C Aborts!
  167. .sen 'h'n
  168. .backto dog
  169. time::
  170. !
  171. !Current Date : '<date>
  172. !Current Time : '<time>
  173. !
  174. .backto com
  175.  
  176.  
  177.         Wasn't that neat?  A feature that you can implement separately to be a
  178. pain in the ass is the recursive MIC that sends an annoying message to a
  179. specified terminal.  It is almost impossible for them to shut you out without
  180. logging out unless they are already gagged.
  181.         Just create a small MIC file called BUG.MIC... to do it in two lines,
  182. simply type...
  183.  .SEN <tty # goes here> Eat hot photons, Vogon slime!
  184.  .DO BUG
  185.  
  186.         That's it!  I hope this comes in useful to someone out there!  Give us
  187. a call at The Shack... 512-396-1120  300/1200 baud, 24 hours a day... And a
  188. special welcome to all the feds who will doubtlessly be calling since the
  189. number appears in here... we have nothing to hide!
  190.                                         +++The Mentor+++
  191.  
  192.  
  193. ==============================================================================
  194.