home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SSI!SPW4.ZIP / LOGINPW4.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-10-16  |  4KB  |  265 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.     Date     DATE001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   TSTRING005(4)
  28.     String   STRING006
  29.     Time     TIME001
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     If (Exist(PPEPath() + "LOGINPW4.CFG")) Then
  34.         FOpen 1, PPEPath() + "LOGINPW4.CFG", 0, 0
  35.     Else
  36.         SPrintLn "CONFiG FiLE NOT FOUND iN PPE PATH !!!"
  37.         Delay 40
  38.         Hangup
  39.     Endif
  40.     FGet 1, STRING001
  41.     FGet 1, TSTRING005(1)
  42.     FGet 1, TSTRING005(2)
  43.     FGet 1, TSTRING005(3)
  44.     TSTRING005(4) = TSTRING005(3) / 2
  45.     TIME001 = Time()
  46.     DATE001 = Date()
  47.     INTEGER001 = PcbNode()
  48.     INTEGER002 = Carrier()
  49.     INTEGER003 = 1
  50.     If (TSTRING005(1) == "INTERMAIL") Then
  51.         Gosub LABEL006
  52.     Endif
  53.     If (TSTRING005(1) == "FRONTDOOR") Then
  54.         Gosub LABEL007
  55.     Endif
  56.     Gosub LABEL008
  57.     :LABEL001
  58.     STRING002 = Inkey()
  59.     If (Time() == TIME001 + TSTRING005(4)) Then
  60.         Goto LABEL002
  61.     Endif
  62.     If (STRING002 == Chr(27)) Then
  63.         Gosub LABEL009
  64.     Else
  65.         Goto LABEL001
  66.     Endif
  67.     Goto LABEL003
  68.     :LABEL002
  69.     Gosub LABEL009
  70.     :LABEL003
  71.     STRING003 = Inkey()
  72.     If (Time() == TIME001 + TSTRING005(4)) Then
  73.         Goto LABEL010
  74.     Endif
  75.     If (STRING001 == STRING004) Then
  76.         Goto LABEL011
  77.     Endif
  78.     If (STRING003 == Chr(27)) Then
  79.         Goto LABEL010
  80.     Endif
  81.     If (STRING003 == Chr(13)) Then
  82.         Gosub LABEL005
  83.     Endif
  84.     If (STRING003 <> "") Then
  85.         Gosub LABEL004
  86.     Endif
  87.     Goto LABEL003
  88.     :LABEL004
  89.     If (STRING003 == Chr(8)) Then
  90.         STRING003 = "<BKS>"
  91.     Endif
  92.     STRING004 = STRING004 + Upper(STRING003)
  93.     Return
  94.     :LABEL005
  95.     If (INTEGER003 == 3) Then
  96.         Goto LABEL010
  97.     Else
  98.         INTEGER003 = INTEGER003 + 1
  99.         STRING003 = ""
  100.         STRING004 = ""
  101.     Endif
  102.     Return
  103.     :LABEL006
  104.     Cls
  105.     MPrintLn "InterMail 2.29"
  106.     MPrint "Press Escape twice for MAIL SYSTEM #1"
  107.     Return
  108.     :LABEL007
  109.     Cls
  110.     MPrintLn ""
  111.     MPrintLn "FrontDoor 2.12.SW; Shareware; Unregistered evaluation copy"
  112.     MPrintLn ""
  113.     MPrint "Press <Esc> twice for BBS"
  114.     Return
  115.     :LABEL008
  116.     If (TSTRING005(2) == "NO") Then
  117.         Return
  118.     Endif
  119.     SPrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  120.     SPrintLn "│ SYSTEM PASSWORD v4.0 DONE BY FoX OF :#* K R Y N *#: iN 1995.                │"
  121.     SPrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  122.     SPrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  123.     SPrintLn "│ Waiting for 1st ESC or timeout.                                             │"
  124.     SPrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  125.     Return
  126.     :LABEL009
  127.     If (TSTRING005(2) == "NO") Then
  128.         Return
  129.     Endif
  130.     SPrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  131.     SPrintLn "│ Waiting for 2nd ESC, password or timeout.                                   │"
  132.     SPrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  133.     Return
  134.     :LABEL010
  135.     If (TSTRING005(2) == "NO") Then
  136.         Goto LABEL012
  137.     Endif
  138.     SPrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  139.     SPrintLn "│ Time was running out or 2nd ESC was pressed. Hanging up & writing log file. │"
  140.     SPrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  141.     Goto LABEL012
  142.     :LABEL011
  143.     If (TSTRING005(2) == "NO") Then
  144.         End
  145.     Endif
  146.     SPrintLn "┌─────────────────────────────────────────────────────────────────────────────┐"
  147.     SPrintLn "│ User entered correct password. Well done.                                   │"
  148.     SPrintLn "└─────────────────────────────────────────────────────────────────────────────┘"
  149.     Delay 10
  150.     End
  151.     :LABEL012
  152.     If (STRING004 == "") Then
  153.         STRING004 = "<WiTHOUT ANY iNPUT>"
  154.     Endif
  155.     If (CDOn() == 0) Then
  156.         STRING006 = "LOCAL"
  157.     Else
  158.         STRING006 = INTEGER002
  159.     Endif
  160.     If (Exist(PPEPath() + "ERROR.LOG")) Then
  161.         FAppend 2, PPEPath() + "ERROR.LOG", 1, 2
  162.     Else
  163.         FCreate 2, PPEPath() + "ERROR.LOG", 1, 2
  164.     Endif
  165.     FPutLn 2, "FAILED TO LOGON AT [", DATE001, "][", TIME001, "] NODE [", INTEGER001, "] WiTH [", STRING006, "] BPS"
  166.     FPutLn 2, "USER INPUT : " + STRING004
  167.     FClose 2
  168.     If (TSTRING005(1) == "INTERMAIL") Then
  169.         Goto LABEL013
  170.     Endif
  171.     If (TSTRING005(1) == "FRONTDOOR") Then
  172.         Goto LABEL014
  173.     Endif
  174.     :LABEL013
  175.     Delay 20
  176.     MPrintLn ""
  177.     MPrintLn ""
  178.     MPrintLn ""
  179.     MPrintLn "Sorry we are in a MAIL PROCESSING ONLY phase !"
  180.     MPrintLn "Please HANGUP and call back later."
  181.     MPrintLn "Thank you for your call."
  182.     Goto LABEL015
  183.     :LABEL014
  184.     Delay 20
  185.     MPrintLn ""
  186.     MPrintLn ""
  187.     MPrintLn ""
  188.     MPrintLn "Processing mail only in the moment! Please try it again later!"
  189.     MPrintLn ""
  190.     MPrintLn "                  Thank you for calling !"
  191.     :LABEL015
  192.     Hangup
  193.     End
  194.  
  195. ;------------------------------------------------------------------------------
  196. ;
  197. ; Usage report (before postprocessing)
  198. ;
  199. ; ■ Statements used :
  200. ;
  201. ;    3       End
  202. ;    2       Cls
  203. ;    39      Goto 
  204. ;    16      Let 
  205. ;    21      If 
  206. ;    1       FCreate 
  207. ;    1       FOpen 
  208. ;    1       FAppend 
  209. ;    1       FClose 
  210. ;    4       FGet 
  211. ;    2       FPutLn 
  212. ;    2       Hangup
  213. ;    7       Gosub 
  214. ;    8       Return
  215. ;    4       Delay 
  216. ;    16      SPrintLn 
  217. ;    2       MPrint 
  218. ;    16      MPrintLn 
  219. ;
  220. ;
  221. ; ■ Functions used :
  222. ;
  223. ;    1       /
  224. ;    10      +
  225. ;    18      ==
  226. ;    1       <>
  227. ;    21      !
  228. ;    1       Upper()
  229. ;    4       Chr()
  230. ;    1       Date()
  231. ;    3       Time()
  232. ;    2       Inkey()
  233. ;    5       PPEPath()
  234. ;    1       PcbNode()
  235. ;    2       Exist()
  236. ;    1       Carrier()
  237. ;    1       CDOn()
  238. ;
  239. ;------------------------------------------------------------------------------
  240. ;
  241. ; Analysis flags : BM
  242. ;
  243. ; B - Brute hangup ■ 1
  244. ;     Program hangup without notification. This may be a good way to
  245. ;     disconnect a user, but if used randomly, may be very nasty
  246. ;     ■ Search for : HANGUP, DTROFF
  247. ;
  248. ; M - Send text to modem only ■ 4
  249. ;     Some informations are sent only to the modem, not to the local
  250. ;     screen, this is a well known way to make stealth backdoors, Check!
  251. ;     ■ Search for : SENDMODEM, MPRINT, MPRINTLN
  252. ;
  253. ;------------------------------------------------------------------------------
  254. ;
  255. ; Postprocessing report
  256. ;
  257. ;    0       For/Next
  258. ;    0       While/EndWhile
  259. ;    21      If/Then or If/Then/Else
  260. ;    0       Select Case
  261. ;
  262. ;------------------------------------------------------------------------------
  263. ;                 AEGiS Corp - Break the routines, code against the machines!
  264. ;------------------------------------------------------------------------------
  265.