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 >
PCBoard Programming Language Executable  |  1995-10-08  |  11KB  |  365 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     String   TSTRING001(2)
  22.     String   TSTRING002(31)
  23.     String   TSTRING003(39)
  24.     String   TSTRING004(31)
  25.     String   STRING005
  26.     String   STRING006
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     TSTRING001(1) = "@X08SPY ON USER"
  31.     TSTRING001(2) = "@X08EXIT SHITTY PPE"
  32.     TSTRING002(1) = "@X08SPY ON USER"
  33.     TSTRING002(2) = "@X07S@X08PY ON USER"
  34.     TSTRING002(3) = "@X0FS@X07P@X08Y ON USER"
  35.     TSTRING002(4) = "@X07S@X0FP@X07Y @X08ON USER@X07"
  36.     TSTRING002(5) = "@X08S@X07P@X0FY @X08ON USER"
  37.     TSTRING002(6) = "SP@X07Y O@X08N USER"
  38.     TSTRING002(7) = "SPY @X0FO@X07N @X08USER@X07"
  39.     TSTRING002(8) = "@X08SPY @X07O@X0FN @X08USER"
  40.     TSTRING002(9) = "SPY O@X07N U@X08SER"
  41.     TSTRING002(10) = "SPY ON @X0FU@X07S@X08ER"
  42.     TSTRING002(11) = "SPY ON @X07U@X0FS@X07E@X08R"
  43.     TSTRING002(12) = "SPY ON U@X07S@X0FE@X07R"
  44.     TSTRING002(13) = "@X08SPY ON US@X07E@X0FR"
  45.     TSTRING002(14) = "@X08SPY ON USE@X07R"
  46.     TSTRING002(15) = "@X08SPY ON USER"
  47.     TSTRING002(16) = "SPY ON USER"
  48.     TSTRING002(17) = "SPY ON USER"
  49.     TSTRING002(18) = "SPY ON USE@X07R"
  50.     TSTRING002(19) = "@X08SPY ON US@X07E@X0FR"
  51.     TSTRING002(20) = "@X08SPY ON U@X07S@X0FE@X07R"
  52.     TSTRING002(21) = "@X08SPY ON @X07U@X0FS@X07E@X08R"
  53.     TSTRING002(22) = "SPY ON @X0FU@X07S@X08ER"
  54.     TSTRING002(23) = "SPY O@X07N U@X08SER"
  55.     TSTRING002(24) = "SPY @X07O@X0FN @X08USER"
  56.     TSTRING002(25) = "SPY @X0FO@X07N @X08USER@X07"
  57.     TSTRING002(26) = "@X08SP@X07Y O@X08N USER"
  58.     TSTRING002(27) = "S@X07P@X0FY @X08ON USER"
  59.     TSTRING002(28) = "@X07S@X0FP@X07Y @X08ON USER@X07"
  60.     TSTRING002(29) = "@X0FS@X07P@X08Y ON USER"
  61.     TSTRING002(30) = "@X07S@X08PY ON USER"
  62.     TSTRING002(31) = "SPY ON USER"
  63.     TSTRING003(1) = "EXIT SHITTY PPE"
  64.     TSTRING003(2) = "@X07E@X08XIT SHITTY PPE"
  65.     TSTRING003(3) = "@X0FE@X07X@X08IT SHITTY PPE"
  66.     TSTRING003(4) = "@X07E@X0FX@X07I@X08T SHITTY PPE"
  67.     TSTRING003(5) = "E@X07X@X0FI@X07T @X08SHITTY PPE@X07"
  68.     TSTRING003(6) = "@X08EX@X07I@X0FT @X08SHITTY PPE"
  69.     TSTRING003(7) = "EXI@X07T S@X08HITTY PPE"
  70.     TSTRING003(8) = "EXIT @X0FS@X07H@X08ITTY PPE"
  71.     TSTRING003(9) = "EXIT @X07S@X0FH@X07I@X08TTY PPE"
  72.     TSTRING003(10) = "EXIT S@X07H@X0FI@X07T@X08TY PPE"
  73.     TSTRING003(11) = "EXIT SH@X07I@X0FT@X07T@X08Y PPE"
  74.     TSTRING003(12) = "EXIT SHI@X07T@X0FT@X07Y @X08PPE@X07"
  75.     TSTRING003(13) = "@X08EXIT SHIT@X07T@X0FY @X08PPE"
  76.     TSTRING003(14) = "EXIT SHITT@X07Y P@X08PE"
  77.     TSTRING003(15) = "EXIT SHITTY @X0FP@X07P@X08E"
  78.     TSTRING003(16) = "EXIT SHITTY @X07P@X0FP@X07E"
  79.     TSTRING003(17) = "@X08EXIT SHITTY P@X07P@X0FE"
  80.     TSTRING003(18) = "@X08EXIT SHITTY PP@X07E"
  81.     TSTRING003(19) = "@X08EXIT SHITTY PPE"
  82.     TSTRING003(20) = "EXIT SHITTY PPE"
  83.     TSTRING003(21) = "EXIT SHITTY PPE"
  84.     TSTRING003(22) = "EXIT SHITTY PP@X07E"
  85.     TSTRING003(23) = "@X08EXIT SHITTY P@X07P@X0FE"
  86.     TSTRING003(24) = "@X08EXIT SHITTY @X07P@X0FP@X07E"
  87.     TSTRING003(25) = "@X08EXIT SHITTY @X0FP@X07P@X08E"
  88.     TSTRING003(26) = "EXIT SHITT@X07Y P@X08PE"
  89.     TSTRING003(27) = "EXIT SHIT@X07T@X0FY @X08PPE"
  90.     TSTRING003(28) = "EXIT SHI@X07T@X0FT@X07Y @X08PPE@X07"
  91.     TSTRING003(29) = "@X08EXIT SH@X07I@X0FT@X07T@X08Y PPE"
  92.     TSTRING003(30) = "EXIT S@X07H@X0FI@X07T@X08TY PPE"
  93.     TSTRING003(31) = "EXIT @X07S@X0FH@X07I@X08TTY PPE"
  94.     TSTRING003(32) = "EXIT @X0FS@X07H@X08ITTY PPE"
  95.     TSTRING003(33) = "EXI@X07T S@X08HITTY PPE"
  96.     TSTRING003(34) = "EX@X07I@X0FT @X08SHITTY PPE"
  97.     TSTRING003(35) = "E@X07X@X0FI@X07T @X08SHITTY PPE@X07"
  98.     TSTRING003(36) = "E@X0FX@X07I@X08T SHITTY PPE"
  99.     TSTRING003(37) = "@X0FE@X07X@X08IT SHITTY PPE"
  100.     TSTRING003(38) = "@X07E@X08XIT SHITTY PPE"
  101.     TSTRING003(39) = "@X08EXIT SHITTY PPE"
  102.     TSTRING004(1) = "@X07(@X08c)95 DiSORDER/T.A.C INC. :)"
  103.     TSTRING004(2) = "@X0F(@X07c@X08)95 DiSORDER/T.A.C INC. :)"
  104.     TSTRING004(3) = "@X07(@X0Fc@X07)@X0895 DiSORDER/T.A.C INC. :)"
  105.     TSTRING004(4) = "@X08(@X07c@X0F)@X079@X085 DiSORDER/T.A.C INC. :)"
  106.     TSTRING004(5) = "@X08(c@X07)@X0F9@X075 @X08DiSORDER/T.A.C INC. :)"
  107.     TSTRING004(6) = "@X08(c)@X079@X0F5 @X08DiSORDER/T.A.C INC. :)"
  108.     TSTRING004(7) = "@X08(c)9@X075 D@X08iSORDER/T.A.C INC. :)"
  109.     TSTRING004(8) = "@X08(c)95 @X0FD@X07i@X08SORDER/T.A.C INC. :)"
  110.     TSTRING004(9) = "@X08(c)95 @X07D@X0Fi@X07S@X08ORDER/T.A.C INC. :)"
  111.     TSTRING004(10) = "@X08(c)95 D@X07i@X0FS@X07O@X08RDER/T.A.C INC. :)"
  112.     TSTRING004(11) = "@X08(c)95 Di@X07S@X0FO@X07R@X08DER/T.A.C INC. :)"
  113.     TSTRING004(12) = "@X08(c)95 DiS@X07O@X0FR@X07D@X08ER/T.A.C INC. :)"
  114.     TSTRING004(13) = "@X08(c)95 DiSO@X07R@X0FD@X07E@X08R/T.A.C INC. :)"
  115.     TSTRING004(14) = "@X08(c)95 DiSOR@X07D@X0FE@X07R@X08/T.A.C INC. :)"
  116.     TSTRING004(15) = "@X08(c)95 DiSORD@X07E@X0FR@X07/@X08T.A.C INC. :)"
  117.     TSTRING004(16) = "@X08(c)95 DiSORDE@X07R@X0F/@X07T@X08.A.C INC. :)"
  118.     TSTRING004(17) = "@X08(c)95 DiSORDER@X07/@X0FT@X07.@X08A.C INC. :)"
  119.     TSTRING004(18) = "@X08(c)95 DiSORDER/@X07T@X0F.@X07A@X08.C INC. :)"
  120.     TSTRING004(19) = "@X08(c)95 DiSORDER/T@X07.@X0FA@X07.@X08C INC. :)"
  121.     TSTRING004(20) = "@X08(c)95 DiSORDER/T.@X07A@X0F.@X07C @X08INC. :)"
  122.     TSTRING004(21) = "@X08(c)95 DiSORDER/T.A@X07.@X0FC @X08INC. :)"
  123.     TSTRING004(22) = "@X08(c)95 DiSORDER/T.A.@X07C I@X08NC. :)"
  124.     TSTRING004(23) = "@X08(c)95 DiSORDER/T.A.C @X0FI@X07N@X08C. :)"
  125.     TSTRING004(24) = "@X08(c)95 DiSORDER/T.A.C @X07I@X0FN@X07C@X08. :)"
  126.     TSTRING004(25) = "@X08(c)95 DiSORDER/T.A.C I@X07N@X0FC@X07. @X08:)"
  127.     TSTRING004(26) = "@X08(c)95 DiSORDER/T.A.C IN@X07C@X0F. @X08:)"
  128.     TSTRING004(27) = "@X08(c)95 DiSORDER/T.A.C INC@X07. :@X08)"
  129.     TSTRING004(28) = "@X08(c)95 DiSORDER/T.A.C INC. @X0F:@X07)"
  130.     TSTRING004(29) = "@X08(c)95 DiSORDER/T.A.C INC. @X07:@X0F)"
  131.     TSTRING004(30) = "@X08(c)95 DiSORDER/T.A.C INC. :@X07)"
  132.     TSTRING004(31) = "@X08(c)95 DiSORDER/T.A.C INC. :)"
  133.     Goto LABEL002
  134.     :LABEL001
  135.     StartDisp 1
  136.     Cls
  137.     PrintLn "  @X08░      ░    ░                             ░          ░         ░           ░"
  138.     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▀"
  139.     PrintLn "@X7F▓▓▒@X07▄@X08░@X0F▄@X7F▓▓▒@X0F▀@X7F▓▓▒@X07▄@X08▒@X0F▄@X7F▓▓▒@X0F @X7F▓▓▒@X07▄@X08░ ▒"
  140.     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▒ ▓"
  141.     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▓ █"
  142.     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▄▀"
  143.     PrintLn "    @X08▀▄▄▄▄■░▄▄■▓■▄▄▄▄▒▄▄▄▄▄■ ▄▄▄▄▄▄■▄▄▄▄▄▄▄▒▄▄▄▄▒■▄▄▄▄▄■▓ ▄▄▄▄▄▄▄▄▄▄▄░▄▄■▓▄▄▀"
  144.     PrintLn "  @X08░                 ░                     ▓    ░                        ░    ░"
  145.     PrintLn "  @X08▒                                                                          ▒"
  146.     PrintLn "  @X08▓■▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀▀▀■░■▀▀▀▀▀▀▀▀▀▀▀▀■▓"
  147.     PrintLn "  @X08█ USER NAME    ▒[.........................]▒ MESSAGES LEFT  ▒[.....]       █"
  148.     PrintLn "  @X08█ CITY/AFFIL   ▓[.........................]▓ MESSAGES READ  ▓[.....]       █"
  149.     PrintLn "  @X08█ USERS SEC    █[...]                      █ NR OF TIMES ON ▒[....]        █"
  150.     PrintLn "  @X08█ DL:ED BYTES  █[..........]               █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄█"
  151.     PrintLn "  @X08█ UL:ED BYTES  █[..........]               █ [                           ] █"
  152.     PrintLn "  @X08█ DL:ED FILES  █[.....]                    █ SPY ON USER                   █"
  153.     PrintLn "  @X08█ UL:ED FILES  █[.....]                    █ [...........................] █"
  154.     PrintLn "  @X08█ LAST DATE ON ▓[........]                 ▓ EXIT SHITTY PPE               █"
  155.     PrintLn "  @X08▀▄             ▒          ░                ▒ (c)95 DiSORDER/T.A.C INC. :) ▄▀"
  156.     PrintLn "    @X08▀▄▄■░■▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄■▒■▄▄▄▄▄▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄■░■▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▀"
  157.     PrintLn "                            @X08▓"
  158.     Return
  159.     :LABEL002
  160.     Gosub LABEL001
  161.     Gosub LABEL003
  162.     Delay 5
  163.     Goto LABEL004
  164.     End
  165.     :LABEL003
  166.     For INTEGER001 = 1 To 31
  167.         AnsiPos 48, 18
  168.         Print TSTRING004(INTEGER001)
  169.         Delay 1
  170.     Next
  171.     Return
  172.     :LABEL004
  173.     For INTEGER001 = 1 To 31
  174.         AnsiPos 48, 15
  175.         Print TSTRING002(INTEGER001)
  176.         STRING005 = Inkey()
  177.         If (STRING005 == "DOWN") Then
  178.             AnsiPos 48, 15
  179.             Print TSTRING001(1)
  180.             Goto LABEL005
  181.         Endif
  182.         If (STRING005 == Chr(13)) Then
  183.             AnsiPos 48, 15
  184.             Print TSTRING001(1)
  185.             Goto LABEL006
  186.         Endif
  187.         Delay 1
  188.     Next
  189.     Goto LABEL004
  190.     :LABEL005
  191.     For INTEGER001 = 1 To 39
  192.         AnsiPos 48, 17
  193.         Print TSTRING003(INTEGER001)
  194.         STRING005 = Inkey()
  195.         If (STRING005 == "UP") Then
  196.             AnsiPos 48, 17
  197.             Print TSTRING001(2)
  198.             Goto LABEL004
  199.         Endif
  200.         If (STRING005 == Chr(13)) Then
  201.             AnsiPos 48, 17
  202.             Print TSTRING001(2)
  203.             Gosub LABEL003
  204.             Delay 5
  205.             End
  206.         Endif
  207.         Delay 1
  208.     Next
  209.     Goto LABEL005
  210.     :LABEL006
  211.     AnsiPos 49, 16
  212.     InputStr "@X0F_", STRING006, 15, 27, Mask_Ascii() + "åÅäÄöÖ", 1024
  213.     If (Upper(STRING006) == Upper(U_Name())) Then
  214.         AnsiPos 49, 16
  215.         Print "@X08..........................."
  216.         Goto LABEL004
  217.     Endif
  218.     INTEGER002 = U_RecNum(Upper(STRING006))
  219.     If (INTEGER002 == "-1") Then
  220.         AnsiPos 49, 16
  221.         Print "@X08..........................."
  222.         Goto LABEL004
  223.     Endif
  224.     GetAltUser INTEGER002
  225.     Gosub LABEL007
  226.     Gosub LABEL008
  227.     AnsiPos 1, 21
  228.     Wait
  229.     Gosub LABEL009
  230.     Goto LABEL004
  231.     :LABEL007
  232.     For INTEGER001 = 1 To 27
  233.         AnsiPos 48 + INTEGER001, 14
  234.         Print "@X0F" + Chr(254)
  235.         Delay 1
  236.         AnsiPos 49 + 27 - INTEGER001, 16
  237.         Print "@X08."
  238.     Next
  239.     For INTEGER001 = 1 To 27
  240.         AnsiPos 48 + INTEGER001, 14
  241.         Print " "
  242.     Next
  243.     Return
  244.     :LABEL008
  245.     AnsiPos 20, 10
  246.     Print "@X0F" + U_Name()
  247.     AnsiPos 20, 11
  248.     Print U_City
  249.     AnsiPos 20, 12
  250.     Print U_Sec
  251.     AnsiPos 20, 13
  252.     Print U_Bdl()
  253.     AnsiPos 20, 14
  254.     Print U_Bul()
  255.     AnsiPos 20, 15
  256.     Print U_Fdl()
  257.     AnsiPos 20, 16
  258.     Print U_Ful()
  259.     AnsiPos 20, 17
  260.     Print U_LDate()
  261.     AnsiPos 65, 10
  262.     Print U_MsgWr()
  263.     AnsiPos 65, 11
  264.     Print U_MsgRd()
  265.     AnsiPos 65, 12
  266.     Print U_Logons()
  267.     Return
  268.     :LABEL009
  269.     AnsiPos 20, 10
  270.     Print "@X08........................."
  271.     AnsiPos 20, 11
  272.     Print "........................."
  273.     AnsiPos 20, 12
  274.     Print "..."
  275.     AnsiPos 20, 13
  276.     Print ".........."
  277.     AnsiPos 20, 14
  278.     Print ".........."
  279.     AnsiPos 20, 15
  280.     Print "....."
  281.     AnsiPos 20, 16
  282.     Print "....."
  283.     AnsiPos 20, 17
  284.     Print "........"
  285.     AnsiPos 65, 10
  286.     Print "....."
  287.     AnsiPos 65, 11
  288.     Print "....."
  289.     AnsiPos 65, 12
  290.     Print "...."
  291.     Return
  292.  
  293. ;------------------------------------------------------------------------------
  294. ;
  295. ; Usage report (before postprocessing)
  296. ;
  297. ; ■ Statements used :
  298. ;
  299. ;    2       End
  300. ;    1       Cls
  301. ;    1       Wait
  302. ;    26      Goto 
  303. ;    116     Let 
  304. ;    35      Print 
  305. ;    20      PrintLn 
  306. ;    11      If 
  307. ;    1       StartDisp 
  308. ;    1       InputStr 
  309. ;    6       Gosub 
  310. ;    5       Return
  311. ;    6       Delay 
  312. ;    36      AnsiPos 
  313. ;    1       GetAltUser 
  314. ;
  315. ;
  316. ; ■ Functions used :
  317. ;
  318. ;    11      +
  319. ;    1       -
  320. ;    6       ==
  321. ;    5       <
  322. ;    5       <=
  323. ;    10      >=
  324. ;    11      !
  325. ;    10      &&
  326. ;    5       ||
  327. ;    3       Upper()
  328. ;    3       Chr()
  329. ;    2       U_Name()
  330. ;    1       U_LDate()
  331. ;    1       U_Logons()
  332. ;    1       U_Ful()
  333. ;    1       U_Fdl()
  334. ;    1       U_Bdl()
  335. ;    1       U_Bul()
  336. ;    2       Inkey()
  337. ;    1       Mask_Ascii()
  338. ;    1       U_MsgRd()
  339. ;    1       U_MsgWr()
  340. ;    1       U_RecNum()
  341. ;
  342. ;------------------------------------------------------------------------------
  343. ;
  344. ; Analysis flags : R
  345. ;
  346. ; R - Read user ■ 5
  347. ;     User records are read, this may signify that someone wants to get
  348. ;     various informations about a user (for example his password), but
  349. ;     this may also be normal for a program accessing user records (for
  350. ;     example a User Editor)
  351. ;     ■ Search for : GETALTUSER
  352. ;
  353. ;------------------------------------------------------------------------------
  354. ;
  355. ; Postprocessing report
  356. ;
  357. ;    5       For/Next
  358. ;    0       While/EndWhile
  359. ;    6       If/Then or If/Then/Else
  360. ;    0       Select Case
  361. ;
  362. ;------------------------------------------------------------------------------
  363. ;                 AEGiS Corp - Break the routines, code against the machines!
  364. ;------------------------------------------------------------------------------
  365.