home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TSCV06.ZIP / NUPCHECK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-06  |  4KB  |  261 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.     String   STRING011
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING001 = "0.6"
  42.     STRING008 = ReadLine(PPEPath() + "GENEREL.CFG", 3)
  43.     STRING009 = ReadLine(PPEPath() + "GENEREL.CFG", 4)
  44.     If (Upper(STRING008) == "Y") Then
  45.         Print "@QOFF@"
  46.     Endif
  47.     If (Upper(STRING009) == "Y") Then
  48.         Print "@POFF@"
  49.     Endif
  50.     FOpen 5, PPEPath() + "NUPMAIN.CFG", 0, 0
  51.     FGet 5, STRING002
  52.     FGet 5, INTEGER001
  53.     FGet 5, STRING004
  54.     Tokenize STRING004
  55.     GetToken INTEGER003
  56.     GetToken INTEGER004
  57.     FClose 5
  58.     PrintLn "@X0ENup'n'vote v" + STRING001 + " - [UNREGISTRED]"
  59.     DispFile PPEPath() + "NUPMAIN.", 0
  60.     :LABEL001
  61.     AnsiPos INTEGER003, INTEGER004
  62.     Print "                "
  63.     AnsiPos INTEGER003, INTEGER004
  64.     InputStr "_", STRING003, 9, 16, Mask_Ascii(), 1
  65.     FAppend 3, PPEPath() + "TSC.LOG", 2, 0
  66.     FPutLn 3, U_Name() + " has tried with [" + Upper(STRING003) + "]"
  67.     FClose 3
  68.     INTEGER002 = INTEGER002 + 1
  69.     If (Upper(STRING002) == Upper(STRING003)) Then
  70.         Goto LABEL002
  71.     Endif
  72.     If (INTEGER002 < INTEGER001) Then
  73.         Goto LABEL001
  74.     Endif
  75.     Goto LABEL003
  76.     :LABEL002
  77.     Cls
  78.     DispFile PPEPath() + "WELCOME.", 0
  79.     FAppend 3, PPEPath() + "TSC.LOG", 2, 0
  80.     FPutLn 3, U_Name() + " has been cleared!"
  81.     FClose 3
  82.     Goto LABEL004
  83.     :LABEL003
  84.     Cls
  85.     DispFile PPEPath() + "FUCKOFF.", 0
  86.     FAppend 3, PPEPath() + "TSC.LOG", 2, 0
  87.     FPutLn 3, U_Name() + " has achieved total lameness!"
  88.     FClose 3
  89.     Hangup
  90.     Return
  91.     :LABEL004
  92.     Cls
  93.     DispFile PPEPath() + "SYS-ONLY.", 0
  94.     FOpen 5, PPEPath() + "SYS-ONLY.CFG", 0, 0
  95.     FGet 5, INTEGER006
  96.     FAppend 4, PPEPath() + "USERS.APL", 2, 3
  97.     FPutLn 4, Upper(U_Name())
  98.     FClose 4
  99.     Tokenize U_Name()
  100.     STRING005 = GetToken()
  101.     STRING005 = STRING005 + GetToken()
  102.     FCreate 4, PPEPath() + Left(STRING005, 8) + ".SYS", 1, 3
  103.     For INTEGER008 = 1 To INTEGER006
  104.         FGet 5, STRING004
  105.         Tokenize STRING004
  106.         GetToken INTEGER003
  107.         GetToken INTEGER004
  108.         GetToken INTEGER007
  109.         AnsiPos INTEGER003, INTEGER004
  110.         STRING011 = ""
  111.         InputStr "_", STRING011, 8, INTEGER007, Mask_Ascii(), 0
  112.         FPutLn 4, STRING011
  113.     Next
  114.     FClose 5
  115.     FClose 4
  116.     Cls
  117.     DispFile PPEPath() + "ELITEZ.", 0
  118.     FOpen 5, PPEPath() + "ELITEZ.CFG", 0, 0
  119.     FGet 5, INTEGER006
  120.     Tokenize U_Name()
  121.     STRING005 = GetToken()
  122.     STRING005 = STRING005 + GetToken()
  123.     FCreate 4, PPEPath() + Left(STRING005, 8) + ".ALL", 1, 3
  124.     For INTEGER008 = 1 To INTEGER006
  125.         FGet 5, STRING004
  126.         Tokenize STRING004
  127.         GetToken INTEGER003
  128.         GetToken INTEGER004
  129.         GetToken INTEGER007
  130.         AnsiPos INTEGER003, INTEGER004
  131.         STRING011 = ""
  132.         InputStr "_", STRING011, 8, INTEGER007, Mask_Ascii(), 0
  133.         FPutLn 4, STRING011
  134.     Next
  135.     FClose 5
  136.     FClose 4
  137.     FOpen 5, PPEPath() + "MESSAGE.CFG", 0, 0
  138.     FGet 5, INTEGER005
  139.     FGet 5, STRING006
  140.     FGet 5, STRING007
  141.     FClose 5
  142.     If (Upper(ReadLine(PPEPath() + "GENEREL.CFG", 11)) == "Y") Then
  143.         Message INTEGER005, "All", STRING006, "New user " + U_Name(), "N", 0, 0, 1, PPEPath() + STRING007
  144.     Endif
  145.     If (Upper(ReadLine(PPEPath() + "GENEREL.CFG", 9)) == "Y") Then
  146.         FOpen 5, PPEPath() + "ONELINER.DAT", 0, 0
  147.         FCreate 4, PPEPath() + "ONELINER.$$$", 2, 3
  148.         FGet 5, STRING010
  149.         If (Upper((ReadLine(PPEPath() + "ONELINER.CNF", 3) == "Y"))) Then
  150.             FAppend 3, PPEPath() + "ONELINER.OLD", 2, 3
  151.             FPutLn 3, STRING010
  152.             FClose 3
  153.         Endif
  154.         FGet 5, STRING010
  155.         :LABEL005
  156.         If (Ferr(5)) Goto LABEL006
  157.         FPutLn 4, STRING010
  158.         FGet 5, STRING010
  159.         Goto LABEL005
  160.         :LABEL006
  161.         FClose 5
  162.         FPutLn 4, U_Name() + " has applied for access"
  163.         FClose 4
  164.         Delete PPEPath() + "ONELINER.DAT"
  165.         Rename PPEPath() + "ONELINER.$$$", PPEPath() + "ONELINER.DAT"
  166.         FOpen 5, PPEPath() + "ONELINER.JOK", 0, 0
  167.         FCreate 4, PPEPath() + "ONELINER.$$$", 2, 3
  168.         FGet 5, STRING010
  169.         If (Upper((ReadLine(PPEPath() + "ONELINER.CNF", 2) == "Y"))) Then
  170.             FAppend 3, PPEPath() + "ONELINER.JOL", 2, 3
  171.             FPutLn 3, STRING010
  172.             FClose 3
  173.         Endif
  174.         FGet 5, STRING010
  175.         :LABEL007
  176.         If (Ferr(5)) Goto LABEL008
  177.         FPutLn 4, STRING010
  178.         FGet 5, STRING010
  179.         Goto LABEL007
  180.         :LABEL008
  181.         FClose 5
  182.         FPutLn 4, "@X09/\/\-> @X0FN@X07up'@X0DN'@X0FV@X07ote"
  183.         FClose 4
  184.         Delete PPEPath() + "ONELINER.JOK"
  185.         Rename PPEPath() + "ONELINER.$$$", PPEPath() + "ONELINER.JOK"
  186.     Endif
  187.     AnsiPos 1, 25
  188.     End
  189.  
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Usage report (before postprocessing)
  193. ;
  194. ; ■ Statements used :
  195. ;
  196. ;    1       End
  197. ;    4       Cls
  198. ;    20      Goto 
  199. ;    14      Let 
  200. ;    3       Print 
  201. ;    1       PrintLn 
  202. ;    12      If 
  203. ;    5       DispFile 
  204. ;    4       FCreate 
  205. ;    6       FOpen 
  206. ;    6       FAppend 
  207. ;    16      FClose 
  208. ;    16      FGet 
  209. ;    12      FPutLn 
  210. ;    1       Hangup
  211. ;    2       Delete 
  212. ;    3       InputStr 
  213. ;    1       Return
  214. ;    5       Tokenize 
  215. ;    8       GetToken 
  216. ;    5       AnsiPos 
  217. ;    1       Message 
  218. ;    2       Rename 
  219. ;
  220. ;
  221. ; ■ Functions used :
  222. ;
  223. ;    50      +
  224. ;    7       ==
  225. ;    3       <
  226. ;    2       <=
  227. ;    4       >=
  228. ;    12      !
  229. ;    4       &&
  230. ;    2       ||
  231. ;    10      Upper()
  232. ;    2       Left()
  233. ;    2       Ferr()
  234. ;    8       U_Name()
  235. ;    3       Mask_Ascii()
  236. ;    34      PPEPath()
  237. ;    6       ReadLine()
  238. ;    4       GetToken()
  239. ;
  240. ;------------------------------------------------------------------------------
  241. ;
  242. ; Analysis flags : B
  243. ;
  244. ; B - Brute hangup ■ 1
  245. ;     Program hangup without notification. This may be a good way to
  246. ;     disconnect a user, but if used randomly, may be very nasty
  247. ;     ■ Search for : HANGUP, DTROFF
  248. ;
  249. ;------------------------------------------------------------------------------
  250. ;
  251. ; Postprocessing report
  252. ;
  253. ;    2       For/Next
  254. ;    0       While/EndWhile
  255. ;    8       If/Then or If/Then/Else
  256. ;    0       Select Case
  257. ;
  258. ;------------------------------------------------------------------------------
  259. ;                 AEGiS Corp - Break the routines, code against the machines!
  260. ;------------------------------------------------------------------------------
  261.