home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUMLOCK.ZIP / LOCKOUT.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-03-19  |  2KB  |  166 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Date     DATE001
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     Integer  INTEGER003
  26.     Integer  INTEGER004
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.  
  38. ;------------------------------------------------------------------------------
  39.  
  40.     GetUser
  41.     STRING004 = Date()
  42.     STRING006 = "@X0C¡¡@X0FYoMaMa@X0C!!"
  43.     STRING007 = "@X0FLocked out user attempt"
  44.     DATE001 = Date() + 7
  45.     BOOLEAN001 = 0
  46.     BOOLEAN002 = 0
  47.     STRING009 = PPEPath() + PPEName() + ".MSG"
  48.     STRING002 = Chr(27)
  49.     STRING003 = U_Name()
  50.     Log STRING002 + "[1;37mLocked out user attempt: " + U_Name() + STRING002 + "[0m", 0
  51.     Gosub LABEL001
  52.     If (BOOLEAN003 == 1) Then
  53.         Gosub LABEL002
  54.         Gosub LABEL003
  55.         Gosub LABEL004
  56.     Endif
  57.     Gosub LABEL005
  58.     End
  59.     :LABEL001
  60.     FOpen 1, PPEPath() + "LOCKOUT.CFG", 0, 0
  61.     FGet 1, INTEGER002
  62.     FGet 1, INTEGER003
  63.     FGet 1, STRING010
  64.     If (Upper(STRING010) == "N") Then
  65.         BOOLEAN003 = 0
  66.     Else
  67.         BOOLEAN003 = 1
  68.     Endif
  69.     FGet 1, STRING005
  70.     FGet 1, INTEGER004
  71.     If (INTEGER004 < 0) Then
  72.         INTEGER004 = CurConf()
  73.     Endif
  74.     FGet 1, STRING008
  75.     FClose 1
  76.     Return
  77.     :LABEL002
  78.     FCreate 1, PPEPath() + PPEName() + ".MSG", 1, 3
  79.     FPutLn 1, "Whatsup Sysop,"
  80.     FPutLn 1, " "
  81.     FPutLn 1, "Just thought you would want to know,"
  82.     FPutLn 1, "  "
  83.     FPutLn 1, "@X0F" + STRING003 + " @X07 attempted to logon..."
  84.     FPutLn 1, "Date: " + STRING004
  85.     FPutLn 1, " "
  86.     FPutLn 1, "@X07@X09!@X0F!@X07Y@X09o@X0FMa@X09M@X07a@X0F!@X09! @X0FPPE's"
  87.     FPutLn 1, " "
  88.     FClose 1
  89.     Return
  90.     :LABEL003
  91.     Message INTEGER004, STRING005, STRING006, STRING007, STRING008, DATE001, BOOLEAN001, BOOLEAN002, STRING009
  92.     Return
  93.     :LABEL004
  94.     Delete PPEPath() + PPEName() + ".MSG"
  95.     Return
  96.     :LABEL005
  97.     INTEGER001 = Random(Time()) % INTEGER002 + 1
  98.     STRING001 = PPEPath() + PPEName() + "." + I2S(INTEGER001, 10)
  99.     StartDisp 1
  100.     DispStr "%" + STRING001
  101.     Delay INTEGER003 * 18.2
  102.     StartDisp 2
  103.     Return
  104.  
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Usage report (before postprocessing)
  108. ;
  109. ; ■ Statements used :
  110. ;
  111. ;    1       End
  112. ;    4       Goto 
  113. ;    14      Let 
  114. ;    3       If 
  115. ;    1       FCreate 
  116. ;    1       FOpen 
  117. ;    2       FClose 
  118. ;    6       FGet 
  119. ;    9       FPutLn 
  120. ;    2       StartDisp 
  121. ;    1       GetUser
  122. ;    1       Delete 
  123. ;    1       Log 
  124. ;    5       Gosub 
  125. ;    5       Return
  126. ;    1       Delay 
  127. ;    1       DispStr 
  128. ;    1       Message 
  129. ;
  130. ;
  131. ; ■ Functions used :
  132. ;
  133. ;    1       *
  134. ;    1       %
  135. ;    20      +
  136. ;    2       ==
  137. ;    1       <
  138. ;    3       !
  139. ;    1       Upper()
  140. ;    1       Chr()
  141. ;    1       Random()
  142. ;    2       Date()
  143. ;    1       Time()
  144. ;    2       U_Name()
  145. ;    1       CurConf()
  146. ;    5       PPEPath()
  147. ;    1       I2S()
  148. ;    4       PPEName()
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;
  152. ; Analysis flags : No flag
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Postprocessing report
  157. ;
  158. ;    0       For/Next
  159. ;    0       While/EndWhile
  160. ;    3       If/Then or If/Then/Else
  161. ;    0       Select Case
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;                 AEGiS Corp - Break the routines, code against the machines!
  165. ;------------------------------------------------------------------------------
  166.