home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TFT-DOS.ZIP
/
MATRIX.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-07-03
|
3KB
|
176 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
Int INT001
;------------------------------------------------------------------------------
Cls
PrintLn "@POFF@"
PrintLn
PrintLn
PrintLn "@X0BL@X03O@X08GIN MATRIX BY: aLC 'o h0Le -@X039@X0B6"
PrintLn
:LABEL001
STRING001 = ""
Print "@X07C:\" + ReadLine(PPEPath() + "MATRIX.CFG", 1) + ">"
InputStr "_", STRING001, 13, 21, "abcdefghijklmnopqrstuvwxyzåäöABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ: ", 8 + 4096
Select Case (Upper(STRING001))
Case "LOGIN"
End
Case "HANGUP"
Hangup
End
Case "PAGE"
PrintLn
PrintLn "@X07Pageing " + ReadLine(PCBDat(), 2) + "!"
Call ReadLine(PPEPath() + "MATRIX.CFG", 2)
PrintLn
Goto LABEL001
Case "DIR"
PrintLn
Print "@X07Searching"
Delay 5
Print "@X07."
Delay 5
Print "@X07."
Delay 5
Print "@X07."
Delay 5
Print Chr(10) + Chr(13)
PrintLn "@X07. <SUB-DIR>"
PrintLn ".. <SUB-DIR>"
PrintLn "hangup.com 2682"
PrintLn "login.exe 7059"
PrintLn "page.com 580"
PrintLn
PrintLn "Found 3 file(s) and 2 sub-dir(s) in directory C:\" + ReadLine(PPEPath() + "MATRIX.CFG", 1) + "\"
PrintLn " Total: 10321 bytes"
PrintLn " Free: 790918805 bytes"
PrintLn
Goto LABEL001
Case ""
PrintLn
Goto LABEL001
Case "WIN"
PrintLn
PrintLn "@X07Windoze is phor lamahz!"
PrintLn
Goto LABEL001
Case "NC"
PrintLn
PrintLn "@X07NC rewlz!"
PrintLn
Goto LABEL001
Case "FORMAT C:"
PrintLn
PrintLn "@X07Securety system interferance, sending commandline to users OS!"
PrintLn
Goto LABEL001
Case "HACK"
PrintLn
Print "@X07Downloading the userlist.............OK"
PrintLn
Print "@X07Please wait, encrypting drive C:......."
For INT001 = 1 To 100
Backup Len(INT001 - 1) + 1
Print String(INT001) + "%"
Delay 3
Next
Hangup
Case Else
PrintLn
PrintLn "@X07Wrong command or filename!"
PrintLn
Goto LABEL001
End Select
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 27 Goto
; 3 Let
; 9 Print
; 34 PrintLn
; 10 If
; 2 Hangup
; 1 InputStr
; 5 Delay
; 1 Call
; 1 Backup
;
;
; ■ Functions used :
;
; 14 +
; 1 -
; 9 ==
; 1 <
; 1 <=
; 2 >=
; 10 !
; 2 &&
; 1 ||
; 1 Len(
; 9 Upper()
; 2 Chr()
; 1 String()
; 1 PCBDat()
; 3 PPEPath()
; 4 ReadLine()
;
;------------------------------------------------------------------------------
;
; Analysis flags : BCd
;
; 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
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
; 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
;
; 1 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------