home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / TK-DOS12.ZIP / TK-DOS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-13  |  2KB  |  168 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.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     FOpen 1, PPEPath() + "tk-dos.cfg", 0, 0
  37.     FGet 1, STRING004
  38.     FGet 1, STRING005
  39.     FGet 1, STRING006
  40.     FGet 1, STRING007
  41.     FGet 1, STRING008
  42.     FGet 1, STRING010
  43.     FGet 1, STRING011
  44.     STRING002 = "@X0F1.2"
  45.     STRING003 = "@X0Fr@X07egistered @X0Fb@X07bs @X08:@X0F " + STRING005
  46.     BOOLEAN002 = 0
  47.     If (STRING011 == "OFF") Goto LABEL001
  48.     FAppend 2, PPEPath() + "TK-DOS.LOG", 1, 3
  49.     FPutLn 2, "--░-·----░-·-─-░--─--·--─--·---─----------░-----·─--------·"
  50.     FPutLn 2, "[φ] Starting ToxicDos v1.2"
  51.     FPutLn 2, "-─--·-░-─--·--░------·-░---·--─░--─-----──·─------░--─----·"
  52.     FPutLn 2, "`-> user logged onto " + STRING005 + " at " + String(Time()) + ", " + String(Date()) + " on node # " + String(PcbNode())
  53.     FPutLn 2, "`-> Following Commands Inputed by User : "
  54.     :LABEL001
  55.     DispFile PPEPath() + "tk-login.pcb", 1
  56.     :LABEL002
  57.     If (BOOLEAN001) Goto LABEL004
  58.     Newline
  59.     Input STRING007, STRING001
  60.     FPutLn 2, STRING001
  61.     Select Case (Upper(STRING001))
  62.         Case "LOGOFF"
  63.             FClose 2
  64.             DispFile PPEPath() + "tk-bye.pcb", 1
  65.             Hangup
  66.         Case "DIR"
  67.             Newline
  68.             DispFile PPEPath() + "tk-dir.pcb", 1
  69.         Case "CLS"
  70.             Cls
  71.         Case "VER"
  72.             Newline
  73.             PrintLn "@X0Fv@X07ersion @X08: " + STRING002
  74.             PrintLn "@X0Fb@X07y @X0Fw@X07izard @X08[@X0BTOXIC KRYSTAL@X08!]"
  75.             PrintLn "" + STRING003
  76.         Case Upper(STRING006)
  77.             Newline
  78.             BOOLEAN001 = 1
  79.             FClose 2
  80.             DispStr STRING010
  81.         Case "PAGE"
  82.             Call STRING004
  83.             PageOn
  84.             INTEGER001 = 0
  85.             If (!(STRING001 == "")) STRING009 = 1
  86.         Case "NEWUSER"
  87.             Newline
  88.             BOOLEAN001 = 1
  89.             FClose 2
  90.             DispStr STRING010
  91.     End Select
  92.     :LABEL003
  93.     If (STRING009 == 1) Goto LABEL005
  94.     Goto LABEL002
  95.     :LABEL004
  96.     End
  97.     :LABEL005
  98.     Newline
  99.     Print STRING008
  100.     STRING009 = 0
  101.     Goto LABEL003
  102.  
  103. ;------------------------------------------------------------------------------
  104. ;
  105. ; Usage report (before postprocessing)
  106. ;
  107. ; ■ Statements used :
  108. ;
  109. ;    1       End
  110. ;    1       Cls
  111. ;    20      Goto 
  112. ;    8       Let 
  113. ;    1       Print 
  114. ;    3       PrintLn 
  115. ;    11      If 
  116. ;    3       DispFile 
  117. ;    1       Input 
  118. ;    1       FOpen 
  119. ;    1       FAppend 
  120. ;    3       FClose 
  121. ;    7       FGet 
  122. ;    6       FPutLn 
  123. ;    1       Hangup
  124. ;    6       Newline
  125. ;    1       Call 
  126. ;    2       DispStr 
  127. ;    1       PageOn
  128. ;
  129. ;
  130. ; ■ Functions used :
  131. ;
  132. ;    15      +
  133. ;    10      ==
  134. ;    8       !
  135. ;    8       Upper()
  136. ;    1       Date()
  137. ;    1       Time()
  138. ;    3       String()
  139. ;    5       PPEPath()
  140. ;    1       PcbNode()
  141. ;
  142. ;------------------------------------------------------------------------------
  143. ;
  144. ; Analysis flags : BC
  145. ;
  146. ; B - Brute hangup ■ 1
  147. ;     Program hangup without notification. This may be a good way to
  148. ;     disconnect a user, but if used randomly, may be very nasty
  149. ;     ■ Search for : HANGUP, DTROFF
  150. ;
  151. ; C - Call child PPE ■ 3
  152. ;     This is usually normal, but may be a tricky way to launch some
  153. ;     sysop-only commands.
  154. ;     ■ Search for : CALL
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Postprocessing report
  159. ;
  160. ;    0       For/Next
  161. ;    0       While/EndWhile
  162. ;    0       If/Then or If/Then/Else
  163. ;    1       Select Case
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;                 AEGiS Corp - Break the routines, code against the machines!
  167. ;------------------------------------------------------------------------------
  168.