home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PWAUS10S.ZIP
/
USER.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-05-01
|
3KB
|
232 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
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
;------------------------------------------------------------------------------
Gosub LABEL001
Gosub LABEL003
End
:LABEL001
INTEGER006 = 0
STRING002 = ReadLine(PCBDat(), 29)
INTEGER003 = FileInf(STRING002, 4)
INTEGER004 = INTEGER003 / 400
STRING001 = PPEPath() + "user.cfg"
If (Exist(STRING001)) Goto LABEL002
PrintLn "No config file found: ", STRING001
End
:LABEL002
INTEGER009 = 5
STRING006 = ReadLine(STRING001, 1)
STRING007 = ReadLine(STRING001, 2)
STRING008 = ReadLine(STRING001, 3)
STRING009 = ReadLine(STRING001, 4)
INTEGER002 = ReadLine(STRING001, 5)
Return
:LABEL003
If (Exist(PPEPath() + "user.top")) DispFile PPEPath() + "user.top", 0
For INTEGER007 = 1 To INTEGER004
GetAltUser INTEGER007
INTEGER005 = 0
For INTEGER008 = 1 To INTEGER002
STRING003 = ReadLine(STRING001, INTEGER009 + INTEGER008)
Tokenize STRING003
If (TokCount() == 3) Then
GetToken STRING004
GetToken STRING005
INTEGER001 = S2I(GetToken(), 10)
Forward INTEGER001 - INTEGER005 - 1
INTEGER005 = INTEGER005 + INTEGER001 - INTEGER005 - 1
If (INTEGER005 < 80) Then
If (Lower(STRING004) == "name") Then
Print STRING005 + String(U_Name())
INTEGER005 = INTEGER005 + Len(U_Name())
Continue
Endif
If (Lower(STRING004) == "security") Then
Print STRING005 + String(U_Sec)
INTEGER005 = INTEGER005 + Len(String(U_Sec))
Continue
Endif
If (Lower(STRING004) == "city") Then
Print STRING005 + U_City
INTEGER005 = INTEGER005 + Len(U_City)
Continue
Endif
If (Lower(STRING004) == "areacode") Then
If (String(Left(U_BDPhone, 3)) <> STRING006) Then
Inc INTEGER006
Print STRING007 + String(Left(U_BDPhone, 3))
Goto LABEL004
Endif
Print STRING005 + String(Left(U_BDPhone, 3))
:LABEL004
INTEGER005 = INTEGER005 + 3
Continue
Endif
If (Lower(STRING004) == "numul") Then
Print STRING005 + String(U_Ful())
INTEGER005 = INTEGER005 + Len(U_Ful())
Continue
Endif
If (Lower(STRING004) == "numdl") Then
Print STRING005 + String(U_Fdl())
INTEGER005 = INTEGER005 + Len(U_Fdl())
Continue
Endif
If (Lower(STRING004) == "bul") Then
Print STRING005 + String(U_Bul())
INTEGER005 = INTEGER005 + Len(U_Bul())
Continue
Endif
If (Lower(STRING004) == "bdl") Then
Print STRING005 + String(U_Bul())
INTEGER005 = INTEGER005 + Len(U_Bul())
Continue
Endif
If (Lower(STRING004) == "lastdate") Then
Print STRING005 + String(U_LDate())
INTEGER005 = INTEGER005 + Len(U_LDate())
Continue
Endif
If (Lower(STRING004) == "lasttime") Then
Print STRING005 + String(U_LTime())
INTEGER005 = INTEGER005 + Len(U_LTime())
Continue
Endif
If (Lower(STRING004) == "numon") Then
Print STRING005 + String(U_Logons())
INTEGER005 = INTEGER005 + Len(U_Logons())
Endif
Endif
Endif
Next
Newline
Next
Newline
PrintLn STRING008 + String(INTEGER004)
PrintLn STRING009 + String(INTEGER006)
If (Exist(PPEPath() + "user.bot")) DispFile PPEPath() + "user.bot", 0
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 30 Goto
; 30 Let
; 12 Print
; 3 PrintLn
; 19 If
; 2 DispFile
; 2 Gosub
; 2 Return
; 1 Inc
; 2 Newline
; 1 Tokenize
; 2 GetToken
; 1 Forward
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 1 /
; 34 +
; 4 -
; 12 ==
; 1 <>
; 3 <
; 2 <=
; 4 >=
; 17 !
; 4 &&
; 2 ||
; 10 Len(
; 11 Lower()
; 3 Left()
; 2 U_Name()
; 2 U_LDate()
; 2 U_LTime()
; 2 U_Logons()
; 2 U_Ful()
; 2 U_Fdl()
; 4 U_Bul()
; 15 String()
; 1 PCBDat()
; 5 PPEPath()
; 7 ReadLine()
; 1 GetToken()
; 3 Exist()
; 1 S2I()
; 1 FileInf()
; 1 TokCount()
;
;------------------------------------------------------------------------------
;
; Analysis flags : Rd
;
; 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
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 14 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------