home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / AGSBF10.ZIP / AGSTHD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-11-24  |  8KB  |  323 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  TINTEGER008(1)
  27.     Integer  TINTEGER009(1)
  28.     Integer  INTEGER010
  29.     Integer  TINTEGER011(1)
  30.     Integer  TINTEGER012(1)
  31.     Real     REAL001
  32.     Real     REAL002
  33.     Real     REAL003
  34.     String   STRING001
  35.     String   STRING002
  36.     String   STRING003
  37.     String   STRING004
  38.     String   STRING005
  39.     String   STRING006
  40.     String   STRING007
  41.     String   STRING008
  42.     String   STRING009
  43.     String   STRING010
  44.     String   STRING011
  45.     String   STRING012
  46.     String   TSTRING013(1)
  47.     String   STRING014
  48.  
  49. ;------------------------------------------------------------------------------
  50.  
  51.     STRING002 = "AcaDe v1.03"
  52.     STRING003 = "<┤EGiS Corp Anti-Decompilation Engine."
  53.     STRING004 = "(C)1994 By Lone Runner/AGS"
  54.     STRING005 = ""
  55.     STRING006 = "Sorry dude, this time PPLD will not do the job... :)"
  56.     INTEGER003 = 1
  57.     INTEGER004 = 1
  58.     Newline
  59.     STRING012 = "UPDOWN82" + Chr(13) + Chr(27)
  60.     INTEGER007 = ReadLine(PPEPath() + "NUSERS.DAT", 1)
  61.     FClose -1
  62.     Print "@X0FP@X09L@X01eaSe @X0FW@X09a@X01iT @X08[@X01"
  63.     For INTEGER006 = 1 To INTEGER007
  64.         Print "∙"
  65.     Next
  66.     Print "@X08]@X09"
  67.     Backup INTEGER006
  68.     Redim TINTEGER008, INTEGER007
  69.     Redim TINTEGER012, INTEGER007
  70.     Redim TINTEGER009, INTEGER007
  71.     Redim TINTEGER011, INTEGER007
  72.     Redim TSTRING013, INTEGER007
  73.     FOpen 1, PPEPath() + "REGD.DAT", 0, 0
  74.     For INTEGER010 = 1 To INTEGER007
  75.         FGet 1, TSTRING013(INTEGER010)
  76.         TSTRING013(INTEGER010) = Trim(Upper(TSTRING013(INTEGER010)), " ")
  77.         STRING007 = TSTRING013(INTEGER010)
  78.         Gosub LABEL011
  79.         FOpen 2, STRING010, 0, 0
  80.         Print "■"
  81.         :LABEL001
  82.         FGet 2, STRING014
  83.         If (STRING014 == "[iS_HaTiNG]") Then
  84.             :LABEL002
  85.             FGet 2, STRING014
  86.             If (STRING014 <> "[eND]") TINTEGER009(INTEGER010) = TINTEGER009(INTEGER010) + 1
  87.             If (STRING014 <> "[eND]") Goto LABEL002
  88.         Endif
  89.         If (STRING014 == "[iS_HaTeD_BY]") Then
  90.             :LABEL003
  91.             FGet 2, STRING014
  92.             If (STRING014 <> "[eND]") TINTEGER008(INTEGER010) = TINTEGER008(INTEGER010) + 1
  93.             If (STRING014 <> "[eND]") Goto LABEL003
  94.         Endif
  95.         If (STRING014 <> "[eND_DaTa]") Goto LABEL001
  96.         FClose 2
  97.         REAL001 = INTEGER007
  98.         REAL003 = TINTEGER009(INTEGER010) + TINTEGER008(INTEGER010)
  99.         REAL002 = (100 / ((REAL001 - 1) * 2)) * REAL003
  100.         TINTEGER012(INTEGER010) = REAL002
  101.     Next
  102.     FClose 1
  103.     :LABEL004
  104.     Cls
  105.     DispFile PPEPath() + "AGSTHDMN.PCB", 0
  106.     Gosub LABEL010
  107.     STRING011 = "#"
  108.     :LABEL005
  109.     STRING011 = Inkey()
  110.     If (InStr(STRING012, STRING011) == 0) Goto LABEL005
  111.     If ((STRING011 == "UP") || (STRING011 == "8")) Then
  112.         INTEGER004 = INTEGER003
  113.         If (INTEGER003 == 1) Then
  114.             INTEGER003 = 4
  115.             Goto LABEL006
  116.         Endif
  117.         INTEGER003 = INTEGER003 - 1
  118.         :LABEL006
  119.         Gosub LABEL010
  120.     Endif
  121.     If ((STRING011 == "DOWN") || (STRING011 == "2")) Then
  122.         INTEGER004 = INTEGER003
  123.         If (INTEGER003 == 4) Then
  124.             INTEGER003 = 1
  125.             Goto LABEL007
  126.         Endif
  127.         INTEGER003 = INTEGER003 + 1
  128.         :LABEL007
  129.         Gosub LABEL010
  130.     Endif
  131.     If (STRING011 == Chr(13)) Goto LABEL008
  132.     If (STRING011 == Chr(27)) Goto LABEL009
  133.     Goto LABEL005
  134.     :LABEL008
  135.     DefColor
  136.     Cls
  137.     If (INTEGER003 == 1) Goto LABEL013
  138.     If (INTEGER003 == 2) Goto LABEL012
  139.     If (INTEGER003 == 3) Goto LABEL014
  140.     If (INTEGER003 == 4) Goto LABEL009
  141.     :LABEL009
  142.     DefColor
  143.     End
  144.     :LABEL010
  145.     AnsiPos 3, 1 + INTEGER004
  146.     Print "@X07" + ScrText(3, 1 + INTEGER004, 29, 0)
  147.     AnsiPos 3, 1 + INTEGER003
  148.     Print "@X1F" + ScrText(3, 1 + INTEGER003, 29, 0)
  149.     Return
  150.     :LABEL011
  151.     STRING007 = Upper(STRING007)
  152.     INTEGER002 = 0
  153.     For INTEGER001 = 1 To Len(STRING007)
  154.         INTEGER002 = INTEGER002 + Asc(Mid(STRING007, INTEGER001, 1))
  155.     Next
  156.     STRING009 = I2S(INTEGER002, 16)
  157.     STRING010 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING007, " "), 3) + Right(Trim(STRING007, " "), 4) + Left(STRING009, 1) + "." + Mid(STRING009, 2, 3), " ")
  158.     Return
  159.     :LABEL012
  160.     Cls
  161.     DispFile PPEPath() + "AGSTHDAR.HTR", 0
  162.     Sort TINTEGER009, TINTEGER011
  163.     For INTEGER010 = 1 To 10
  164.         STRING008 = TSTRING013(TINTEGER011(INTEGER007 - INTEGER010 + 1))
  165.         Gosub LABEL015
  166.         AnsiPos 6, INTEGER010 + 2
  167.         Print STRING008
  168.         STRING008 = String(TINTEGER009(TINTEGER011(INTEGER007 - INTEGER010 + 1)))
  169.         Gosub LABEL015
  170.         AnsiPos 39, INTEGER010 + 2
  171.         Print STRING008
  172.         INTEGER005 = TINTEGER009(TINTEGER011(INTEGER007 - INTEGER010 + 1)) * 32
  173.         INTEGER005 = INTEGER005 / TINTEGER009(TINTEGER011(INTEGER007))
  174.         AnsiPos 45, INTEGER010 + 2
  175.         Color 9
  176.         For INTEGER006 = 1 To INTEGER005
  177.             Print "▀"
  178.         Next
  179.     Next
  180.     AnsiPos 1, 16
  181.     Wait
  182.     Goto LABEL004
  183.     :LABEL013
  184.     Cls
  185.     DispFile PPEPath() + "AGSTHDAR.HTD", 0
  186.     Sort TINTEGER008, TINTEGER011
  187.     For INTEGER010 = 1 To 10
  188.         STRING008 = TSTRING013(TINTEGER011(INTEGER007 - INTEGER010 + 1))
  189.         Gosub LABEL015
  190.         AnsiPos 6, INTEGER010 + 2
  191.         Print STRING008
  192.         STRING008 = String(TINTEGER008(TINTEGER011(INTEGER007 - INTEGER010 + 1)))
  193.         Gosub LABEL015
  194.         AnsiPos 39, INTEGER010 + 2
  195.         Print STRING008
  196.         INTEGER005 = TINTEGER008(TINTEGER011(INTEGER007 - INTEGER010 + 1)) * 32
  197.         INTEGER005 = INTEGER005 / TINTEGER008(TINTEGER011(INTEGER007))
  198.         AnsiPos 45, INTEGER010 + 2
  199.         Color 9
  200.         For INTEGER006 = 1 To INTEGER005
  201.             Print "▀"
  202.         Next
  203.     Next
  204.     AnsiPos 1, 16
  205.     Wait
  206.     Goto LABEL004
  207.     :LABEL014
  208.     Cls
  209.     DispFile PPEPath() + "AGSTHDAR.HOM", 0
  210.     Sort TINTEGER012, TINTEGER011
  211.     For INTEGER010 = 1 To 10
  212.         STRING008 = TSTRING013(TINTEGER011(INTEGER007 - INTEGER010 + 1))
  213.         Gosub LABEL015
  214.         AnsiPos 6, INTEGER010 + 2
  215.         Print STRING008
  216.         STRING008 = String(TINTEGER012(TINTEGER011(INTEGER007 - INTEGER010 + 1))) + "%"
  217.         Gosub LABEL015
  218.         AnsiPos 39, INTEGER010 + 2
  219.         Print STRING008
  220.         INTEGER005 = TINTEGER012(TINTEGER011(INTEGER007 - INTEGER010 + 1)) * 32
  221.         INTEGER005 = INTEGER005 / 100
  222.         AnsiPos 45, INTEGER010 + 2
  223.         Color 9
  224.         For INTEGER006 = 1 To INTEGER005
  225.             Print "▀"
  226.         Next
  227.     Next
  228.     AnsiPos 1, 16
  229.     Wait
  230.     Goto LABEL004
  231.     :LABEL015
  232.     STRING008 = Mid(STRING008, 1, 30)
  233.     STRING008 = Replace(STRING008, "0", "o")
  234.     STRING008 = Replace(STRING008, "A", "a")
  235.     STRING008 = Replace(STRING008, "E", "e")
  236.     STRING008 = Replace(STRING008, "I", "i")
  237.     STRING008 = Replace(STRING008, "O", "o")
  238.     STRING008 = Replace(STRING008, "U", "u")
  239.     STRING008 = Mid(STRING008, 1, 2) + "@X0F" + Mid(STRING008, 3, Len(STRING008) - 3)
  240.     STRING008 = Mid(STRING008, 1, 1) + "@X09" + Mid(STRING008, 2, Len(STRING008) - 2)
  241.     STRING008 = "@X01" + STRING008
  242.     STRING008 = Trim(STRING008, " ")
  243.     Return
  244.  
  245. ;------------------------------------------------------------------------------
  246. ;
  247. ; Usage report (before postprocessing)
  248. ;
  249. ; ■ Statements used :
  250. ;
  251. ;    1       End
  252. ;    5       Cls
  253. ;    3       Wait
  254. ;    3       Color 
  255. ;    40      Goto 
  256. ;    72      Let 
  257. ;    15      Print 
  258. ;    27      If 
  259. ;    4       DispFile 
  260. ;    2       FOpen 
  261. ;    3       FClose 
  262. ;    4       FGet 
  263. ;    2       DefColor
  264. ;    10      Gosub 
  265. ;    3       Return
  266. ;    1       Newline
  267. ;    14      AnsiPos 
  268. ;    1       Backup 
  269. ;    5       Redim 
  270. ;    3       Sort 
  271. ;
  272. ;
  273. ; ■ Functions used :
  274. ;
  275. ;    1       -
  276. ;    5       *
  277. ;    4       /
  278. ;    248     +
  279. ;    13      -
  280. ;    15      ==
  281. ;    5       <>
  282. ;    9       <
  283. ;    9       <=
  284. ;    18      >=
  285. ;    15      !
  286. ;    18      &&
  287. ;    11      ||
  288. ;    4       Len(
  289. ;    2       Upper()
  290. ;    7       Mid()
  291. ;    2       Left()
  292. ;    1       Right()
  293. ;    152     Chr()
  294. ;    1       Asc()
  295. ;    1       InStr()
  296. ;    5       Trim()
  297. ;    1       U_Name()
  298. ;    6       Replace()
  299. ;    1       Inkey()
  300. ;    4       String()
  301. ;    7       PPEPath()
  302. ;    1       ReadLine()
  303. ;    1       CallId()
  304. ;    1       I2S()
  305. ;    2       ScrText()
  306. ;
  307. ;------------------------------------------------------------------------------
  308. ;
  309. ; Analysis flags : No flag
  310. ;
  311. ;------------------------------------------------------------------------------
  312. ;
  313. ; Postprocessing report
  314. ;
  315. ;    9       For/Next
  316. ;    0       While/EndWhile
  317. ;    6       If/Then or If/Then/Else
  318. ;    0       Select Case
  319. ;
  320. ;------------------------------------------------------------------------------
  321. ;                 AEGiS Corp - Break the routines, code against the machines!
  322. ;------------------------------------------------------------------------------
  323.