home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / TS-BLACK.ZIP / BLACK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1980-01-09  |  4KB  |  282 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.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     Declare  Procedure PROC001()
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING002 = ReadLine(PPEPath() + "BLACK.CFG", 1)
  37.     STRING003 = ReadLine(PPEPath() + "BLACK.CFG", 2)
  38.     STRING004 = ReadLine(PPEPath() + "BLACK.CFG", 3)
  39.     STRING005 = ReadLine(PPEPath() + "BLACK.CFG", 4)
  40.     STRING006 = ReadLine(PPEPath() + "BLACK.CFG", 5)
  41.     STRING007 = ReadLine(PPEPath() + "BLACK.CFG", 6)
  42.     :LABEL001
  43.     Cls
  44.     DispFile PPEPath() + "BLACK.PCB", 0
  45.     AnsiPos 8, 4
  46.     Print "@X0F BLACKLiST    ViΣW      FuCkoFF   «=-=- Blacklist A Lamer"
  47.     AnsiPos 8, 4
  48.     Print STRING002
  49.     PROC001()
  50.     INTEGER001 = 1
  51.     STRING001 = ""
  52.     While (STRING001 <> Chr(13)) Do
  53.         STRING001 = ""
  54.         While (STRING001 == "") Do
  55.             STRING001 = Inkey()
  56.         EndWhile
  57.         AnsiPos STRING005, STRING006
  58.         If (STRING001 == "RIGHT") Inc INTEGER001
  59.         If (STRING001 == "LEFT") Dec INTEGER001
  60.         If (STRING001 == "UP") Inc INTEGER001
  61.         If (STRING001 == "DOWN") Dec INTEGER001
  62.         If (INTEGER001 == 0) INTEGER001 = 3
  63.         If (INTEGER001 == 4) INTEGER001 = 1
  64.         AnsiPos STRING005, STRING006
  65.         If (INTEGER001 == 1) Print STRING002
  66.         PROC001()
  67.         AnsiPos STRING005, STRING006
  68.         If (INTEGER001 == 2) Print STRING003
  69.         PROC001()
  70.         AnsiPos STRING005, STRING006
  71.         If (INTEGER001 == 3) Print STRING004
  72.         PROC001()
  73.     EndWhile
  74.     If (INTEGER001 == 1) Then
  75.         Goto LABEL002
  76.     Endif
  77.     If (INTEGER001 == 2) Then
  78.         Goto LABEL004
  79.     Endif
  80.     If (INTEGER001 == 3) Then
  81.         Goto LABEL006
  82.     Endif
  83.     INTEGER001 = 0
  84.     :LABEL002
  85.     INTEGER001 = INTEGER001 + 1
  86.     Cls
  87.     STRING011 = ReadLine(PPEPath() + "BLACK.CFG", 7)
  88.     STRING012 = ReadLine(PPEPath() + "BLACK.CFG", 8)
  89.     DispFile PPEPath() + "PASS.PCB", 1
  90.     InputStr STRING012 + "@X07", STRING010, 14, 15, Mask_Ascii(), 2 + 128 + 8 + 256
  91.     If (STRING010 == STRING011) Then
  92.         AnsiPos 1, 8
  93.         DispStr "@X0A@X08CoDeD By SnaRf@X07"
  94.         Delay 2
  95.         AnsiPos 1, 8
  96.         DispStr "@X02@X07CoDeD By SnaRf@X07"
  97.         Delay 2
  98.         AnsiPos 1, 8
  99.         DispStr "@X03@X0FCoDeD By SnaRf"
  100.         Delay 15
  101.         Goto LABEL003
  102.     Else
  103.         Select Case (INTEGER001)
  104.             Case 1
  105.                 PrintLn "Thats Rong Man!"
  106.                 PrintLn ""
  107.                 Goto LABEL002
  108.             Case 2
  109.                 PrintLn "Please Enter The Right Password"
  110.                 PrintLn ""
  111.                 Goto LABEL002
  112.             Case 3
  113.                 PrintLn "Another Lamer Trying To Act Smart!!"
  114.                 Goto LABEL001
  115.             Endif
  116.     End Select
  117.     :LABEL003
  118.     Cls
  119.     DispFile PPEPath() + "BLACK2.PCB", 1
  120.     AnsiPos 32, 6
  121.     InputStr "_", STRING008, 7, 30, " 0123456789!#$%^&*()=_+`~qwertyuiop[]\|asdfghjkl;'zxcvbnm,./<>?:{}åäöÅÄÖQWERTYUIOPASDFGHJKLZXCVBN""M", 0
  122.     If (STRING008 == "") Then
  123.         Goto LABEL001
  124.     Endif
  125.     If (STRING008 == "SNARF ROCKS!!") Then
  126.         Goto LABEL005
  127.     Endif
  128.     STRING008 = StripAtx(STRING008)
  129.     STRING009 = STRING008
  130.     STRING009 = Space(32) + STRING009 + Space(32)
  131.     INTEGER001 = Len(STRING009) - 32
  132.     FAppend 1, STRING007, 1, 3
  133.     FPutLn 1, STRING008
  134.     FClose 1
  135.     Newlines 1
  136.     Goto LABEL001
  137.  
  138.     EndProc
  139.  
  140.     :LABEL004
  141.     Cls
  142.     DispFile STRING007, 0
  143.     Wait
  144.     Goto LABEL001
  145.     :LABEL005
  146.     Cls
  147.     AnsiPos 1, 1
  148.     Print "@X0FYes, Yes...I know I rock. Now Go And Blacklist Someone Usefull!!"
  149.     Delay 20
  150.     AnsiPos 31, 3
  151.     Print "@X08>=-FRoM SnaRf-=<"
  152.     Delay 2
  153.     AnsiPos 31, 3
  154.     Print "@X07>=-@X07FRoM SnaRf-=<"
  155.     Delay 2
  156.     AnsiPos 31, 3
  157.     Print "@X0F>=-@X0FFRoM SnaRf-=<"
  158.     Delay 30
  159.     Goto LABEL001
  160.     :LABEL006
  161.     AnsiPos 29, 5
  162.     Print "K"
  163.     Delay 1
  164.     AnsiPos 29, 5
  165.     Print "@X07K@X08o"
  166.     Delay 1
  167.     AnsiPos 29, 5
  168.     Print "@X0FK@X07o@X08D"
  169.     Delay 1
  170.     AnsiPos 29, 5
  171.     Print "@X07K@X0Fo@X07D@X08e"
  172.     Delay 1
  173.     AnsiPos 29, 5
  174.     Print "K@X07o@X0FD@X07e@X08D"
  175.     Delay 1
  176.     AnsiPos 29, 5
  177.     Print " d@X07D@X0Fe@X07D@X08 B"
  178.     Delay 1
  179.     AnsiPos 29, 5
  180.     Print "  D@X07e@X0FD @X07B@X08y"
  181.     Delay 1
  182.     AnsiPos 29, 5
  183.     Print "   e@X07D @X0FB@X07y"
  184.     Delay 1
  185.     AnsiPos 29, 5
  186.     Print "    @X08D @X07B@X0Fy"
  187.     Delay 1
  188.     AnsiPos 29, 5
  189.     Print "      @X08B@X07y"
  190.     Delay 1
  191.     AnsiPos 29, 5
  192.     Print "       @X08y"
  193.     Delay 1
  194.     AnsiPos 29, 5
  195.     Print "        "
  196.     Delay 3
  197.     AnsiPos 38, 5
  198.     Print "SnaRf"
  199.     Delay 2
  200.     AnsiPos 38, 5
  201.     Print "@X07SnaRf"
  202.     Delay 2
  203.     AnsiPos 38, 5
  204.     Print "@X0FSnaRf"
  205.     Delay 10
  206.     End
  207.  
  208. ;------------------------------------------------------------------------------
  209.  
  210.     Procedure PROC001()
  211.  
  212.     AnsiPos STRING003, STRING004
  213.     Color 0
  214.     Print " "
  215.     Backup 1
  216.  
  217.     EndProc
  218.  
  219.  
  220. ;------------------------------------------------------------------------------
  221. ;
  222. ; Usage report (before postprocessing)
  223. ;
  224. ; ■ Statements used :
  225. ;
  226. ;    1       End
  227. ;    5       Cls
  228. ;    1       Wait
  229. ;    1       Color 
  230. ;    28      Goto 
  231. ;    20      Let 
  232. ;    25      Print 
  233. ;    5       PrintLn 
  234. ;    20      If 
  235. ;    4       DispFile 
  236. ;    1       FAppend 
  237. ;    1       FClose 
  238. ;    1       FPutLn 
  239. ;    2       InputStr 
  240. ;    22      Delay 
  241. ;    2       Inc 
  242. ;    2       Dec 
  243. ;    1       Newlines 
  244. ;    3       DispStr 
  245. ;    30      AnsiPos 
  246. ;    1       Backup 
  247. ;    2       EndProc
  248. ;
  249. ;
  250. ; ■ Functions used :
  251. ;
  252. ;    18      +
  253. ;    1       -
  254. ;    19      ==
  255. ;    1       <>
  256. ;    11      !
  257. ;    1       Len(
  258. ;    2       Space()
  259. ;    1       Chr()
  260. ;    1       StripAtx()
  261. ;    1       Inkey()
  262. ;    1       Mask_Ascii()
  263. ;    11      PPEPath()
  264. ;    8       ReadLine()
  265. ;
  266. ;------------------------------------------------------------------------------
  267. ;
  268. ; Analysis flags : No flag
  269. ;
  270. ;------------------------------------------------------------------------------
  271. ;
  272. ; Postprocessing report
  273. ;
  274. ;    0       For/Next
  275. ;    2       While/EndWhile
  276. ;    6       If/Then or If/Then/Else
  277. ;    1       Select Case
  278. ;
  279. ;------------------------------------------------------------------------------
  280. ;                 AEGiS Corp - Break the routines, code against the machines!
  281. ;------------------------------------------------------------------------------
  282.