home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / WONDIR15.ZIP / WONDIR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-22  |  2KB  |  155 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.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     String   STRING001
  28.     String   STRING002
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     BOOLEAN001 = 0
  33.     STRING001 = Chr(70) + Chr(73) + Chr(78) + Chr(83) + Chr(84) + Chr(69) + Chr(82)
  34.     BOOLEAN002 = 1
  35.     INTEGER001 = 5
  36.     If (Exist(PPEPath() + "wondir.key")) Then
  37.         STRING002 = ReadLine(PCBDat(), 94)
  38.         INTEGER003 = Len(STRING002)
  39.         INTEGER006 = INTEGER003
  40.         INTEGER004 = 0
  41.         For INTEGER002 = 1 To INTEGER003
  42.             INTEGER004 = INTEGER004 + Asc(Left(STRING002, 1)) * 921
  43.             STRING002 = Right(STRING002, INTEGER006)
  44.             INTEGER006 = INTEGER006 - 1
  45.         Next
  46.         INTEGER004 = INTEGER004 - INTEGER003
  47.         INTEGER005 = ReadLine(PPEPath() + "wondir.key", 1)
  48.         If (INTEGER004 == INTEGER005) Then
  49.             STRING001 = Chr(82) + Chr(65) + Chr(78) + Chr(68) + Chr(89)
  50.             If (Exist(PPEPath() + "wondir.cfg")) Then
  51.                 BOOLEAN002 = Left(ReadLine(PPEPath() + "wondir.cfg", 7), 1)
  52.                 INTEGER001 = Left(ReadLine(PPEPath() + "wondir.cfg", 8), 2)
  53.             Endif
  54.         Endif
  55.     Endif
  56.     If (BOOLEAN002) Gosub LABEL001
  57.     Tokenize STRING001
  58.     Call PPEPath() + "wondir1.ppe"
  59.     End
  60.     :LABEL001
  61.     GetUser
  62.     If (U_Fdl() - INTEGER001 >= U_Ful()) Then
  63.         DispFile PPEPath() + "dlhog", 1
  64.         If (GrafMode() == "R") Then
  65.             Delay (5 * 182) / 10
  66.             Goto LABEL002
  67.         Endif
  68.         Delay (3 * 182) / 10
  69.         :LABEL002
  70.         MPrintLn "!|*"
  71.         Cls
  72.     Endif
  73.     Return
  74.  
  75. ;------------------------------------------------------------------------------
  76. ;
  77. ; Usage report (before postprocessing)
  78. ;
  79. ; ■ Statements used :
  80. ;
  81. ;    1       End
  82. ;    1       Cls
  83. ;    8       Goto 
  84. ;    18      Let 
  85. ;    7       If 
  86. ;    1       DispFile 
  87. ;    1       GetUser
  88. ;    1       Gosub 
  89. ;    1       Return
  90. ;    2       Delay 
  91. ;    1       Tokenize 
  92. ;    1       Call 
  93. ;    1       MPrintLn 
  94. ;
  95. ;
  96. ; ■ Functions used :
  97. ;
  98. ;    3       *
  99. ;    2       /
  100. ;    19      +
  101. ;    3       -
  102. ;    2       ==
  103. ;    1       <
  104. ;    1       <=
  105. ;    3       >=
  106. ;    6       !
  107. ;    2       &&
  108. ;    1       ||
  109. ;    1       Len(
  110. ;    3       Left()
  111. ;    1       Right()
  112. ;    12      Chr()
  113. ;    1       Asc()
  114. ;    1       U_Ful()
  115. ;    1       U_Fdl()
  116. ;    1       PCBDat()
  117. ;    7       PPEPath()
  118. ;    4       ReadLine()
  119. ;    2       Exist()
  120. ;    1       GrafMode()
  121. ;
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Analysis flags : MCd
  125. ;
  126. ; M - Send text to modem only ■ 4
  127. ;     Some informations are sent only to the modem, not to the local
  128. ;     screen, this is a well known way to make stealth backdoors, Check!
  129. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  130. ;
  131. ; C - Call child PPE ■ 3
  132. ;     This is usually normal, but may be a tricky way to launch some
  133. ;     sysop-only commands.
  134. ;     ■ Search for : CALL
  135. ;
  136. ; d - Access PCBOARD.DAT ■ 2
  137. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  138. ;     for many PPE so they can find various informations on the system
  139. ;     (system paths, max number of lines in messages, ...) but it may also
  140. ;     be a way to gather vital informations.
  141. ;     ■ Search for : PCBDAT()
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Postprocessing report
  146. ;
  147. ;    1       For/Next
  148. ;    0       While/EndWhile
  149. ;    5       If/Then or If/Then/Else
  150. ;    0       Select Case
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;                 AEGiS Corp - Break the routines, code against the machines!
  154. ;------------------------------------------------------------------------------
  155.