home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
SCUMLOCK.ZIP
/
LOCKOUT.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1994-03-19
|
2KB
|
166 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Date DATE001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
;------------------------------------------------------------------------------
GetUser
STRING004 = Date()
STRING006 = "@X0C¡¡@X0FYoMaMa@X0C!!"
STRING007 = "@X0FLocked out user attempt"
DATE001 = Date() + 7
BOOLEAN001 = 0
BOOLEAN002 = 0
STRING009 = PPEPath() + PPEName() + ".MSG"
STRING002 = Chr(27)
STRING003 = U_Name()
Log STRING002 + "[1;37mLocked out user attempt: " + U_Name() + STRING002 + "[0m", 0
Gosub LABEL001
If (BOOLEAN003 == 1) Then
Gosub LABEL002
Gosub LABEL003
Gosub LABEL004
Endif
Gosub LABEL005
End
:LABEL001
FOpen 1, PPEPath() + "LOCKOUT.CFG", 0, 0
FGet 1, INTEGER002
FGet 1, INTEGER003
FGet 1, STRING010
If (Upper(STRING010) == "N") Then
BOOLEAN003 = 0
Else
BOOLEAN003 = 1
Endif
FGet 1, STRING005
FGet 1, INTEGER004
If (INTEGER004 < 0) Then
INTEGER004 = CurConf()
Endif
FGet 1, STRING008
FClose 1
Return
:LABEL002
FCreate 1, PPEPath() + PPEName() + ".MSG", 1, 3
FPutLn 1, "Whatsup Sysop,"
FPutLn 1, " "
FPutLn 1, "Just thought you would want to know,"
FPutLn 1, " "
FPutLn 1, "@X0F" + STRING003 + " @X07 attempted to logon..."
FPutLn 1, "Date: " + STRING004
FPutLn 1, " "
FPutLn 1, "@X07@X09!@X0F!@X07Y@X09o@X0FMa@X09M@X07a@X0F!@X09! @X0FPPE's"
FPutLn 1, " "
FClose 1
Return
:LABEL003
Message INTEGER004, STRING005, STRING006, STRING007, STRING008, DATE001, BOOLEAN001, BOOLEAN002, STRING009
Return
:LABEL004
Delete PPEPath() + PPEName() + ".MSG"
Return
:LABEL005
INTEGER001 = Random(Time()) % INTEGER002 + 1
STRING001 = PPEPath() + PPEName() + "." + I2S(INTEGER001, 10)
StartDisp 1
DispStr "%" + STRING001
Delay INTEGER003 * 18.2
StartDisp 2
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 4 Goto
; 14 Let
; 3 If
; 1 FCreate
; 1 FOpen
; 2 FClose
; 6 FGet
; 9 FPutLn
; 2 StartDisp
; 1 GetUser
; 1 Delete
; 1 Log
; 5 Gosub
; 5 Return
; 1 Delay
; 1 DispStr
; 1 Message
;
;
; ■ Functions used :
;
; 1 *
; 1 %
; 20 +
; 2 ==
; 1 <
; 3 !
; 1 Upper()
; 1 Chr()
; 1 Random()
; 2 Date()
; 1 Time()
; 2 U_Name()
; 1 CurConf()
; 5 PPEPath()
; 1 I2S()
; 4 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------