home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
PFED-105.ZIP
/
FILESYS.ZIP
/
FILESYS.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-04-24
|
7KB
|
358 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Date DATE001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
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
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
;------------------------------------------------------------------------------
INTEGER001 = CurConf()
STRING004 = PcbNode()
STRING038 = "R"
DATE001 = 0
BOOLEAN001 = 0
BOOLEAN002 = 0
STRING011 = "SYSOP"
STRING012 = "USER"
STRING014 = "DELETE"
STRING013 = "NUKE"
STRING039 = PPEPath() + PPEName() + ".MSG"
STRING034 = "@X0F∙@X03─@X0B──@X03─"
STRING006 = PPEPath() + "FILESYS.CFG"
STRING005 = PPEPath() + "FILESYS." + STRING004
STRING003 = " | "
If (STRING004 == 0) Then
STRING004 = 1
Endif
If (FileInf(STRING006, 4) > 0) Then
FOpen 1, STRING006, 0, 2
FGet 1, STRING009
FGet 1, STRING010
FGet 1, INTEGER002
FGet 1, STRING021
FGet 1, STRING022
FGet 1, STRING017
FGet 1, INTEGER007
FGet 1, STRING018
FGet 1, INTEGER008
FGet 1, STRING019
FGet 1, INTEGER011
FGet 1, STRING020
FGet 1, INTEGER009
FClose 1
Goto LABEL001
Else
PrintLn "@X0CBOOMLAB FILE SYSOP PPE ERROR - FILESYS.CFG NOT FOUND!"
Goto LABEL007
Endif
:LABEL001
If (FileInf(STRING005, 4) > 0) Then
Goto LABEL002
Else
Goto LABEL007
Endif
:LABEL002
FOpen 1, STRING005, 0, 2
FGet 1, STRING033
FGet 1, STRING023
FGet 1, STRING024
FGet 1, STRING025
FGet 1, STRING026
FGet 1, STRING027
FGet 1, STRING028
FGet 1, STRING029
FGet 1, STRING030
FGet 1, STRING032
FGet 1, STRING031
FClose 1
If (STRING023 == "") Then
Goto LABEL004
Endif
If (STRING028 == "") Then
STRING028 = U_Name()
Endif
If (STRING010 == "") Then
STRING010 = "SYSOP"
Endif
INTEGER003 = 0
INTEGER004 = 0
INTEGER006 = 0
INTEGER005 = 0
INTEGER012 = 0
STRING008 = STRING029
STRING007 = STRING017
INTEGER010 = INTEGER007
STRING002 = STRING029
Gosub LABEL005
STRING008 = STRING030
STRING007 = STRING018
INTEGER010 = INTEGER008
STRING002 = STRING030
Gosub LABEL005
STRING008 = STRING031
STRING007 = STRING019
INTEGER010 = INTEGER011
STRING002 = STRING031
Gosub LABEL005
STRING008 = STRING032
STRING007 = STRING020
INTEGER010 = INTEGER009
STRING002 = STRING032
Gosub LABEL005
STRING015 = "NONE"
If (INTEGER003 == 1) Then
STRING015 = "SYSOP NOTIFIED"
Endif
If (INTEGER004 == 1) Then
STRING015 = STRING028 + " NOTIFIED"
Endif
If ((INTEGER003 == 1) && (INTEGER004 == 1)) Then
STRING015 = "SYSOP & USER NOTIFIED"
Endif
If (INTEGER005 == 1) Then
STRING015 = "@X8FFILE WAS DELETED!"
Endif
If (INTEGER006 == 1) Then
If (INTEGER012 > 0) Then
STRING016 = "CREDIT LOST x " + I2S(INTEGER012, 10)
STRING015 = "@X8FFILE NUKED! - " + STRING016
Goto LABEL003
Endif
STRING016 = "THIS IS A WARNING!"
STRING015 = "@X8FFILE WAS NUKED!"
Endif
:LABEL003
PrintLn STRING009 + " FAILED!"
If (STRING015 <> "NONE") Then
PrintLn STRING009 + "[ACTION TAKEN: @X0F" + STRING015 + STRING009 + "]"
Endif
STRING037 = STRING023 + " [FAILED]"
If (INTEGER003 == 1) Then
STRING035 = STRING010
STRING036 = STRING033
Gosub LABEL006
Endif
If (INTEGER004 == 1) Then
STRING035 = STRING028
STRING036 = STRING033
Gosub LABEL006
Endif
If ((INTEGER005 == 1) || (INTEGER006 == 1)) Then
If (FileInf(STRING024, 4) > 0) Then
Delete STRING024
Endif
If (FileInf(STRING025, 4) > 0) Then
Delete STRING025
Endif
Endif
If (INTEGER006 == 1) Then
If (STRING021 == "YES") Then
FOpen 1, STRING025, 1, 2
FPutLn 1, Left(STRING023 + " ", 12) + " *NUKED* DELETED @X04┌───@X0C▄▒▓██▄@X04─────── ─·· ·"
FPutLn 1, STRING003 + "@X04│@X0C ░▀████▀█ " + STRING033
FPutLn 1, STRING003 + "@X04│@X0C ▀▄▄▀▀▄▄▀ ■ FILE WAS NUKED!!!"
FPutLn 1, STRING003 + "@X04│@X0C ▀▀▀▀ ■ " + STRING016
FPutLn 1, STRING003 + "@X04└────@X0C ▀▀ @X04──── ──── ─ ∙·"
FPutLn 1, STRING003 + "@X0C■ " + STRING001
FPutLn 1, STRING003 + "Uploaded By: @X0F" + STRING028
FClose 1
Endif
If (STRING022 == "YES") Then
FOpen 1, STRING024, 1, 2
FPutLn 1, "NUKED!"
FClose 1
Endif
Endif
:LABEL004
Delete STRING005
Goto LABEL007
:LABEL005
If (((STRING008 <> "PASSED") && (STRING008 <> "OFF")) && (STRING008 <> "NO FILES!")) Then
If (InStr(STRING007, STRING011) <> 0) Then
INTEGER003 = 1
Endif
If (InStr(STRING007, STRING012) <> 0) Then
INTEGER004 = 1
Endif
If (InStr(STRING007, STRING014) <> 0) Then
INTEGER005 = 1
Endif
If (InStr(STRING007, STRING013) <> 0) Then
INTEGER006 = 1
If (INTEGER012 < INTEGER010) Then
INTEGER012 = INTEGER010
STRING001 = STRING002
Endif
Endif
Endif
Return
:LABEL006
FOpen 2, STRING039, 1, 2
If (INTEGER002 == 1) Then
FPutLn 2, "@X0C THIS MESSAGE CONCERNS THE FOLLOWING FILE:"
FPutLn 2, "@X04┌───@X0C▄▒▓██▄@X04─────────────────────────────── ─·· ·"
FPutLn 2, "@X04│@X0C ░▀████▀█ Filename: @X0F" + STRING023
FPutLn 2, "@X04│@X0C ▀▄▄▀▀▄▄▀ Filesize: @X0F" + STRING026
FPutLn 2, "@X04│@X0C ▀▀▀▀ Uploaded On: @X0F" + STRING027
FPutLn 2, "@X04└────@X0C ▀▀ @X04────┐ @X0CUploaded By: @X0F" + STRING028
FPutLn 2, "@X04 │ "
FPutLn 2, "@X04 │ @X0CCRC Test: @X0F" + STRING029
FPutLn 2, "@X04 │ @X0CAge Test: @X0F" + STRING030
FPutLn 2, "@X04 │ @X0CDupe Check: @X0F" + STRING031
FPutLn 2, "@X04 │ @X0CVirus Scan: @X0F" + STRING032
FPutLn 2, "@X04 │ "
FPutLn 2, "@X04 │ @X0CAction Taken: @X0F" + STRING015
FPutLn 2, "@X04 └────────────────────────────── ──── ─ ∙·"
FPutLn 2, ""
Else
FPutLn 2, STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + "@X0F∙"
FPutLn 2, "@X03│ │"
FPutLn 2, "@X0B│ T@X03HI@X0BS M@X03ESS@X0BAG@X03E @X0BCO@X03N@X0BCE@X03R@X0BN@X03S F@X0BOL@X03LO@X0BWI@X03N@X0BG U@X03P@X0BL@X03OA@X0BD │"
FPutLn 2, "@X03│ │"
FPutLn 2, STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + "@X0F∙"
FPutLn 2, ""
FPutLn 2, " @X03F@X0BI@X03L@X0BE N@X03A@X0BM@X03E @X08.... @X0F" + STRING023
FPutLn 2, " @X03F@X0BILE @X03SI@X0BZE @X08.... @X0F" + STRING026
FPutLn 2, " @X0BWH@X03EN @X0BS@X03EN@X0BT@X08 .... @X0F" + STRING027
FPutLn 2, " @X03UP@X0BLO@X03A@X0BDE@X03D@X0B B@X03Y@X08 .. @X0F" + STRING028
FPutLn 2, ""
FPutLn 2, " @X03C@X0BRC @X03T@X0BE@X03ST@X08 ..... @X0F" + STRING029
FPutLn 2, " @X0BAG@X03E @X0BT@X03ES@X0BT@X08 ..... @X0F" + STRING030
FPutLn 2, " @X03D@X0BUP@X03E C@X0BHE@X03C@X0BK@X08 ... @X0F" + STRING031
FPutLn 2, " @X0BV@X03IR@X0BU@X03S S@X0BCA@X03N@X08 ... @X0F" + STRING032
FPutLn 2, ""
FPutLn 2, " @X03AC@X0BT@X03I@X0BON @X03TA@X0BK@X03E@X0BN @X08... @X0F" + STRING015
Endif
FClose 2
Message INTEGER001, STRING035, STRING036, STRING037, STRING038, DATE001, BOOLEAN001, BOOLEAN002, STRING039
Delete STRING039
Return
:LABEL007
FClose 1
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 38 Goto
; 59 Let
; 3 PrintLn
; 28 If
; 5 FOpen
; 6 FClose
; 24 FGet
; 40 FPutLn
; 4 Delete
; 6 Gosub
; 2 Return
; 1 Message
;
;
; ■ Functions used :
;
; 62 +
; 18 ==
; 8 <>
; 1 <
; 5 >
; 28 !
; 3 &&
; 1 ||
; 1 Left()
; 4 InStr()
; 1 U_Name()
; 1 CurConf()
; 3 PPEPath()
; 1 PcbNode()
; 1 I2S()
; 4 FileInf()
; 1 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 28 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------