home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / LOGON-X.ZIP / PASSWORD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-08-18  |  4KB  |  259 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.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     String   STRING001
  28.     String   STRING002
  29.     String   TSTRING003(4)
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     TSTRING003(0) = "/"
  37.     TSTRING003(1) = "-"
  38.     TSTRING003(2) = "\"
  39.     TSTRING003(3) = "|"
  40.     GetUser
  41.     INTEGER007 = U_Sec
  42.     AnsiPos 53, 15
  43.     Print "@X08" + String(INTEGER007)
  44.     Delay 4
  45.     AnsiPos 53, 15
  46.     Print "@X07" + String(INTEGER007)
  47.     Delay 4
  48.     AnsiPos 53, 15
  49.     Print "@X0F" + String(INTEGER007)
  50.     Delay 4
  51.     STRING004 = U_City
  52.     INTEGER002 = 29
  53.     INTEGER003 = 17
  54.     INTEGER004 = 7
  55.     Gosub LABEL005
  56.     Delay 14
  57.     INTEGER002 = 33
  58.     INTEGER003 = 9
  59.     STRING001 = "@X0Fe"
  60.     Gosub LABEL004
  61.     INTEGER002 = INTEGER002 + 1
  62.     STRING001 = "@X09N"
  63.     Gosub LABEL004
  64.     INTEGER002 = INTEGER002 + 1
  65.     STRING001 = "@X01T"
  66.     Gosub LABEL004
  67.     INTEGER002 = INTEGER002 + 1
  68.     STRING001 = "e"
  69.     Gosub LABEL004
  70.     INTEGER002 = INTEGER002 + 1
  71.     STRING001 = "R"
  72.     Gosub LABEL004
  73.     INTEGER002 = INTEGER002 + 1
  74.     STRING001 = " "
  75.     Gosub LABEL004
  76.     INTEGER002 = INTEGER002 + 1
  77.     STRING001 = "u"
  78.     Gosub LABEL004
  79.     INTEGER002 = INTEGER002 + 1
  80.     STRING001 = "R"
  81.     Gosub LABEL004
  82.     INTEGER002 = INTEGER002 + 1
  83.     STRING001 = " "
  84.     Gosub LABEL004
  85.     INTEGER002 = INTEGER002 + 1
  86.     STRING001 = "P"
  87.     Gosub LABEL004
  88.     INTEGER002 = INTEGER002 + 1
  89.     STRING001 = "a"
  90.     Gosub LABEL004
  91.     INTEGER002 = INTEGER002 + 1
  92.     STRING001 = "S"
  93.     Gosub LABEL004
  94.     INTEGER002 = INTEGER002 + 1
  95.     STRING001 = "S"
  96.     Gosub LABEL004
  97.     INTEGER002 = INTEGER002 + 1
  98.     STRING001 = "W"
  99.     Gosub LABEL004
  100.     INTEGER002 = INTEGER002 + 1
  101.     STRING001 = "o"
  102.     Gosub LABEL004
  103.     INTEGER002 = INTEGER002 + 1
  104.     STRING001 = "@X09R"
  105.     Gosub LABEL004
  106.     INTEGER002 = INTEGER002 + 1
  107.     STRING001 = "@X0FD"
  108.     Gosub LABEL004
  109.     INTEGER002 = INTEGER002 + 1
  110.     STRING001 = "@X08:"
  111.     Gosub LABEL004
  112.     Delay 7
  113.     INTEGER002 = 39
  114.     INTEGER003 = 13
  115.     Print "@X0F"
  116.     AnsiPos 39, 13
  117.     BOOLEAN001 = 1
  118.     :LABEL001
  119.     STRING001 = ""
  120.     Gosub LABEL004
  121.     STRING001 = Inkey()
  122.     If ((((STRING001 == "UP") || (STRING001 == "DOWN")) || (STRING001 == "LEFT")) || (STRING001 == "RIGHT")) Goto LABEL002
  123.     If ((STRING001 == Chr(8)) && !(STRING002 == "")) Then
  124.         AnsiPos INTEGER002, INTEGER003
  125.         Print "@X0F·"
  126.         STRING002 = Left(STRING002, Len(STRING002) - 1)
  127.         INTEGER002 = INTEGER002 - 1
  128.         STRING001 = " "
  129.     Else
  130.         If (STRING001 == Chr(8)) Goto LABEL002
  131.         If (STRING001 == Chr(13)) Goto LABEL003
  132.         If (Len(STRING002) == 17) Goto LABEL002
  133.         If (STRING001 == "") Goto LABEL002
  134.         STRING002 = STRING002 + STRING001
  135.         STRING001 = "¡"
  136.         Gosub LABEL004
  137.         INTEGER002 = INTEGER002 + 1
  138.         STRING001 = ""
  139.     Endif
  140.     :LABEL002
  141.     Goto LABEL001
  142.     :LABEL003
  143.     KbdStuff Upper(STRING002) + Chr(13)
  144.     End
  145.     :LABEL004
  146.     If ((INTEGER001 == 0) && (BOOLEAN001 == 0)) Then
  147.         AnsiPos INTEGER002, INTEGER003
  148.         Print "/"
  149.         Delay 1
  150.         AnsiPos INTEGER002, INTEGER003
  151.         Print "-"
  152.         Delay 1
  153.         INTEGER001 = 1 - INTEGER001
  154.     ElseIf ((INTEGER001 == 1) && (BOOLEAN001 == 0)) Then
  155.         AnsiPos INTEGER002, INTEGER003
  156.         Print "\"
  157.         Delay 1
  158.         AnsiPos INTEGER002, INTEGER003
  159.         Print "|"
  160.         Delay 1
  161.         INTEGER001 = 1 - INTEGER001
  162.     ElseIf (BOOLEAN001 == 1) Then
  163.         AnsiPos INTEGER002, INTEGER003
  164.         Print TSTRING003(INTEGER001)
  165.         Delay 1
  166.         INTEGER001 = INTEGER001 + 1
  167.         If (INTEGER001 == 4) INTEGER001 = 0
  168.     Endif
  169.     AnsiPos INTEGER002, INTEGER003
  170.     Print STRING001
  171.     Delay 1
  172.     Return
  173.     :LABEL005
  174.     For INTEGER006 = 1 To Len(STRING004)
  175.         AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  176.         If (INTEGER001 == 0) Then
  177.             Print "/"
  178.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  179.             Print "-"
  180.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  181.         Else
  182.             Print "\"
  183.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  184.             Print "|"
  185.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  186.         Endif
  187.         INTEGER001 = 1 - INTEGER001
  188.         If (INTEGER004 == 7) Then
  189.             STRING005 = "@X07"
  190.             STRING006 = "@X08"
  191.         Else
  192.             STRING005 = "@X0" + String(INTEGER004 + 8)
  193.             STRING006 = "@X0" + String(INTEGER004)
  194.         Endif
  195.         If (INTEGER005 == 0) Print "@X0F"
  196.         If (INTEGER005 == 1) Print STRING005
  197.         If (INTEGER005 == 2) Print STRING006
  198.         Print Mid(STRING004, INTEGER006, 1)
  199.         INTEGER005 = INTEGER005 + 1
  200.         If (INTEGER005 == 3) INTEGER005 = 2
  201.         If (Mid(STRING004, INTEGER006, 1) == " ") INTEGER005 = 0
  202.     Next
  203.     Return
  204.  
  205. ;------------------------------------------------------------------------------
  206. ;
  207. ; Usage report (before postprocessing)
  208. ;
  209. ; ■ Statements used :
  210. ;
  211. ;    1       End
  212. ;    19      Goto 
  213. ;    72      Let 
  214. ;    19      Print 
  215. ;    18      If 
  216. ;    1       GetUser
  217. ;    21      Gosub 
  218. ;    2       Return
  219. ;    11      Delay 
  220. ;    1       KbdStuff 
  221. ;    16      AnsiPos 
  222. ;
  223. ;
  224. ; ■ Functions used :
  225. ;
  226. ;    34      +
  227. ;    10      -
  228. ;    23      ==
  229. ;    1       <
  230. ;    1       <=
  231. ;    2       >=
  232. ;    8       !
  233. ;    5       &&
  234. ;    4       ||
  235. ;    4       Len(
  236. ;    1       Upper()
  237. ;    2       Mid()
  238. ;    1       Left()
  239. ;    4       Chr()
  240. ;    1       Inkey()
  241. ;    5       String()
  242. ;
  243. ;------------------------------------------------------------------------------
  244. ;
  245. ; Analysis flags : No flag
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Postprocessing report
  250. ;
  251. ;    1       For/Next
  252. ;    0       While/EndWhile
  253. ;    6       If/Then or If/Then/Else
  254. ;    0       Select Case
  255. ;
  256. ;------------------------------------------------------------------------------
  257. ;                 AEGiS Corp - Break the routines, code against the machines!
  258. ;------------------------------------------------------------------------------
  259.