home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAPCP01.ZIP / LOGIN122 / LOGIN.PPX < prev    next >
Text File  |  1995-09-03  |  11KB  |  353 lines
  1. ;------------------------------------------------------------------------------
  2. ; PPLX 1.3O                              (C)1995 - Lone Runner / AEGiS CoRP'95 
  3. ;------------------------------------------------------------------------------
  4. ; PPE 3.1O (crypted) - Analysis OFF
  5. ;------------------------------------------------------------------------------
  6.  
  7.     Date     DATE001
  8.     Integer  INTEGER001
  9.     Integer  INTEGER002
  10.     Integer  INTEGER003
  11.     Integer  INTEGER004
  12.     Integer  TABLEINTEGER005(1)
  13.     Integer  TABLEINTEGER006(1)
  14.     Boolean  BOOLEAN001
  15.     Boolean  BOOLEAN002
  16.     String   STRING001
  17.     String   STRING002
  18.     String   STRING003
  19.     String   STRING004
  20.     String   STRING005
  21.     String   STRING006
  22.     String   STRING007
  23.     String   STRING008
  24.     String   STRING009
  25.     String   STRING010
  26.     String   STRING011
  27.     String   STRING012
  28.     String   STRING013
  29.     String   STRING014
  30.     String   STRING015
  31.     String   STRING016
  32.     String   STRING017
  33.     String   STRING018
  34.     String   STRING019
  35.     String   STRING020
  36.     String   STRING021
  37.     String   STRING022
  38.     String   STRING023
  39.     String   STRING024
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     STRING019 = PpePath() + "!LOGIN!.Key"
  44.     If (Exist(STRING019)) Goto LABEL000
  45.     Goto LABEL001
  46. :LABEL000
  47.     FOpen 3, STRING019, 0, 2
  48.     FRead 3, STRING020, 20
  49.     FRead 3, STRING021, 40
  50.     FRead 3, STRING022, 60
  51.     FCloseAll
  52. :LABEL001
  53.     STRING018 = Len(STRING022) / 2
  54.     STRING023 = String(Asc(Mid(STRING021, STRING018, 3))) + String(Asc(Right(STRING022, 3))) + String(Asc(Mid(STRING022, 4, 8)))
  55.     STRING009 = 0
  56.     INTEGER004 = 0
  57.     BOOLEAN001 = 0
  58.     BOOLEAN002 = ((GrafMode() == "G") || (GrafMode() == "R"))
  59.     STRING011 = Chr(13)
  60.     STRING012 = Chr(10) + Chr(13)
  61.     STRING007 = ""
  62.     STRING014 = ""
  63.     STRING015 = ""
  64.     STRING016 = ""
  65.     STRING013 = "NO_ANSI.ASC"
  66.     STRING017 = "00h"
  67.     STRING008 = ""
  68.     STRING010 = ""
  69.     STRING001 = TokenStr()
  70.     Tokenize STRING001
  71.     If (!(TokCount() < 1)) Goto LABEL002
  72.     STRING003 = "NO CONFIG FILE SPECIFIED ON LOGIN COMMAND LINE"
  73.     Gosub LABEL003
  74.     Hangup
  75. :LABEL002
  76.     GetToken STRING002
  77.     If (Exist(PpePath() + STRING002)) Goto LABEL004
  78.     STRING003 = "LOGIN CONFIG FILE NOT FOUND IN PPE DIRECTORY"
  79.     Gosub LABEL003
  80.     Hangup
  81. :LABEL004
  82.     FOpen 1, PpePath() + STRING002, 0, 0
  83.     FGet 1, INTEGER002
  84.     If (!(INTEGER002 < 1)) Goto LABEL005
  85.     STRING003 = "LINE 1 OF LOGIN CONFIG FILE IS NOT AN INTEGER"
  86.     Gosub LABEL003
  87.     Hangup
  88. :LABEL005
  89.     If ((INTEGER002 > 20)) INTEGER002 = 20
  90.     FGet 1, STRING006
  91.     If (((STRING006 <> "YES") && (STRING006 <> "yes"))) STRING006 = "NO"
  92.     FClose 1
  93.     INTEGER001 = 1 + Random(INTEGER002 - 1)
  94.     INTEGER003 = 2 + 5 * INTEGER001 - 4
  95.     STRING005 = ReadLine(PpePath() + STRING002, INTEGER003)
  96.     TABLEINTEGER005(0) = ReadLine(PpePath() + STRING002, INTEGER003 + 1)
  97.     TABLEINTEGER005(1) = ReadLine(PpePath() + STRING002, INTEGER003 + 2)
  98.     TABLEINTEGER006(0) = ReadLine(PpePath() + STRING002, INTEGER003 + 3)
  99.     TABLEINTEGER006(1) = ReadLine(PpePath() + STRING002, INTEGER003 + 4)
  100.     If (!((TABLEINTEGER005(0) < 0) || (TABLEINTEGER005(0) > 67))) Goto LABEL006
  101.     BOOLEAN001 = 1
  102.     STRING003 = "BAD HANDLE SCREEN COLUMN COORDINATE:" + String(TABLEINTEGER005(0))
  103.     Gosub LABEL003
  104.     Goto LABEL007
  105. :LABEL006
  106.     If (!((TABLEINTEGER005(1) < 1) || (TABLEINTEGER005(1) > 22))) Goto LABEL008
  107.     BOOLEAN001 = 1
  108.     STRING003 = "BAD HANDLE SCREEN ROW COORDINATE:" + String(TABLEINTEGER005(1))
  109.     Gosub LABEL003
  110.     Goto LABEL007
  111. :LABEL008
  112.     If (!((TABLEINTEGER006(0) < 0) || (TABLEINTEGER006(0) > 67))) Goto LABEL009
  113.     BOOLEAN001 = 1
  114.     STRING003 = "BAD PASSWORD SCREEN COLUMN COORDINATE:" + String(TABLEINTEGER006(0))
  115.     Gosub LABEL003
  116.     Goto LABEL007
  117. :LABEL009
  118.     If (!((TABLEINTEGER006(1) < 0) || (TABLEINTEGER006(1) > 22))) Goto LABEL010
  119.     BOOLEAN001 = 1
  120.     STRING003 = "BAD SCREEN ROW COORDINATE:" + String(TABLEINTEGER006(1))
  121.     Gosub LABEL003
  122.     Goto LABEL007
  123. :LABEL010
  124.     If (!BOOLEAN002) STRING005 = STRING013
  125.     If (!Exist(PpePath() + STRING005)) Goto LABEL011
  126.     DispFile PpePath() + STRING005, 4 + 2 + 1
  127.     If (!(STRING020 <> STRING023)) Goto LABEL012
  128.     Gosub LABEL013
  129. :LABEL012
  130.     Goto LABEL014
  131. :LABEL011
  132.     BOOLEAN001 = 1
  133.     STRING003 = "COULD NOT FIND LOGON FILE - " + STRING005
  134.     Gosub LABEL003
  135.     Goto LABEL007
  136. :LABEL014
  137.     If ((STRING006 == "NO")) Goto LABEL015
  138. :LABEL007
  139.     If (!(STRING009 == 3)) Goto LABEL016
  140.     If (!(BOOLEAN002 && Exist(PpePath() + "DENIED.ANS"))) Goto LABEL017
  141.     DispFile PpePath() + "DENIED.ANS", 0
  142.     Delay 182
  143.     Goto LABEL018
  144. :LABEL017
  145.     Cls
  146.     INTEGER004 = 1
  147. :LABEL020
  148.     If (!(((1 < 0) && (INTEGER004 >= 9)) || ((1 >= 0) && (INTEGER004 <= 9)))) Goto LABEL019
  149.     PrintLn ""
  150.     INTEGER004 = INTEGER004 + 1
  151.     Goto LABEL020
  152. :LABEL019
  153.     PrintLn Space(15) + "@X0CAccess Denied - Excessive Invalid User ID Attempts!@X07"
  154. :LABEL018
  155.     Hangup
  156. :LABEL016
  157.     If (!(BOOLEAN002 && !BOOLEAN001)) Goto LABEL021
  158.     AnsiPos TABLEINTEGER005(0), TABLEINTEGER005(1)
  159.     InputStr "", STRING007, STRING017, 25, Mask_Ascii(), 1024 + 8
  160.     Goto LABEL022
  161. :LABEL021
  162.     InputStr "What is your First and Last name", STRING007, 14, 25, Mask_Ascii(), 1024 + 8 + 256 + 128
  163. :LABEL022
  164.     If (!(Len(STRING007) < 3)) Goto LABEL023
  165.     STRING007 = ""
  166.     STRING009 = STRING009 + 1
  167.     Goto LABEL007
  168. :LABEL023
  169.     STRING010 = Trim(STRING007, Chr(32))
  170.     STRING007 = STRING010
  171.     STRING010 = ""
  172.     INTEGER004 = InStr(STRING007, Chr(32))
  173.     If (!(INTEGER004 == 0)) Goto LABEL024
  174.     STRING014 = STRING007 + "   "
  175.     Goto LABEL025
  176. :LABEL024
  177.     STRING014 = STRING007 + " "
  178. :LABEL025
  179.     INTEGER004 = 0
  180.     INTEGER004 = U_RecNum(STRING007)
  181.     If (!(INTEGER004 == -1)) Goto LABEL026
  182.     Cls
  183.     STRING014 = STRING014 + " " + STRING011
  184.     Goto LABEL027
  185. :LABEL026
  186.     If (!(INTEGER004 == 0)) Goto LABEL028
  187.     If (AnsiOn()) AnsiPos 0, 22
  188.     STRING003 = "User record number out of bounds"
  189.     Gosub LABEL003
  190.     Hangup
  191. :LABEL028
  192.     INTEGER004 = 0
  193.     If (!(BOOLEAN002 && !BOOLEAN001)) Goto LABEL029
  194.     AnsiPos TABLEINTEGER006(0), TABLEINTEGER006(1)
  195.     InputStr "", STRING008, STRING017, 13, Mask_Pwd(), 1024 + 1 + 8
  196.     Goto LABEL030
  197. :LABEL029
  198.     InputStr "What is your password", STRING008, 14, 13, Mask_Pwd(), 1024 + 1 + 8 + 256 + 128
  199. :LABEL030
  200.     STRING010 = Trim(STRING008, Chr(32))
  201.     STRING008 = STRING010
  202.     STRING010 = ""
  203.     STRING015 = STRING008 + STRING011
  204.     If (AnsiOn()) AnsiPos 0, 22
  205. :LABEL027
  206.     ShowOff
  207.     KbdStuff STRING014 + STRING015
  208.     ShowOn
  209.     Cls
  210.     Goto LABEL015
  211. :LABEL003
  212.     STRING004 = ReadLine(PcbDat(), 30)
  213.     FOpen 2, STRING004, 2, 2
  214.     STRING010 = String(Date()) + " (" + String(Time()) + ") (" + "@NODE@" + ") " + STRING007
  215.     Gosub LABEL031
  216.     FPut 2, STRING010
  217.     FPut 2, Space(62) + STRING012
  218.     STRING010 = "LOGIN PPE ERROR: " + STRING003
  219.     Gosub LABEL031
  220.     FPut 2, STRING010
  221.     FPut 2, Space(62) + STRING012
  222.     STRING010 = "**************************************************************"
  223.     If (!BOOLEAN001) Goto LABEL032
  224.     FPut 2, STRING010
  225.     FClose 2
  226.     Goto LABEL033
  227. :LABEL032
  228.     Cls
  229.     PrintLn "@X0CFATAL ERROR@X07:" + STRING003
  230.     PrintLn ""
  231.     PrintLn "@X0EFAIL SAFE TRIPPED... @X0FSHUTTING SYSTEM DOWN...@X07"
  232.     PrintLn ""
  233.     PrintLn "Notify SysOp - If possible!"
  234.     FPut 2, "CALLER OFF ABNORMALLY"
  235.     FPut 2, STRING010
  236.     FClose 2
  237.     FClose 1
  238.     Hangup
  239. :LABEL033
  240.     Return
  241. :LABEL031
  242.     If (!(Len(STRING010) > 62)) Goto LABEL034
  243.     STRING010 = Left(STRING010, 62) + STRING012
  244.     Goto LABEL035
  245. :LABEL034
  246.     STRING010 = STRING010 + Space(62 - Len(STRING010)) + STRING012
  247. :LABEL035
  248.     Return
  249. :LABEL015
  250.     End
  251. :LABEL013
  252.     DATE001 = "12-30-99"
  253.     STRING024 = "12/30/99"
  254.     If (!(Date() > DATE001)) Goto LABEL036
  255.     Goto LABEL037
  256.     Goto LABEL038
  257. :LABEL036
  258.     If (!(Date() < DATE001)) Goto LABEL038
  259.     Goto LABEL038
  260. :LABEL038
  261.     AnsiPos 1, 23
  262.     Return
  263. :LABEL037
  264.     AnsiPos 1, 23
  265.     Delay 250
  266.     Return
  267.  
  268. ;------------------------------------------------------------------------------
  269. ;
  270. ; Statements used :
  271. ;
  272. ;    1       End
  273. ;    4       Cls
  274. ;    44      Goto 
  275. ;    68      Let 
  276. ;    9       PrintLn 
  277. ;    29      If 
  278. ;    2       DispFile 
  279. ;    3       FOpen 
  280. ;    4       FClose 
  281. ;    2       FGet 
  282. ;    7       FPut 
  283. ;    6       Hangup
  284. ;    4       InputStr 
  285. ;    12      Gosub 
  286. ;    4       Return
  287. ;    2       Delay 
  288. ;    1       Tokenize 
  289. ;    1       GetToken 
  290. ;    1       KbdStuff 
  291. ;    6       AnsiPos 
  292. ;    1       ShowOn
  293. ;    1       ShowOff
  294. ;    3       FRead 
  295. ;    1       FCloseAll
  296. ;
  297. ;
  298. ; Functions used :
  299. ;
  300. ;    1       -
  301. ;    1       *
  302. ;    1       /
  303. ;    61      +
  304. ;    3       -
  305. ;    7       ==
  306. ;    3       <>
  307. ;    9       <
  308. ;    1       <=
  309. ;    7       >
  310. ;    2       >=
  311. ;    25      !
  312. ;    6       &&
  313. ;    6       ||
  314. ;    4       Len(
  315. ;    2       Mid()
  316. ;    1       Left()
  317. ;    1       Right()
  318. ;    4       Space()
  319. ;    6       Chr()
  320. ;    3       Asc()
  321. ;    1       InStr()
  322. ;    2       Trim()
  323. ;    1       Random()
  324. ;    3       Date()
  325. ;    1       Time()
  326. ;    9       String()
  327. ;    2       Mask_Pwd()
  328. ;    2       Mask_Ascii()
  329. ;    1       PcbDat()
  330. ;    12      PpePath()
  331. ;    6       ReadLine()
  332. ;    4       Exist()
  333. ;    1       TokenStr()
  334. ;    2       AnsiOn()
  335. ;    2       GrafMode()
  336. ;    1       TokCount()
  337. ;    1       U_RecNum()
  338. ;
  339. ;-----------------------------------------------------------------------------;
  340. ; (C)1995 AEGiS CoRP       - Main Code by Lone Runner -      Parts by The doC ;
  341. ;-----------------------------------------------------------------------------;
  342. ;        ___________      _______________________        _____________        ;
  343. ;[=======\          \====/          /           /_____  /            /=======];
  344. ; ::::::::\  ______  \::/  \_____  /  _______  /______)/  \_______  /:::::::: ;
  345. ; ::kL!:::_\/    _/   \/   ___)__\/   \      \/        \_________ \/::::::::: ;
  346. ; ::::::::\     __     \_  \      \_   \_     \_        \_      /  \_:::::::: ;
  347. ;[=========\_____/______/__________/___________/_________/__________/========];
  348. ;                                                                             ;
  349. ;                      C          O          R          P                     ;
  350. ;-----------------------------------------------------------------------------;
  351. ;                        Dedicated to pure anarchists all around the world... ;
  352. ;-----------------------------------------------------------------------------;
  353.