home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 1 / HACKER1.ISO / miscpub2 / uxu_070.txt < prev    next >
Text File  |  1992-09-26  |  5KB  |  140 lines
  1.  
  2.                                 ###     ###
  3.                                  ###   ###
  4.                       ###   ####  ### ###  ###   ####
  5.                       ###    ###   #####   ###    ###
  6.                       ###    ###    ###    ###    ###
  7.                       ###    ###   #####   ###    ###
  8.                       ##########  ### ###  ##########
  9.                                  ###   ###
  10.                                 ###     ###
  11.  
  12.                          Underground eXperts United
  13.  
  14.                                  Presents...
  15.  
  16.          ####### ## ##      #######     # #    ####### ####### #######
  17.          ##      ## ##      ##         #####   ##   ##      ## ##   ##
  18.          ####    ## ##      ####        # #    ##   ##     ##  ##   ##
  19.          ##      ## ##      ##         #####   ##   ##    ##   ##   ##
  20.          ##      ## ####### #######     # #    #######   ##    #######
  21.  
  22.          [  A Joke for VMS-Users  ]           [   By Ralph 124C41+   ]
  23.  
  24.  
  25.     ____________________________________________________________________
  26.     ____________________________________________________________________
  27.  
  28.  
  29.                               A joke for VMS-users
  30.                               --------------------
  31.                          by Ralph 124C41+ of PowerDrive
  32.  
  33.  
  34.  This is a little practical joke we have used a few times at my school when
  35. somebody forgot to log out (a quite common thing among pupils who aren't
  36. too experienced with computers). I think it could be quite fun for you to
  37. try it out if you have the possiblity to do so.
  38.  
  39.  What it does is in short, is that it redefines almost every command to run
  40. a COM-file. What you put in that file is up to you. In this example we simply
  41. write the message "I'm sorry Dave, I'm afraid I can't do that", but you can
  42. change it as much as your imagination allow. A good idea is to have
  43.  
  44. $ WRITE SYS$OUTPUT F$MESS(%X <number>)
  45.  
  46. where <number> is a number. This writes a system error message, this is good
  47. fun and can keep an inexperienced user in confusion for a very long time. Even
  48. teachers have been fooled by this. Some good numbers to try is 360, 350, 290,
  49. 230 and 120. A nasty one is 0, which means that the program exited without an
  50. error. That's *very* confusing! He he he...
  51.  
  52.  Anyway, here come the files, just cut where marked and there shouldn't be a
  53. problem. The first file is to replace LOGIN.COM and the you should name the
  54. second LOG1.COM. If you want to be more advanced, you can have several files to
  55. produce different messages. The LOGIN.COM redefines the most common commands on
  56. our system, yours will probably be different but it's a good start.
  57.  
  58.  
  59. ---------------------------------< CUT HERE >-----------------------------------
  60. $! LOGIN.COM for VMS joke.
  61. $
  62. !
  63. $ edt           :==     @log1
  64. $ cop*y     :==        @log1
  65. $ am*is        :==    @log1
  66. $ hel*p        :==    @log1
  67. $ dir*ectory     :==    @log1
  68. $ set        :==    @log1
  69. $ sh*ow        :==    @log1
  70. $ def*ine        :==    @log1
  71. $ cre*ate         :==    @log1
  72. $ typ*e        :==    @log1
  73. $ ed*it     :==    @log1
  74. $ mai*l        :==    @log1
  75. $ pho*ne    :==    @log1
  76. $ ass*ign     :==    @log1
  77. $ conn*ect        :==    @log1
  78. $ cont*inue     :==    @log1
  79. $ del*ete      :==    @log1
  80. $ rena*me       :==    @log1
  81. $ pu*rge     :==    @log1
  82. $ li*nk      :==    @log1
  83. $ bas*ic      :==    @log1
  84. $ pas*cal    :==    @log1
  85. $ for*tran    :==    @log1
  86. $ req*uest     :==    @log1
  87. $ pr*int      :==    @log1
  88. $ ru*n        :==    @log1
  89. $ mes*sage    :==    @log1
  90. $ mer*ge      :==    @log1
  91. $ inq*uire      :==    @log1
  92. $ ini*tialize    :==    @log1
  93. $ mon*itor      :==    @log1
  94. $ exit
  95. ---------------------------------< CUT HERE >-----------------------------------
  96.  
  97.  Here follows the file that is the actual joke. If you don't like this you can
  98. change it to do whatever you like but I think this is good fun, at least if you
  99. have seen 2001...
  100.  
  101. ---------------------------------< CUT HERE >-----------------------------------
  102. $! LOG1.COM
  103. $
  104. $ WRITE SYS$OUTPUT ""
  105. $ WRITE SYS$OUTPUT "        I'm sorry Dave, I'm afraid I can't do that."
  106. $ WRITE SYS$OUTPUT ""
  107. $ EXIT
  108. ---------------------------------< CUT HERE >-----------------------------------
  109.  
  110.  One problem is how you are going to copy the files from your account to the
  111. one you are about to joke with. One idea would be to
  112.  
  113. $SET PROT=(W:RWED) <user>.DIR 
  114.  
  115. or perhaps use the ACL and then copy the files over. But this is not a very
  116. good idea, it can be traced and that's not what we want! It's much better to
  117. mail it, like this (from your account)
  118.  
  119. $MAIL LOG.COM <user>
  120. $MAIL LOG1.COM <user>
  121.  
  122. Then the files will be mailed to the user so you just can enter mail, read the
  123. message and
  124.  
  125. Mail>EXTRACT LOGIN.COM
  126. Mail>DELETE
  127.  
  128. It's important to delete the message because otherwise it's quite obvious who
  129. pulled the joke. Then you just edit the files to remove the header, remember to
  130. PURGE and everything is set.
  131.  
  132.  And that's about it. Have a fun life and remember: keep cool, if you can't be
  133. cool, be cold.
  134.  
  135.  
  136.     ______________________________________________________________________
  137.     ______________________________________________________________________
  138.  
  139. Downloaded From P-80 International Information Systems 304-744-2253 12yrs+
  140.