home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GNX!PL20.ZIP / PROLOGON.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-07-08  |  5KB  |  212 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.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING003 = ""
  34.     INTEGER001 = 1
  35.     Cls
  36.     FOpen 1, PPEPath() + "PROLOGON.CNF", 0, 0
  37.     FDefIn 1
  38.     FDGet INTEGER002
  39.     FClose 1
  40.     :LABEL001
  41.     STRING002 = Random(5) + 1
  42.     INTEGER003 = Random(INTEGER002) + 1
  43.     If (INTEGER003 > INTEGER002) Goto LABEL001
  44.     If (INTEGER003 == 1) FOpen 1, PPEPath() + "LOGON1.cnf", 0, 0
  45.     If (INTEGER003 == 2) FOpen 1, PPEPath() + "LOGON2.cnf", 0, 0
  46.     If (INTEGER003 == 3) FOpen 1, PPEPath() + "LOGON3.cnf", 0, 0
  47.     If (INTEGER003 == 4) FOpen 1, PPEPath() + "LOGON4.cnf", 0, 0
  48.     If (INTEGER003 == 5) FOpen 1, PPEPath() + "LOGON5.cnf", 0, 0
  49.     If (INTEGER003 == 6) FOpen 1, PPEPath() + "LOGON6.cnf", 0, 0
  50.     If (INTEGER003 == 7) FOpen 1, PPEPath() + "LOGON7.cnf", 0, 0
  51.     If (INTEGER003 == 8) FOpen 1, PPEPath() + "LOGON8.cnf", 0, 0
  52.     If (INTEGER003 == 9) FOpen 1, PPEPath() + "LOGON9.cnf", 0, 0
  53.     If (INTEGER003 == 10) FOpen 1, PPEPath() + "LOGON10.cnf", 0, 0
  54.     If (INTEGER003 == 11) FOpen 1, PPEPath() + "LOGON11.cnf", 0, 0
  55.     If (INTEGER003 == 12) FOpen 1, PPEPath() + "LOGON12.cnf", 0, 0
  56.     If (INTEGER003 == 13) FOpen 1, PPEPath() + "LOGON13.cnf", 0, 0
  57.     If (INTEGER003 == 14) FOpen 1, PPEPath() + "LOGON14.cnf", 0, 0
  58.     If (INTEGER003 == 15) FOpen 1, PPEPath() + "LOGON15.cnf", 0, 0
  59.     If (INTEGER003 == 16) FOpen 1, PPEPath() + "LOGON16.cnf", 0, 0
  60.     If (INTEGER003 == 17) FOpen 1, PPEPath() + "LOGON17.cnf", 0, 0
  61.     If (INTEGER003 == 18) FOpen 1, PPEPath() + "LOGON18.cnf", 0, 0
  62.     If (INTEGER003 == 19) FOpen 1, PPEPath() + "LOGON19.cnf", 0, 0
  63.     If (INTEGER003 == 20) FOpen 1, PPEPath() + "LOGON20.cnf", 0, 0
  64.     FGet 1, INTEGER004
  65.     FGet 1, INTEGER005
  66.     FGet 1, INTEGER006
  67.     FGet 1, INTEGER007
  68.     Print "@POFF@"
  69.     If (INTEGER003 == 1) DispFile PPEPath() + "logon1.pcb", 0
  70.     If (INTEGER003 == 2) DispFile PPEPath() + "logon2.pcb", 0
  71.     If (INTEGER003 == 3) DispFile PPEPath() + "logon3.pcb", 0
  72.     If (INTEGER003 == 4) DispFile PPEPath() + "logon4.pcb", 0
  73.     If (INTEGER003 == 5) DispFile PPEPath() + "logon5.pcb", 0
  74.     If (INTEGER003 == 6) DispFile PPEPath() + "logon6.pcb", 0
  75.     If (INTEGER003 == 7) DispFile PPEPath() + "logon7.pcb", 0
  76.     If (INTEGER003 == 8) DispFile PPEPath() + "logon8.pcb", 0
  77.     If (INTEGER003 == 9) DispFile PPEPath() + "logon9.pcb", 0
  78.     If (INTEGER003 == 10) DispFile PPEPath() + "logon10.pcb", 0
  79.     If (INTEGER003 == 11) DispFile PPEPath() + "logon11.pcb", 0
  80.     If (INTEGER003 == 12) DispFile PPEPath() + "logon12.pcb", 0
  81.     If (INTEGER003 == 13) DispFile PPEPath() + "logon13.pcb", 0
  82.     If (INTEGER003 == 14) DispFile PPEPath() + "logon14.pcb", 0
  83.     If (INTEGER003 == 15) DispFile PPEPath() + "logon15.pcb", 0
  84.     If (INTEGER003 == 16) DispFile PPEPath() + "logon16.pcb", 0
  85.     If (INTEGER003 == 17) DispFile PPEPath() + "logon17.pcb", 0
  86.     If (INTEGER003 == 18) DispFile PPEPath() + "logon18.pcb", 0
  87.     If (INTEGER003 == 19) DispFile PPEPath() + "logon19.pcb", 0
  88.     If (INTEGER003 == 20) DispFile PPEPath() + "logon20.pcb", 0
  89.     Delay 2
  90.     AnsiPos 1, 1
  91.     STRING004 = "@X1F"
  92.     PrintLn STRING004 + " Prologon 2.0 by Steelflight[GNX] │  Enter your Handle                         @X07"
  93.     FClose 1
  94.     FCreate 1, PPEPath() + "PROnum.dat" + String(PcbNode()), 1, 0
  95.     FPutLn 1, INTEGER003
  96.     FPutLn 1, STRING004
  97.     AnsiPos INTEGER004, INTEGER005
  98.     FClose 1
  99.     :LABEL002
  100.     AnsiPos INTEGER004, INTEGER005
  101.     STRING003 = ""
  102.     InputStr "_", STRING003, 8, 24, Mask_Ascii(), 8
  103.     If (U_RecNum(STRING003) == -1) Goto LABEL005
  104.     If (U_RecNum(STRING003) > -1) Goto LABEL004
  105.     :LABEL003
  106.     Goto LABEL002
  107.     :LABEL004
  108.     AnsiPos INTEGER004, INTEGER005
  109.     If (STRING003 == "") Goto LABEL002
  110.     KbdStuff STRING003
  111.     End
  112.     :LABEL005
  113.     AnsiPos 38, 1
  114.     If (STRING003 == "") Goto LABEL002
  115.     Print STRING004 + "User not found! Logon as new?"
  116.     AnsiPos 68, 1
  117.     Print STRING004 + " YES"
  118.     :LABEL006
  119.     STRING001 = Inkey()
  120.     If (STRING001 == "Y") Goto LABEL008
  121.     If (STRING001 == "N") Goto LABEL007
  122.     If (STRING001 == "y") Goto LABEL008
  123.     If (STRING001 == "n") Goto LABEL007
  124.     If (STRING001 == Chr(13)) Goto LABEL009
  125.     Goto LABEL006
  126.     :LABEL007
  127.     AnsiPos 68, 1
  128.     Print STRING004 + " NO "
  129.     INTEGER001 = 2
  130.     Goto LABEL006
  131.     :LABEL008
  132.     AnsiPos 68, 1
  133.     Print STRING004 + " YES"
  134.     INTEGER001 = 1
  135.     Goto LABEL006
  136.     :LABEL009
  137.     If (STRING003 == "") Goto LABEL002
  138.     If (INTEGER001 == "1") Goto LABEL010
  139.     If (INTEGER001 == "2") KbdStuff Chr(13)
  140.     End
  141.     AnsiPos INTEGER004, INTEGER005
  142.     Print "@X08User not found!"
  143.     Delay 10
  144.     AnsiPos INTEGER004, INTEGER005
  145.     Print "                           "
  146.     AnsiPos INTEGER004, INTEGER005
  147.     Goto LABEL003
  148.     :LABEL010
  149.     Cls
  150.     Print "@X07@CLS@"
  151.     KbdStuff STRING003 + Chr(13)
  152.     End
  153.  
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Usage report (before postprocessing)
  157. ;
  158. ; ■ Statements used :
  159. ;
  160. ;    3       End
  161. ;    2       Cls
  162. ;    17      Goto 
  163. ;    9       Let 
  164. ;    8       Print 
  165. ;    1       PrintLn 
  166. ;    53      If 
  167. ;    20      DispFile 
  168. ;    1       FCreate 
  169. ;    21      FOpen 
  170. ;    3       FClose 
  171. ;    4       FGet 
  172. ;    2       FPutLn 
  173. ;    1       InputStr 
  174. ;    2       Delay 
  175. ;    3       KbdStuff 
  176. ;    11      AnsiPos 
  177. ;    1       FDefIn 
  178. ;    1       FDGet 
  179. ;
  180. ;
  181. ; ■ Functions used :
  182. ;
  183. ;    2       -
  184. ;    51      +
  185. ;    51      ==
  186. ;    2       >
  187. ;    3       Chr()
  188. ;    2       Random()
  189. ;    1       Inkey()
  190. ;    1       String()
  191. ;    1       Mask_Ascii()
  192. ;    42      PPEPath()
  193. ;    1       PcbNode()
  194. ;    2       U_RecNum()
  195. ;
  196. ;------------------------------------------------------------------------------
  197. ;
  198. ; Analysis flags : No flag
  199. ;
  200. ;------------------------------------------------------------------------------
  201. ;
  202. ; Postprocessing report
  203. ;
  204. ;    0       For/Next
  205. ;    0       While/EndWhile
  206. ;    0       If/Then or If/Then/Else
  207. ;    0       Select Case
  208. ;
  209. ;------------------------------------------------------------------------------
  210. ;                 AEGiS Corp - Break the routines, code against the machines!
  211. ;------------------------------------------------------------------------------
  212.