/*----------------------------------------------------------------------*/ /* AmiExpress Security-Mechanism V4.75 - Coded By Galaxy */ /*----------------------------------------------------------------------*/ parse arg node options results nodeid = "AERexxControl"node address value nodeid /*----------------------------------------------------------------------*/ /* Set Signals */ /*----------------------------------------------------------------------*/ signal on syntax signal on error signal on ioerr /*----------------------------------------------------------------------*/ /* Tool Definition */ /*----------------------------------------------------------------------*/ newu = "NEWUSER" /* UPPERCASE */ /*----------------------*/ /*----------------------------------------------------------------------*/ /* Passwords */ /*----------------------------------------------------------------------*/ /* BEGONIE, PILLEN, POLLEN, KUCHEN, POSITRON, SONIC */ /*----------------------------------------------------------------------*/ pass = "YES" /* UPPERCASE */ nups = "JAPAN" /* UPPERCASE */ lwps = "POLYGON" /* UPPERCASE */ /*----------------------*/ /*----------------------------------------------------------------------*/ /* Defaults */ /*----------------------------------------------------------------------*/ noth = "NOTHING!" stra = "STRANGER!" /*----------------------------------------------------------------------*/ /* Change Here Your Nup, SysPw, Systemprmpt, Registrnum, Etc. */ /*----------------------------------------------------------------------*/ hand = "Enter your Handle: " sysp = "SystemPassword: " user = "Enter LowBaudPassword: " nupp = "NewUserPassword: " regi = "00003263921-GAL" vers = "V4.75" maxb = 7200 skib = 57600 section = "0" /*----------------------*/ /* 1 = lowbaudpw */ /* 2 = syspw */ /* 3 = lowbaud pw */ /* 4 = system pw */ /* 5 = newuserpw */ /*----------------------*/ /*----------------------------------------------------------------------*/ /* Standart Commands */ /*----------------------------------------------------------------------*/ tr = transmit;gu = getuser;qu = query;pu = putuser;ps = putustr;sm = sendmessage /*----------------------------------------------------------------------*/ /* Result Codes */ /*----------------------------------------------------------------------*/ gu 100;usar = result;gu 122;line = result;gu 125;tout = result gu 144;date = result;gu 505;baud = result;gu 525;ntxt = result /*----------------------------------------------------------------------*/ /* Date check */ /*----------------------------------------------------------------------*/ tim = word(date,4);day = word(date,3);mon = word(date,2);yea = word(date,5) /*----------------------------------------------------------------------*/ /* Integer */ /*----------------------------------------------------------------------*/ usar = 0;line = 1;tout = 1;ntxt = 1 /*----------------------------------------------------------------------*/ /* Set Lines And Drop Time And Kill Cursor */ /*----------------------------------------------------------------------*/ ps "1000";pu 122;ps "120";pu 125;tr "[0 p" /*----------------------------------------------------------------------*/ /* Check If Normal Door Or New User Door */ /*----------------------------------------------------------------------*/ gu 131;answer = upper(result) if answer = newu then call newuser /*----------------------------------------------------------------------*/ /* Normal Door */ /*----------------------------------------------------------------------*/ normal: tr " .-.------------------------------------------------------.-." tr " |_| Copyright GALAXY Systems Inc. 1993-"yea"|_|" tr " | Welcome To AmiExpress(TM) Security-Mechanism "vers".|" tr " | Reg.-# GAT-MPL0."regi".|" tr " `--------------------------------------------------------'" tr " Detected Connect Is: "day"-"mon"-"yea" "tim"." tr " __ Connected On Node "node" At "baud" Baud." tr ".---\/------------------------------------------------------------------------." tr "| This system is for the use of authorized users only. Individuals using this |" tr "| computer system without authority, or in access of their authority, are |" tr "| subject to having all of their activities on this system monitored and |" tr "| recorded by system personnel. In the course of monitoring individuals |" tr "| improperly using this system, or in the course of system maintenance, the |" tr "| activities of authorized users may also be monitored. Anyone using the |" tr "| system expressly consents to such monitoring and is advised that such |" tr "| monitoring reveals possible evidence of criminal activity, system personnel |" tr "| may provide the evidence of such monitoring to law enforcement officials. |" tr "`-----------------------------------------------------------------------------'" tr "" if baud > skib then call skip if baud > maxb then call letin tr ".-----------------------------------------------------------------------------." tr "| You connected on an unusual baudrate to this system. Maybe it could be |" tr "| hardware dependant problems. Anyhow the personal allow only a few |" tr "| authorized users to connect at this baudrate. __ |" tr "`------------------------------------------------\/---------------------------'" tr "" /*----------------------------------------------------------------------*/ /* LowBaud Part */ /*----------------------------------------------------------------------*/ lowbaud: call questionaire qu user;answer = upper(result) if answer = lwps then call correct if answer = nups then call lamer if answer = "" then answer = noth tr "" call questionaire qu hand;handle = upper(result) if handle = "" then handle = stra tr " `--------------------------------------------------------'" tr " __ Detected Disconnect Is: "day"-"mon"-"yea" "tim"." tr ".---------\/------------------------------------------------------------------." tr "| Well '"handle"', you entered '"answer"'|" tr "| This is not the required LowBaudPassword, which is needed to get access on |" tr "| this system. The system managment have no use of you with this baudrate. |" tr "| Please keep this system in mind and call back, when you have the |" tr "| requirements or we the required hardware! |" tr "| |" tr "| Your attempt to enter this system will be added to the BBS callerslog File! |" tr "| _|" tr "| GoodBye! __ | |" tr "`------------------------------------------------------------------\/-------^-'" tr "" tr "NO CARRIER" section = "1" call callerslog /*----------------------------------------------------------------------*/ /* Normal Modem Part */ /*----------------------------------------------------------------------*/ letin: call questionaire qu sysp;answer = upper(result) if answer = pass then call correct if answer = nups then call elite if answer = "" then answer = noth tr "" call questionaire qu hand;handle = upper(result) if handle = "" then handle = stra tr " `--------------------------------------------------------'" tr " __ Detected Disconnect Is: "day"-"mon"-"yea" "tim"." tr ".-\/--------------------------------------------------------------------------." tr "| Well '"handle"', you entered '"answer"'|" tr "| This is not the required SystemPassword, which is needed to get access on |" tr "| this system. |" tr "| |" tr "| Your attempt to enter this system will be added to the BBS callerslog File! |" tr "| _|" tr "| GoodBye! __ | |" tr "`--------------\/-----------------------------------------------------------^-'" tr "" tr "NO CARRIER" section = "2" call callerslog /*----------------------------------------------------------------------*/ /* LowBaudPw Sucker */ /*----------------------------------------------------------------------*/ lamer: decious="LowBaudPassword" section = "3" call positron /*----------------------------------------------------------------------*/ /* SystemPw Sucker */ /*----------------------------------------------------------------------*/ elite: decious=" SystemPassword" section = "4" call positron /*----------------------------------------------------------------------*/ /* Show Info Get Handle And Fuck Off */ /*----------------------------------------------------------------------*/ positron: tr "" call questionaire qu hand;handle = upper(result) if handle = "" then handle = stra tr " `--------------------------------------------------------'" tr " __ Detected Disconnect Is: "day"-"mon"-"yea" "tim"." tr ".-------\/--------------------------------------------------------------------." tr "| Well '"handle"', you entered '"answer"'|" tr "| Yeah dude! Someone who can read, will be in better position at all! Try |" tr "| finding the difference between "decious" and NewUserPassword. So far |" tr "| maybe you try it again later. Btw: There are not much standard Syspws at |" tr "| all! Try one of them next time! You shalt be luckier!!! |" tr "| |" tr "| Your attempt to enter this system will be added to the BBS callerslog File! |" tr "| _|" tr "| GoodBye! __ | |" tr "`------------------------------------------------------------------------\/-^-'" tr "" tr "NO CARRIER" call callerslog /*----------------------------------------------------------------------*/ /* Isdn Part */ /*----------------------------------------------------------------------*/ skip: tr ".-.-------------------------------------------------------------------------.-." tr "|_| Incoming ISDN Call Detected bypassing SystemPassword! __ |_|" tr " `-------------------------------------------------------------------\/------'" tr "" do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* N */ do for 5;sm "ISDN";end /* D */ do for 5;sm "ISDN";end /* S */ do for 5;sm "ISDN";end /* I */ do for 5;sm "ISDN";end /* ISDN */ tr "" shutdown;exit;end /*----------------------------------------------------------------------*/ /* New User Door */ /*----------------------------------------------------------------------*/ newuser: tr " .-.------------------------------------------------------.-." tr " |_| Copyright GALAXY Systems Inc. 1993-"yea"|_|" tr " `--------------------------------------------------------'" tr " __ " tr ".-.------------------\/-----------------------------------------------------.-." tr "|_| You are forced to enter the NewUserPassword (You have only one chance)__|_|" tr " `------------------------------------------------------------------------\/-'" tr "" call questionaire qu nupp;answer = upper(result) if answer = nups then call correct if answer = "" then answer = noth tr "" call questionaire gu 100;handle = upper(result) if handle = "" then handle = stra tr " __ Detected Disconnect Is: "day"-"mon"-"yea" "tim"." tr ".-----------\/----------------------------------------------------------------." tr "| Well '"handle"', you entered '"answer"'|" tr "| This is not the required NewUserPassword, which is needed to get access on |" tr "| this system. |" tr "| |" tr "| Your attempt to enter this system will be added to the BBS callerslog File! |" tr "| _|" tr "| GoodBye! __ | |" tr "`-----------------------------------------------------\/--------------------^-'" tr "" tr "NO CARRIER" section = "5" call callerslog /*----------------------------------------------------------------------*/ /* Questionaire Border */ /*----------------------------------------------------------------------*/ questionaire: tr ".-.-------------------------------------------------------------------------.-." tr "|_| __ |_|" tr " `-----------------------------------------------------------------\/--------'" tr "" return /*----------------------------------------------------------------------*/ /* Type This If Correct */ /*----------------------------------------------------------------------*/ correct: tr "Correct! Thanx for using AmiExpress(TM) Security-Mechanism!" do for 5000;end tr "" shutdown;exit;end /*----------------------------------------------------------------------*/ /* Write Text To CallersLog */ /*----------------------------------------------------------------------*/ callerslog: call open(callerslog,"Bbs:Node"node"/CallersLog",'a') call writeln(callerslog,"**************************************************************") call writeln(callerslog," This happened on section "section"! - Signed Security-Mechanism") call writeln(callerslog," access to this BBS! But he failed due the wrong Shit he entered!") call writeln(callerslog," A user with the handle '"handle"' entered '"answer"' to get") call writeln(callerslog," On "day"-"mon"-"yea" at "tim" on Node "node" with "baud" Baud.") call close(callerslog) ps node;pu 511;shutdown;exit;end /*----------------------------------------------------------------------*/ /* Show Errors */ /*----------------------------------------------------------------------*/ syntax: error: ioerr: tr "" tr "Error in Line #"Sigl" : exiting ..." tr errortext(Sigl) shutdown;exit;end