home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HomeWare 14
/
HOMEWARE14.bin
/
bbsutils
/
allstat.arj
/
ALLSTAT.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-05-02
|
4KB
|
228 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
;------------------------------------------------------------------------------
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
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
;------------------------------------------------------------------------------
STRING001 = PPEPath() + "ALLSTAT"
STRING018 = PPEPath() + "LASTSTAT.TMP"
STRING019 = PPEPath() + "ALLSTAT.TMP"
STRING013 = Space(1)
STRING014 = Space(2)
INTEGER001 = 0
INTEGER002 = 0
INTEGER003 = 20
INTEGER004 = 500
If (TokCount() == 2) Then
INTEGER003 = GetToken()
INTEGER004 = GetToken()
Else
Log "Could not find Command line options! (ALLSTAT.PPE)", 1
End
Endif
GetUser
Newline
PrintLn "@X0ERunning ALLSTAT.PPE @X0A(c) Copyright 1994 @X0Bby A. Segura@X07"
Newlines 2
PrintLn "@X0AThanks for calling, @X0B@FIRST@!@X07"
Newline
If (CurSec() == 0) Goto LABEL004
STRING002 = Mixed(U_Name())
If (STRING002 == "SYSOP") Goto LABEL004
If (STRING002 == "Sysop") Goto LABEL004
If (STRING002 == "Al Segura") Goto LABEL004
If (STRING002 == "Bill Smith") Goto LABEL004
KbdChkOff
CdChkOff
DtrOff
Delay 18
DtrOn
STRING002 = "@X0B" + Left(STRING002, 21) + STRING013
STRING007 = "@X07" + Right(String(U_Logons()), 3) + STRING013
STRING008 = "@X0E" + Left(String(U_LDate()), 5)
STRING010 = "@X0C" + Left(String(Date()), 5) + STRING013
STRING003 = "@X0E" + Right(String(U_Ful()), 3) + STRING013
STRING004 = "@X0F" + Right(String(U_Fdl()), 3) + STRING013
STRING005 = "@X0A" + Right(String(U_MsgRd()), 5) + STRING013
STRING006 = "@X0B" + Right(String(U_MsgWr()), 3) + STRING014
STRING011 = "@X07" + Right(String(U_Stat(4)), 3) + STRING013
STRING012 = "@X0C" + Right(String(U_Stat(10)), 3) + STRING014
STRING015 = "@X0D" + Right(String(U_Stat(14)), 3) + STRING014
STRING016 = "@X0C" + Right(String(U_Stat(12)), 3) + STRING013
If (U_Sec < INTEGER003) STRING009 = "@X0A" + Right(String(U_Sec), 3) + STRING014
If (U_Sec >= INTEGER003) STRING009 = "@X0D" + Right(String(U_Sec), 3) + STRING014
STRING017 = STRING010 + STRING002 + STRING009 + STRING007 + STRING004 + STRING003 + STRING005 + STRING006 + STRING011 + STRING012 + STRING015 + STRING016 + STRING008
FCreate 1, STRING018, 2, 0
FPutLn 1, STRING017
FClose 1
If (Exist(STRING019)) Goto LABEL001
FCreate 1, STRING019, 2, 0
FClose 1
:LABEL001
Append STRING019, STRING018
STRING017 = ""
FOpen 2, STRING018, 0, 0
FCreate 1, STRING001, 1, 0
:LABEL002
If (Ferr(2)) Goto LABEL003
FGet 2, STRING017
Select Case (INTEGER001)
Case 0
FPutLn 1, "@CLS@"
FPutLn 1, "@X0D..................ALLSTAT.PPE @X0C(c) COPYRIGHT 1994 @X0Bby Al Segura@X0D..................@X07"
FPutLn 1, "@X07Date User Sec TOTAL Files MESSAGES# Cmnt SECURITY Down Last "
FPutLn 1, "@X07 On Name Lvl Call Dwn Up Read Wrt Left Vio Pwrd Limt On "
FPutLn 1, "@X07-------------------------------------------------------------------------------"
FPutLn 1, STRING017
Case 14
FPutLn 1, STRING017
FPutLn 1, "@X07==============================================================================="
FPutLn 1, "@MORE@"
INTEGER001 = -1
Case Else
FPutLn 1, STRING017
End Select
Inc INTEGER001
Inc INTEGER002
If (INTEGER002 >= INTEGER004) Goto LABEL003
Goto LABEL002
:LABEL003
If (INTEGER001 <> 0) Then
FPutLn 1, "@X07==============================================================================="
FPutLn 1, "@MORE@"
Endif
FClose 1
FClose 2
Delete STRING019
Rename STRING018, STRING019
CdChkOn
KbdChkOn
SPrintLn "ALLSTAT.PPE Completed Successfully!"
End
:LABEL004
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 3 End
; 16 Goto
; 29 Let
; 2 PrintLn
; 14 If
; 3 FCreate
; 1 FOpen
; 4 FClose
; 1 FGet
; 13 FPutLn
; 1 GetUser
; 1 Delete
; 1 Log
; 1 DtrOn
; 1 DtrOff
; 1 CdChkOn
; 1 CdChkOff
; 1 Delay
; 2 Inc
; 2 Newline
; 1 Newlines
; 1 KbdChkOn
; 1 KbdChkOff
; 1 SPrintLn
; 1 Rename
; 1 Append
;
;
; ■ Functions used :
;
; 1 -
; 42 +
; 8 ==
; 1 <>
; 1 <
; 2 >=
; 6 !
; 3 Left()
; 11 Right()
; 2 Space()
; 1 Ferr()
; 1 Date()
; 1 U_Name()
; 1 U_LDate()
; 1 U_Logons()
; 1 U_Ful()
; 1 U_Fdl()
; 13 String()
; 3 PPEPath()
; 1 U_MsgRd()
; 1 U_MsgWr()
; 1 CurSec()
; 2 GetToken()
; 1 Exist()
; 4 U_Stat()
; 1 TokCount()
; 1 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : B
;
; B - Brute hangup ■ 1
; Program hangup without notification. This may be a good way to
; disconnect a user, but if used randomly, may be very nasty
; ■ Search for : HANGUP, DTROFF
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 2 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------