home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
THTTP2B3.ZIP
/
ALL.PPE
(
.txt
)
next >
Wrap
PCBoard Programming Language Executable
|
1994-07-28
|
8KB
|
466 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
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Real REAL001
Real REAL002
Real REAL003
Real REAL004
Real REAL005
Real REAL006
Real REAL007
Real REAL008
Real REAL009
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String TSTRING011(50)
;------------------------------------------------------------------------------
If (!OnLocal()) CdChkOff
If (!OnLocal()) DtrOff
If (!OnLocal()) Delay 10
If (!OnLocal()) DtrOn
If (!OnLocal()) Delay 5
If (!OnLocal()) SendModem "ATH1"
INTEGER001 = 1
If (Exist(PPEPath() + PPEName() + "d.log")) Goto LABEL005
PrintLn "@X0F Creating All Time Data Files, One Second Please!!"
FCreate 1, PPEPath() + PPEName() + "u.log", 1, 0
FCreate 2, PPEPath() + PPEName() + "d.log", 1, 0
:LABEL001
GetAltUser INTEGER001
If (CurUser() == -1) Goto LABEL004
REAL001 = U_Bul()
REAL003 = U_Bdl()
REAL002 = U_Ful()
REAL004 = U_Fdl()
Inc INTEGER001
If ((U_Alias == "") || (U_Alias == " ")) Then
Alias 0
Else
Alias 1
Endif
If (REAL001 <> 0) Then
If (Alias() == 1) Then
FPutLn 1, U_Alias + " " + String(REAL001) + " " + String(REAL002)
Goto LABEL002
Endif
FPutLn 1, U_Name() + " " + String(REAL001) + " " + String(REAL002)
Endif
:LABEL002
If (REAL003 <> 0) Then
If (Alias() == 1) Then
FPutLn 2, U_Alias + " " + String(REAL003) + " " + String(REAL004)
Goto LABEL003
Endif
FPutLn 2, U_Name() + " " + String(REAL003) + " " + String(REAL004)
Endif
:LABEL003
Goto LABEL001
:LABEL004
FClose 1
FClose 2
:LABEL005
If (Exist(PPEPath() + PPEName() + ".loc")) Goto LABEL005
FCreate 1, PPEPath() + PPEName() + ".loc", 1, 0
FClose 1
STRING006 = "ALLU"
GetUser
If ((U_Alias == "") || (U_Alias == " ")) Then
Alias 0
Else
Alias 1
Endif
If (Exist(PPEPath() + "upcrrun." + String(PcbNode()))) Then
PrintLn "@X0F Updating the @X0BTHT-TOP @X0FData files for @X0CUploads@X0F, Thanks!!@X07"
:LABEL006
REAL003 = 0
REAL004 = 0
REAL005 = 0
REAL006 = 0
FOpen 1, PPEPath() + "upcr" + String(PcbNode()) + ".tmp", 0, 0
FGet 1, STRING007
Tokenize STRING007
GetToken REAL005
GetToken REAL006
FClose 1
If (Exist(PPEPath() + STRING006 + ".log")) Goto LABEL007
FCreate 1, PPEPath() + STRING006 + ".log", 1, 0
FClose 1
:LABEL007
If (Exist(PPEPath() + STRING006 + ".log")) FOpen 2, PPEPath() + STRING006 + ".log", 0, 0
BOOLEAN001 = 0
If (Exist(PPEPath() + STRING006 + ".log")) FCreate 3, PPEPath() + STRING006 + ".tmp", 1, 0
:LABEL008
If (Ferr(2)) Goto LABEL011
FGet 2, STRING005
If (STRING005 == "") Goto LABEL011
If (Alias() == 1) Then
INTEGER002 = Len(U_Alias)
Goto LABEL009
Endif
INTEGER002 = Len(U_Name())
:LABEL009
If ((Mid(STRING005, 1, INTEGER002) == U_Name()) || (Mid(STRING005, 1, INTEGER002) == U_Alias)) Then
BOOLEAN001 = 1
Tokenize STRING005
If (TokCount() == 5) Then
GetToken STRING008
GetToken STRING009
GetToken STRING010
GetToken REAL003
GetToken REAL004
Endif
If (TokCount() == 4) Then
GetToken STRING008
GetToken STRING009
GetToken REAL003
GetToken REAL004
Endif
If (TokCount() == 3) Then
GetToken STRING008
GetToken REAL003
GetToken REAL004
Endif
REAL003 = REAL003 + REAL005
REAL004 = REAL004 + REAL006
FPutLn 3, Mid(STRING005, 1, INTEGER002) + " " + String(REAL003) + " " + String(REAL004)
Goto LABEL010
Endif
FPutLn 3, STRING005
:LABEL010
Goto LABEL008
:LABEL011
If (BOOLEAN001 == 0) Then
If (Alias() == 1) Then
FPutLn 3, U_Alias + " " + String(REAL005) + " " + String(REAL006)
Goto LABEL012
Endif
FPutLn 3, U_Name() + " " + String(REAL005) + " " + String(REAL006)
Endif
:LABEL012
FClose 4
FClose 3
FClose 1
FClose 2
If (STRING006 == "ALLU") Then
If (Exist(PPEPath() + PPEName() + "u.tmp")) Copy PPEPath() + PPEName() + "u.tmp", PPEPath() + PPEName() + "u.log"
If (Exist(PPEPath() + PPEName() + "u.tmp")) Delete PPEPath() + PPEName() + "u.tmp"
If (Exist(PPEPath() + "ALLU.log")) FOpen 2, PPEPath() + "ALLU.log", 0, 0
If (Exist(PPEPath() + "ALLU.log")) FCreate 3, PPEPath() + "topU.tmp", 1, 0
Gosub LABEL020
STRING006 = "UPCR"
Goto LABEL006
Endif
If (STRING006 == "UPCR") Then
If (Exist(PPEPath() + "UPcr.tmp")) Copy PPEPath() + "UPcr.tmp", PPEPath() + "UPcr.log"
If (Exist(PPEPath() + "UPcr.tmp")) Delete PPEPath() + "UPcr.tmp"
If (Exist(PPEPath() + "UPCR.log")) FOpen 2, PPEPath() + "UPCR.log", 0, 0
If (Exist(PPEPath() + "upcr.log")) FCreate 3, PPEPath() + "WEEK1.tmp", 1, 0
Gosub LABEL020
STRING006 = "UPCR" + String(Month(Date()))
Goto LABEL006
Endif
If (Exist(PPEPath() + "UPcr" + String(Month(Date())) + ".tmp")) Copy PPEPath() + "UPcr" + String(Month(Date())) + ".tmp", PPEPath() + "UPcr" + String(Month(Date())) + ".log"
If (Exist(PPEPath() + "UPcr" + String(Month(Date())) + ".tmp")) Delete PPEPath() + "UPcr" + String(Month(Date())) + ".tmp"
If (Exist(PPEPath() + "UPCR" + String(Month(Date())) + ".log")) FOpen 2, PPEPath() + "UPCR" + String(Month(Date())) + ".log", 0, 0
If (Exist(PPEPath() + "upcr" + String(Month(Date())) + ".log")) FCreate 3, PPEPath() + "monthu.tmp", 1, 0
Gosub LABEL020
If (Exist(PPEPath() + "upcr" + String(PcbNode()) + ".tmp")) Delete PPEPath() + "upcr" + String(PcbNode()) + ".tmp"
Endif
If (Exist(PPEPath() + "dncrrun." + String(PcbNode()))) Then
STRING006 = "ALLD"
PrintLn "@X0F Updating the @X0BTHT-TOP @X0FData files for @X04Downloads@X0F!!"
:LABEL013
REAL003 = 0
REAL004 = 0
REAL005 = 0
REAL006 = 0
FOpen 1, PPEPath() + "dncr" + String(PcbNode()) + ".tmp", 0, 0
FGet 1, STRING007
Tokenize STRING007
GetToken REAL005
GetToken REAL006
FClose 1
If (Exist(PPEPath() + STRING006 + ".log")) Goto LABEL014
FCreate 1, PPEPath() + STRING006 + ".log", 1, 0
FClose 1
:LABEL014
If (Exist(PPEPath() + STRING006 + ".log")) FOpen 2, PPEPath() + STRING006 + ".log", 0, 0
BOOLEAN001 = 0
If (Exist(PPEPath() + STRING006 + ".log")) FCreate 3, PPEPath() + STRING006 + ".tmp", 1, 0
:LABEL015
If (Ferr(2)) Goto LABEL018
FGet 2, STRING005
If (STRING005 == "") Goto LABEL018
If (Alias() == 1) Then
INTEGER002 = Len(U_Alias)
Goto LABEL016
Endif
INTEGER002 = Len(U_Name())
:LABEL016
If ((Mid(STRING005, 1, INTEGER002) == U_Name()) || (Mid(STRING005, 1, INTEGER002) == U_Alias)) Then
BOOLEAN001 = 1
Tokenize STRING005
If (TokCount() == 5) Then
GetToken STRING008
GetToken STRING009
GetToken STRING010
GetToken REAL003
GetToken REAL004
Endif
If (TokCount() == 4) Then
GetToken STRING008
GetToken STRING009
GetToken REAL003
GetToken REAL004
Endif
If (TokCount() == 3) Then
GetToken STRING008
GetToken REAL003
GetToken REAL004
Endif
REAL003 = REAL003 + REAL005
REAL004 = REAL004 + REAL006
FPutLn 3, Mid(STRING005, 1, INTEGER002) + " " + String(REAL003) + " " + String(REAL004)
Goto LABEL017
Endif
FPutLn 3, STRING005
:LABEL017
Goto LABEL015
:LABEL018
If (BOOLEAN001 == 0) Then
If (Alias() == 1) Then
FPutLn 3, U_Alias + " " + String(REAL005) + " " + String(REAL006)
Goto LABEL019
Endif
FPutLn 3, U_Name() + " " + String(REAL005) + " " + String(REAL006)
Endif
:LABEL019
FClose 4
FClose 3
FClose 1
FClose 2
If (STRING006 == "ALLD") Then
If (Exist(PPEPath() + PPEName() + "d.tmp")) Copy PPEPath() + PPEName() + "d.tmp", PPEPath() + PPEName() + "d.log"
If (Exist(PPEPath() + PPEName() + "d.tmp")) Delete PPEPath() + PPEName() + "d.tmp"
If (Exist(PPEPath() + "alld.log")) FOpen 2, PPEPath() + "alld.log", 0, 0
If (Exist(PPEPath() + "alld.log")) FCreate 3, PPEPath() + "topd.tmp", 1, 0
Gosub LABEL020
STRING006 = "DNCR"
Goto LABEL013
Endif
If (STRING006 == "DNCR") Then
If (Exist(PPEPath() + "dncr.tmp")) Copy PPEPath() + "dncr.tmp", PPEPath() + "dncr.log"
If (Exist(PPEPath() + "dncr.tmp")) Delete PPEPath() + "dncr.tmp"
If (Exist(PPEPath() + "dncr.log")) FOpen 2, PPEPath() + "dncr.log", 0, 0
If (Exist(PPEPath() + "dnCR.log")) FCreate 3, PPEPath() + "WEEK.tmp", 1, 0
Gosub LABEL020
STRING006 = "DNCR" + String(Month(Date()))
Goto LABEL013
Endif
If (Exist(PPEPath() + "dncr" + String(Month(Date())) + ".tmp")) Copy PPEPath() + "dncr" + String(Month(Date())) + ".tmp", PPEPath() + "dncr" + String(Month(Date())) + ".log"
If (Exist(PPEPath() + "dncr" + String(Month(Date())) + ".tmp")) Delete PPEPath() + "dncr" + String(Month(Date())) + ".tmp"
If (Exist(PPEPath() + "dncr" + String(Month(Date())) + ".log")) FOpen 2, PPEPath() + "dncr" + String(Month(Date())) + ".log", 0, 0
If (Exist(PPEPath() + "dnCR" + String(Month(Date())) + ".log")) FCreate 3, PPEPath() + "monthd.tmp", 1, 0
Gosub LABEL020
Goto LABEL024
:LABEL020
FOpen 0, PPEPath() + "exclude.lst", 0, 0
FGet 0, INTEGER004
For INTEGER005 = 1 To INTEGER004
FGet 0, TSTRING011(INTEGER005)
Next
FClose 0
REAL007 = 0
REAL008 = 0
REAL009 = 0
:LABEL021
If (Ferr(2)) Goto LABEL023
:LABEL022
FGet 2, STRING001
Tokenize STRING001
If (TokCount() == 3) Then
GetToken STRING002
GetToken REAL007
GetToken REAL008
INTEGER003 = Len(REAL007)
REAL009 = REAL009 + REAL007
For INTEGER005 = 1 To INTEGER004
If (STRING002 == TSTRING011(INTEGER005)) Goto LABEL022
Next
FPutLn 3, Space(13 - INTEGER003) + String(REAL007) + Space(1) + STRING002 + Space(1) + String(REAL008)
Endif
If (TokCount() == 4) Then
GetToken STRING002
GetToken STRING003
GetToken REAL007
GetToken REAL008
INTEGER003 = Len(REAL007)
REAL009 = REAL009 + REAL007
For INTEGER005 = 1 To INTEGER004
If (STRING002 + " " + STRING003 == TSTRING011(INTEGER005)) Goto LABEL022
Next
FPutLn 3, Space(13 - INTEGER003) + String(REAL007) + Space(1) + STRING002 + " " + STRING003 + Space(1) + String(REAL008)
Endif
If (TokCount() == 5) Then
GetToken STRING002
GetToken STRING003
GetToken STRING004
GetToken REAL007
GetToken REAL008
INTEGER003 = Len(REAL007)
REAL009 = REAL009 + REAL007
For INTEGER005 = 1 To INTEGER004
If (STRING002 + " " + STRING003 + " " + STRING004 == TSTRING011(INTEGER005)) Goto LABEL022
Next
FPutLn 3, Space(13 - INTEGER003) + String(REAL007) + Space(1) + STRING002 + " " + STRING003 + " " + STRING004 + Space(1) + String(REAL008)
Endif
Goto LABEL021
:LABEL023
FClose 3
FClose 2
REAL009 = REAL009 / 1024000
INTEGER006 = REAL009
FCreate 2, PPEPath() + STRING006 + ".tot", 1, 0
FPutLn 2, INTEGER006
FClose 2
Return
Endif
:LABEL024
If (Exist(PPEPath() + "dncr" + String(PcbNode()) + ".tmp")) Delete PPEPath() + "dncr" + String(PcbNode()) + ".tmp"
If (Exist(PPEPath() + "dncrrun." + String(PcbNode()))) Delete PPEPath() + "dncrrun." + String(PcbNode())
If (Exist(PPEPath() + "upcrrun." + String(PcbNode()))) Delete PPEPath() + "upcrrun." + String(PcbNode())
Delete PPEPath() + PPEName() + ".loc"
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 69 Goto
; 50 Let
; 3 PrintLn
; 84 If
; 14 FCreate
; 11 FOpen
; 19 FClose
; 7 FGet
; 16 FPutLn
; 1 GetUser
; 11 Delete
; 6 Gosub
; 1 Return
; 1 DtrOn
; 1 DtrOff
; 1 CdChkOff
; 2 Delay
; 1 SendModem
; 1 Inc
; 5 Tokenize
; 40 GetToken
; 4 Alias
; 6 Copy
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 1 -
; 1 /
; 245 +
; 3 -
; 35 ==
; 2 <>
; 4 <
; 4 <=
; 8 >=
; 44 !
; 8 &&
; 8 ||
; 7 Len(
; 6 Mid()
; 9 Space()
; 3 Ferr()
; 18 Date()
; 8 U_Name()
; 1 U_Ful()
; 1 U_Fdl()
; 1 U_Bdl()
; 1 U_Bul()
; 18 Month()
; 56 String()
; 86 PPEPath()
; 12 PcbNode()
; 6 OnLocal()
; 38 Exist()
; 16 PPEName()
; 9 TokCount()
; 6 Alias()
; 1 CurUser()
;
;------------------------------------------------------------------------------
;
; Analysis flags : RBM
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
; 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
;
; M - Send text to modem only ■ 4
; Some informations are sent only to the modem, not to the local
; screen, this is a well known way to make stealth backdoors, Check!
; ■ Search for : SENDMODEM, MPRINT, MPRINTLN
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 4 For/Next
; 0 While/EndWhile
; 29 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------