home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SMK_APP1.ZIP / TR-APP.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-04-25  |  2KB  |  171 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.2O (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.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     String   STRING001
  36.     String   STRING002
  37.     String   STRING003
  38.     String   STRING004
  39.     String   STRING005
  40.     String   STRING006
  41.     String   STRING007
  42.  
  43. ;------------------------------------------------------------------------------
  44.  
  45.     FOpen 1, PPEPath() + "TR-APP.CFG", 0, 0
  46.     FGet 1, INTEGER001
  47.     FGet 1, INTEGER002
  48.     FGet 1, INTEGER003
  49.     FGet 1, INTEGER004
  50.     FGet 1, INTEGER005
  51.     FGet 1, INTEGER006
  52.     FGet 1, INTEGER007
  53.     FGet 1, INTEGER008
  54.     FGet 1, INTEGER009
  55.     FGet 1, INTEGER010
  56.     FGet 1, INTEGER011
  57.     FGet 1, INTEGER012
  58.     FGet 1, INTEGER013
  59.     FGet 1, INTEGER014
  60.     FGet 1, INTEGER015
  61.     FGet 1, INTEGER016
  62.     FClose 1
  63.     DispFile PPEPath() + "TR-APP.PCB", 1
  64.     :LABEL001
  65.     AnsiPos INTEGER009, INTEGER010 - "1"
  66.     InputStr "_", STRING005, 15, 20, Mask_Ascii(), 8
  67.     If (STRING005 == "") Goto LABEL001
  68.     :LABEL002
  69.     AnsiPos INTEGER003, INTEGER004 - "1"
  70.     InputStr "_", STRING002, 15, 20, Mask_Ascii(), 4096
  71.     If (STRING002 == "") Goto LABEL002
  72.     :LABEL003
  73.     AnsiPos INTEGER001, INTEGER002 - "1"
  74.     InputStr "_", STRING001, 15, 12, Mask_Pwd(), 8 + 1
  75.     If (STRING001 == "") Goto LABEL003
  76.     If (STRING001 == STRING005) Goto LABEL007
  77.     AnsiPos INTEGER013, INTEGER014 - "1"
  78.     Print "@X0FRetry@X07..."
  79.     AnsiPos INTEGER015, INTEGER016 - "1"
  80.     InputStr "_", STRING007, 15, 12, Mask_Pwd(), 8 + 1
  81.     If (STRING007 == STRING001) Goto LABEL004
  82.     AnsiPos INTEGER013, INTEGER014 - "1"
  83.     Print "        "
  84.     Goto LABEL003
  85.     :LABEL004
  86.     AnsiPos INTEGER005, INTEGER006 - "1"
  87.     InputStr "_", STRING003, 15, 10, Mask_Num(), 8
  88.     If (STRING003 == "") Goto LABEL004
  89.     :LABEL005
  90.     AnsiPos INTEGER007, INTEGER008 - "1"
  91.     InputStr "_", STRING004, 15, 10, Mask_Num(), 8
  92.     If (STRING004 == "") Goto LABEL005
  93.     :LABEL006
  94.     AnsiPos INTEGER011, INTEGER012 - "1"
  95.     InputStr "_", STRING006, 15, 1, "YyNn", 16384
  96.     If (STRING006 == "") Goto LABEL006
  97.     If (Exist(PPEPath() + "USR-INFO.TMP")) Delete PPEPath() + "USR-INFO.TMP"
  98.     FCreate 1, PPEPath() + "USR-INFO.TMP", 1, 0
  99.     FPutLn 1, STRING001
  100.     FPutLn 1, STRING001
  101.     FPutLn 1, STRING002
  102.     FPutLn 1, STRING003
  103.     FPutLn 1, STRING004
  104.     FPutLn 1, "REAL NAME : " + STRING005
  105.     FPutLn 1, STRING006
  106.     FClose 1
  107.     KbdFile PPEPath() + "USR-INFO.TMP"
  108.     Delete PPEPath() + "USR-INFO.TMP"
  109.     Print "@CLS@"
  110.     Goto LABEL008
  111.     :LABEL007
  112.     AnsiPos INTEGER013, INTEGER014 - "1"
  113.     Print "@X03nocando!"
  114.     Delay 6
  115.     AnsiPos INTEGER013, INTEGER014 - "1"
  116.     Print "        "
  117.     Goto LABEL003
  118.     :LABEL008
  119.     End
  120.  
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Usage report (before postprocessing)
  124. ;
  125. ; ■ Statements used :
  126. ;
  127. ;    1       End
  128. ;    17      Goto 
  129. ;    5       Print 
  130. ;    9       If 
  131. ;    1       DispFile 
  132. ;    1       FCreate 
  133. ;    1       FOpen 
  134. ;    2       FClose 
  135. ;    16      FGet 
  136. ;    7       FPutLn 
  137. ;    2       Delete 
  138. ;    7       InputStr 
  139. ;    1       Delay 
  140. ;    1       KbdFile 
  141. ;    11      AnsiPos 
  142. ;
  143. ;
  144. ; ■ Functions used :
  145. ;
  146. ;    10      +
  147. ;    11      -
  148. ;    8       ==
  149. ;    2       Mask_Pwd()
  150. ;    2       Mask_Num()
  151. ;    2       Mask_Ascii()
  152. ;    7       PPEPath()
  153. ;    1       Exist()
  154. ;
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Analysis flags : No flag
  158. ;
  159. ;------------------------------------------------------------------------------
  160. ;
  161. ; Postprocessing report
  162. ;
  163. ;    0       For/Next
  164. ;    0       While/EndWhile
  165. ;    0       If/Then or If/Then/Else
  166. ;    0       Select Case
  167. ;
  168. ;------------------------------------------------------------------------------
  169. ;                 AEGiS Corp - Break the routines, code against the machines!
  170. ;------------------------------------------------------------------------------
  171.