home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carsten's PPE Collection
/
Carstens_PPE_Collection_2007.zip
/
T
/
TAC@SPY.ZIP
/
SPY.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-10-08
|
11KB
|
365 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
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
String TSTRING001(2)
String TSTRING002(31)
String TSTRING003(39)
String TSTRING004(31)
String STRING005
String STRING006
;------------------------------------------------------------------------------
TSTRING001(1) = "@X08SPY ON USER"
TSTRING001(2) = "@X08EXIT SHITTY PPE"
TSTRING002(1) = "@X08SPY ON USER"
TSTRING002(2) = "@X07S@X08PY ON USER"
TSTRING002(3) = "@X0FS@X07P@X08Y ON USER"
TSTRING002(4) = "@X07S@X0FP@X07Y @X08ON USER@X07"
TSTRING002(5) = "@X08S@X07P@X0FY @X08ON USER"
TSTRING002(6) = "SP@X07Y O@X08N USER"
TSTRING002(7) = "SPY @X0FO@X07N @X08USER@X07"
TSTRING002(8) = "@X08SPY @X07O@X0FN @X08USER"
TSTRING002(9) = "SPY O@X07N U@X08SER"
TSTRING002(10) = "SPY ON @X0FU@X07S@X08ER"
TSTRING002(11) = "SPY ON @X07U@X0FS@X07E@X08R"
TSTRING002(12) = "SPY ON U@X07S@X0FE@X07R"
TSTRING002(13) = "@X08SPY ON US@X07E@X0FR"
TSTRING002(14) = "@X08SPY ON USE@X07R"
TSTRING002(15) = "@X08SPY ON USER"
TSTRING002(16) = "SPY ON USER"
TSTRING002(17) = "SPY ON USER"
TSTRING002(18) = "SPY ON USE@X07R"
TSTRING002(19) = "@X08SPY ON US@X07E@X0FR"
TSTRING002(20) = "@X08SPY ON U@X07S@X0FE@X07R"
TSTRING002(21) = "@X08SPY ON @X07U@X0FS@X07E@X08R"
TSTRING002(22) = "SPY ON @X0FU@X07S@X08ER"
TSTRING002(23) = "SPY O@X07N U@X08SER"
TSTRING002(24) = "SPY @X07O@X0FN @X08USER"
TSTRING002(25) = "SPY @X0FO@X07N @X08USER@X07"
TSTRING002(26) = "@X08SP@X07Y O@X08N USER"
TSTRING002(27) = "S@X07P@X0FY @X08ON USER"
TSTRING002(28) = "@X07S@X0FP@X07Y @X08ON USER@X07"
TSTRING002(29) = "@X0FS@X07P@X08Y ON USER"
TSTRING002(30) = "@X07S@X08PY ON USER"
TSTRING002(31) = "SPY ON USER"
TSTRING003(1) = "EXIT SHITTY PPE"
TSTRING003(2) = "@X07E@X08XIT SHITTY PPE"
TSTRING003(3) = "@X0FE@X07X@X08IT SHITTY PPE"
TSTRING003(4) = "@X07E@X0FX@X07I@X08T SHITTY PPE"
TSTRING003(5) = "E@X07X@X0FI@X07T @X08SHITTY PPE@X07"
TSTRING003(6) = "@X08EX@X07I@X0FT @X08SHITTY PPE"
TSTRING003(7) = "EXI@X07T S@X08HITTY PPE"
TSTRING003(8) = "EXIT @X0FS@X07H@X08ITTY PPE"
TSTRING003(9) = "EXIT @X07S@X0FH@X07I@X08TTY PPE"
TSTRING003(10) = "EXIT S@X07H@X0FI@X07T@X08TY PPE"
TSTRING003(11) = "EXIT SH@X07I@X0FT@X07T@X08Y PPE"
TSTRING003(12) = "EXIT SHI@X07T@X0FT@X07Y @X08PPE@X07"
TSTRING003(13) = "@X08EXIT SHIT@X07T@X0FY @X08PPE"
TSTRING003(14) = "EXIT SHITT@X07Y P@X08PE"
TSTRING003(15) = "EXIT SHITTY @X0FP@X07P@X08E"
TSTRING003(16) = "EXIT SHITTY @X07P@X0FP@X07E"
TSTRING003(17) = "@X08EXIT SHITTY P@X07P@X0FE"
TSTRING003(18) = "@X08EXIT SHITTY PP@X07E"
TSTRING003(19) = "@X08EXIT SHITTY PPE"
TSTRING003(20) = "EXIT SHITTY PPE"
TSTRING003(21) = "EXIT SHITTY PPE"
TSTRING003(22) = "EXIT SHITTY PP@X07E"
TSTRING003(23) = "@X08EXIT SHITTY P@X07P@X0FE"
TSTRING003(24) = "@X08EXIT SHITTY @X07P@X0FP@X07E"
TSTRING003(25) = "@X08EXIT SHITTY @X0FP@X07P@X08E"
TSTRING003(26) = "EXIT SHITT@X07Y P@X08PE"
TSTRING003(27) = "EXIT SHIT@X07T@X0FY @X08PPE"
TSTRING003(28) = "EXIT SHI@X07T@X0FT@X07Y @X08PPE@X07"
TSTRING003(29) = "@X08EXIT SH@X07I@X0FT@X07T@X08Y PPE"
TSTRING003(30) = "EXIT S@X07H@X0FI@X07T@X08TY PPE"
TSTRING003(31) = "EXIT @X07S@X0FH@X07I@X08TTY PPE"
TSTRING003(32) = "EXIT @X0FS@X07H@X08ITTY PPE"
TSTRING003(33) = "EXI@X07T S@X08HITTY PPE"
TSTRING003(34) = "EX@X07I@X0FT @X08SHITTY PPE"
TSTRING003(35) = "E@X07X@X0FI@X07T @X08SHITTY PPE@X07"
TSTRING003(36) = "E@X0FX@X07I@X08T SHITTY PPE"
TSTRING003(37) = "@X0FE@X07X@X08IT SHITTY PPE"
TSTRING003(38) = "@X07E@X08XIT SHITTY PPE"
TSTRING003(39) = "@X08EXIT SHITTY PPE"
TSTRING004(1) = "@X07(@X08c)95 DiSORDER/T.A.C INC. :)"
TSTRING004(2) = "@X0F(@X07c@X08)95 DiSORDER/T.A.C INC. :)"
TSTRING004(3) = "@X07(@X0Fc@X07)@X0895 DiSORDER/T.A.C INC. :)"
TSTRING004(4) = "@X08(@X07c@X0F)@X079@X085 DiSORDER/T.A.C INC. :)"
TSTRING004(5) = "@X08(c@X07)@X0F9@X075 @X08DiSORDER/T.A.C INC. :)"
TSTRING004(6) = "@X08(c)@X079@X0F5 @X08DiSORDER/T.A.C INC. :)"
TSTRING004(7) = "@X08(c)9@X075 D@X08iSORDER/T.A.C INC. :)"
TSTRING004(8) = "@X08(c)95 @X0FD@X07i@X08SORDER/T.A.C INC. :)"
TSTRING004(9) = "@X08(c)95 @X07D@X0Fi@X07S@X08ORDER/T.A.C INC. :)"
TSTRING004(10) = "@X08(c)95 D@X07i@X0FS@X07O@X08RDER/T.A.C INC. :)"
TSTRING004(11) = "@X08(c)95 Di@X07S@X0FO@X07R@X08DER/T.A.C INC. :)"
TSTRING004(12) = "@X08(c)95 DiS@X07O@X0FR@X07D@X08ER/T.A.C INC. :)"
TSTRING004(13) = "@X08(c)95 DiSO@X07R@X0FD@X07E@X08R/T.A.C INC. :)"
TSTRING004(14) = "@X08(c)95 DiSOR@X07D@X0FE@X07R@X08/T.A.C INC. :)"
TSTRING004(15) = "@X08(c)95 DiSORD@X07E@X0FR@X07/@X08T.A.C INC. :)"
TSTRING004(16) = "@X08(c)95 DiSORDE@X07R@X0F/@X07T@X08.A.C INC. :)"
TSTRING004(17) = "@X08(c)95 DiSORDER@X07/@X0FT@X07.@X08A.C INC. :)"
TSTRING004(18) = "@X08(c)95 DiSORDER/@X07T@X0F.@X07A@X08.C INC. :)"
TSTRING004(19) = "@X08(c)95 DiSORDER/T@X07.@X0FA@X07.@X08C INC. :)"
TSTRING004(20) = "@X08(c)95 DiSORDER/T.@X07A@X0F.@X07C @X08INC. :)"
TSTRING004(21) = "@X08(c)95 DiSORDER/T.A@X07.@X0FC @X08INC. :)"
TSTRING004(22) = "@X08(c)95 DiSORDER/T.A.@X07C I@X08NC. :)"
TSTRING004(23) = "@X08(c)95 DiSORDER/T.A.C @X0FI@X07N@X08C. :)"
TSTRING004(24) = "@X08(c)95 DiSORDER/T.A.C @X07I@X0FN@X07C@X08. :)"
TSTRING004(25) = "@X08(c)95 DiSORDER/T.A.C I@X07N@X0FC@X07. @X08:)"
TSTRING004(26) = "@X08(c)95 DiSORDER/T.A.C IN@X07C@X0F. @X08:)"
TSTRING004(27) = "@X08(c)95 DiSORDER/T.A.C INC@X07. :@X08)"
TSTRING004(28) = "@X08(c)95 DiSORDER/T.A.C INC. @X0F:@X07)"
TSTRING004(29) = "@X08(c)95 DiSORDER/T.A.C INC. @X07:@X0F)"
TSTRING004(30) = "@X08(c)95 DiSORDER/T.A.C INC. :@X07)"
TSTRING004(31) = "@X08(c)95 DiSORDER/T.A.C INC. :)"
Goto LABEL002
:LABEL001
StartDisp 1
Cls
PrintLn " @X08░ ░ ░ ░ ░ ░ ░"
Print " @X08▒ ░@X0F▄@X7F▓▓▒@X08▒@X7F▓▓▒@X07▄@X08░@X0F▄@X7F▓▓▒@X0F▀@X7F▓▓▒@X07▄@X08░@X0F▄@X7F▓▓▒@X0F▀@X7F▓▓▒@X07▄ @X0F▄@X7F▓▓▒@X0F▀@X7F▓▓▒@X07▄@X08▒ @X0F▄@X7F▓▓▒@X0F▀"
PrintLn "@X7F▓▓▒@X07▄@X08░@X0F▄@X7F▓▓▒@X0F▀@X7F▓▓▒@X07▄@X08▒@X0F▄@X7F▓▓▒@X0F @X7F▓▓▒@X07▄@X08░ ▒"
PrintLn " @X08▓ ▒@X7F▓▓▒▒@X08▓@X7F▓▒▒░@X08▒@X7F▓▓▒▒@X07▄▄▄▄▄@X08▒@X7F▓▓▒▒@X07▄ @X08░@X7F▓▓▒▒@X08░@X7F▓▒▒@X07▀@X08▓░@X7F▓▓▒▒@X07▄▄▄▄▄@X08▒@X7F▓▓▒▒@X07▄@X7F▓▒▒@X07▀@X08▓@X7F▓▓▒▒@X07▄@X7F▓▒▒░@X08▒ ▓"
PrintLn " @X08█ ▓@X7F▓▒▒░@X08▓@X7F▒▒░░@X08▒@X07▄▄▄▄ @X7F▒▒░░@X08▓@X7F▓▒▒░@X0F @X07▄▄▄▄@X08▒@X7F▓▒▒░@X08▒ 1.o ▒@X07▄▄▄▄ @X7F▒▒░░@X08▒@X7F▓▒▒░@X08[DiSO]@X07▄▄▄▄ @X7F▒▒░░@X08▓ █"
PrintLn " @X08▀▄ @X07▀@X7F▒░░@X07▄@X7F▒░░@X07▀@X08▓@X07▀@X7F▒▒░@X07▄@X7F▒░░@X07▀ ▀@X7F▒░░@X07▄@X7F▒░░@X07▀@X08▓@X07▀@X7F▒░░@X08▓ ░ ▓@X07▀@X7F▒▒░@X07▄@X7F▒░░@X07▀@X08▓@X07▀@X7F▒░░@X08 @X07▀@X7F▒░░@X07▄@X7F▒░░@X07▀ @X08▄▀"
PrintLn " @X08▀▄▄▄▄■░▄▄■▓■▄▄▄▄▒▄▄▄▄▄■ ▄▄▄▄▄▄■▄▄▄▄▄▄▄▒▄▄▄▄▒■▄▄▄▄▄■▓ ▄▄▄▄▄▄▄▄▄▄▄░▄▄■▓▄▄▀"
PrintLn " @X08░ ░ ▓ ░ ░ ░"
PrintLn " @X08▒ ▒"
PrintLn " @X08▓■▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀■▓"
PrintLn " @X08█ USER NAME ▒[.........................]▒ MESSAGES LEFT ▒[.....] █"
PrintLn " @X08█ CITY/AFFIL ▓[.........................]▓ MESSAGES READ ▓[.....] █"
PrintLn " @X08█ USERS SEC █[...] █ NR OF TIMES ON ▒[....] █"
PrintLn " @X08█ DL:ED BYTES █[..........] █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄█"
PrintLn " @X08█ UL:ED BYTES █[..........] █ [ ] █"
PrintLn " @X08█ DL:ED FILES █[.....] █ SPY ON USER █"
PrintLn " @X08█ UL:ED FILES █[.....] █ [...........................] █"
PrintLn " @X08█ LAST DATE ON ▓[........] ▓ EXIT SHITTY PPE █"
PrintLn " @X08▀▄ ▒ ░ ▒ (c)95 DiSORDER/T.A.C INC. :) ▄▀"
PrintLn " @X08▀▄▄■░■▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄■▒■▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▀"
PrintLn " @X08▓"
Return
:LABEL002
Gosub LABEL001
Gosub LABEL003
Delay 5
Goto LABEL004
End
:LABEL003
For INTEGER001 = 1 To 31
AnsiPos 48, 18
Print TSTRING004(INTEGER001)
Delay 1
Next
Return
:LABEL004
For INTEGER001 = 1 To 31
AnsiPos 48, 15
Print TSTRING002(INTEGER001)
STRING005 = Inkey()
If (STRING005 == "DOWN") Then
AnsiPos 48, 15
Print TSTRING001(1)
Goto LABEL005
Endif
If (STRING005 == Chr(13)) Then
AnsiPos 48, 15
Print TSTRING001(1)
Goto LABEL006
Endif
Delay 1
Next
Goto LABEL004
:LABEL005
For INTEGER001 = 1 To 39
AnsiPos 48, 17
Print TSTRING003(INTEGER001)
STRING005 = Inkey()
If (STRING005 == "UP") Then
AnsiPos 48, 17
Print TSTRING001(2)
Goto LABEL004
Endif
If (STRING005 == Chr(13)) Then
AnsiPos 48, 17
Print TSTRING001(2)
Gosub LABEL003
Delay 5
End
Endif
Delay 1
Next
Goto LABEL005
:LABEL006
AnsiPos 49, 16
InputStr "@X0F_", STRING006, 15, 27, Mask_Ascii() + "åÅäÄöÖ", 1024
If (Upper(STRING006) == Upper(U_Name())) Then
AnsiPos 49, 16
Print "@X08..........................."
Goto LABEL004
Endif
INTEGER002 = U_RecNum(Upper(STRING006))
If (INTEGER002 == "-1") Then
AnsiPos 49, 16
Print "@X08..........................."
Goto LABEL004
Endif
GetAltUser INTEGER002
Gosub LABEL007
Gosub LABEL008
AnsiPos 1, 21
Wait
Gosub LABEL009
Goto LABEL004
:LABEL007
For INTEGER001 = 1 To 27
AnsiPos 48 + INTEGER001, 14
Print "@X0F" + Chr(254)
Delay 1
AnsiPos 49 + 27 - INTEGER001, 16
Print "@X08."
Next
For INTEGER001 = 1 To 27
AnsiPos 48 + INTEGER001, 14
Print " "
Next
Return
:LABEL008
AnsiPos 20, 10
Print "@X0F" + U_Name()
AnsiPos 20, 11
Print U_City
AnsiPos 20, 12
Print U_Sec
AnsiPos 20, 13
Print U_Bdl()
AnsiPos 20, 14
Print U_Bul()
AnsiPos 20, 15
Print U_Fdl()
AnsiPos 20, 16
Print U_Ful()
AnsiPos 20, 17
Print U_LDate()
AnsiPos 65, 10
Print U_MsgWr()
AnsiPos 65, 11
Print U_MsgRd()
AnsiPos 65, 12
Print U_Logons()
Return
:LABEL009
AnsiPos 20, 10
Print "@X08........................."
AnsiPos 20, 11
Print "........................."
AnsiPos 20, 12
Print "..."
AnsiPos 20, 13
Print ".........."
AnsiPos 20, 14
Print ".........."
AnsiPos 20, 15
Print "....."
AnsiPos 20, 16
Print "....."
AnsiPos 20, 17
Print "........"
AnsiPos 65, 10
Print "....."
AnsiPos 65, 11
Print "....."
AnsiPos 65, 12
Print "...."
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 1 Wait
; 26 Goto
; 116 Let
; 35 Print
; 20 PrintLn
; 11 If
; 1 StartDisp
; 1 InputStr
; 6 Gosub
; 5 Return
; 6 Delay
; 36 AnsiPos
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 11 +
; 1 -
; 6 ==
; 5 <
; 5 <=
; 10 >=
; 11 !
; 10 &&
; 5 ||
; 3 Upper()
; 3 Chr()
; 2 U_Name()
; 1 U_LDate()
; 1 U_Logons()
; 1 U_Ful()
; 1 U_Fdl()
; 1 U_Bdl()
; 1 U_Bul()
; 2 Inkey()
; 1 Mask_Ascii()
; 1 U_MsgRd()
; 1 U_MsgWr()
; 1 U_RecNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : R
;
; 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
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 5 For/Next
; 0 While/EndWhile
; 6 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------