747 lines
22 KiB
Plaintext
747 lines
22 KiB
Plaintext
==Phrack Magazine==
|
|
|
|
Volume Five, Issue Forty-Five, File 16 of 28
|
|
|
|
****************************************************************************
|
|
|
|
DCL BBS PROGRAM
|
|
|
|
-------cut here-------cut here------cut here------cut here------cut here------
|
|
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ ! Well, this is just a little bbs program, a skeleton on wich u can work, !
|
|
$ ! add stuff, subroutines, and so on. !
|
|
$ ! I am SURE there are bugs, anyway the only I use to know 'till now is in !
|
|
$ ! the editor, where anything u write after a "!" will not be saved !
|
|
$ ! If sumbody wants to help/cooperate/exchange ideas about this program and/or!
|
|
$ ! any Dcl stuff/trick, just write at: !
|
|
$ ! SSGRR@pol88a.polito.it for internet e-mail !
|
|
$ ! (0) 22221122878::SSGRR for PSI MAIL !
|
|
$ ! Mbx RAOUL on Qsd chat system, x.25 nua (0) 208057040540 !
|
|
$ ! ANY kind of help and suggestion will be accepted ! !
|
|
$ ! ANY kind of cooperation with SERIOUS italian and/or european hackers, !
|
|
$ ! especially concerning x.25 networks, vax/vms, unix, cisco systems will be !
|
|
$ ! appreciated. !
|
|
$ ! !
|
|
$ ! Raoul / SferraNet Inc. for Phrack Magazine !
|
|
$ ! Many thanks to: Nobody. I usually work on my own. !
|
|
$ ! !
|
|
$ ! !
|
|
$ ! Remember to add the files the program requires, such as: !
|
|
$ ! INVI.EXE !
|
|
$ ! goodbye.txt !
|
|
$ ! files.txt !
|
|
$ ! etc..... !
|
|
$ ! And remember to create the subdirectories the program requires, AND to !
|
|
$ ! create a [bbs] directory, otherwise to rename [bbs] string, in this !
|
|
$ ! program, to a different name. !
|
|
$ ! !
|
|
$ ! I am sorry if program documentation is poor, but this program is mainly !
|
|
$ ! intended as a skeleton for future developments. !
|
|
$ ! I swear next time it will came up with a installation.com file :) !
|
|
$ ! !
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$! BBS PROGRAM RELEASE 2.0
|
|
$! ADDED CALL FUNCTION TO SPEED UP PROCESSES
|
|
$! LAST MODIFIED ON 15/10/1993 BY RAOUL/SFERRANET
|
|
$! BBS PROGRAM
|
|
$! Coded By Raoul/SferraNet
|
|
$!
|
|
$! Featuring:
|
|
$! Internal Mbx option
|
|
$! Kermit (Vms default) and Zmodem download protocols options
|
|
$! internal editor
|
|
$! password change option
|
|
$! logs of dtes, calls source etc
|
|
$! "post a banner" option
|
|
$ ! "BBS" account requires:
|
|
$ ! Privileges: NETMBX, TMPMBX, CMKRNL
|
|
$ ! Defprivileges: NETMBX, TMPMBX, CMKRNL
|
|
$ ! Flags: disnewmail, disctly, restricted
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ !This next 3 lines put away error messages ( remove it when testing the
|
|
$ !program, so that you will be able to see wich errors you are getting
|
|
$ set messa /nofac
|
|
$ set messa /notext
|
|
$ set messa /nosev
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ ! Defines CLS
|
|
$ ESC[0,8] = 27
|
|
$ CLC == ESC+"[H"+ESC+"[J"
|
|
$ cls := "write sys$output CLC"
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$!define user's terminal
|
|
$ ! here we check what kind of terminal user has, knowing that for Vms
|
|
$ ! a good graphic mode will be from VT100 on, using this list:
|
|
$ ! unknown = 0
|
|
$ ! VT52 = 64
|
|
$ ! VT100 = 96
|
|
$ ! VT101 = 97
|
|
$ ! VT102 = 98
|
|
$ ! VT105 = 99
|
|
$ ! VT125 = 100
|
|
$ ! VT200 = 110
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ cls
|
|
$ write sys$output " Checking Terminal Type....Please Wait...."
|
|
$ set terminal /inquire
|
|
$ ttype = f$getdvi("SYS$COMMAND", "DEVTYPE")
|
|
$ if ttype .ge. 96
|
|
$ then
|
|
$ vt100_flag = 1
|
|
$ else
|
|
$ vt100_flag = 0
|
|
$ endif
|
|
$!
|
|
$ if vt100_flag .eq. 1
|
|
$ then
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$! This is a list of escape sequences definitions
|
|
$ reverse == ESC+"[7m" ! turns on inverse video attribute
|
|
$ blink == ESC+"[5m" ! turns on blinking attribute
|
|
$ blankfromtop == ESC+"[1J" ! blanks screen from top to cursor
|
|
$ blankline == ESC+"[2K" ! blanks current line
|
|
$ blankendline == ESC+"[0K" ! blanks from cursor to end of line
|
|
$ normal == ESC+"[0m" ! Resets to normal video attribute
|
|
$ bold == ESC+"[1m" ! turns on Bold attribute
|
|
$ underline == ESC+"[4m" ! turns on underline attribute
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ write sys$output reverse
|
|
$ write sys$output blink
|
|
$ write sys$output " Your Terminal Is DEC-VTxxx Series Compatible ! "
|
|
$ write sys$output " This Will Help You To Get even MORE&MORE From This Bbs ! "
|
|
$ write sys$output normal
|
|
$ wait 0:00:03
|
|
$ else
|
|
$ write sys$output " Sorry, Your Terminal Isn't DEC-VTxxx Series Compatible "
|
|
$ write sys$output " "
|
|
$ write sys$output " Try to Get a Better Emulation Next Time Dude!!! "
|
|
$ wait 0:00:05
|
|
$ cls
|
|
$ endif
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$! USER.COM VERSION 1.0 BETA
|
|
$ on error then goto nouser
|
|
$ on severe_error then goto nouser
|
|
$ in := "inquire /nopunctuation"
|
|
$ out := "write sys$output"
|
|
$ user:
|
|
$ cls
|
|
$ out " "
|
|
$ out " ** Sferra Bbs Logon ** (C) 1993 Raoul / SferraNet Inc. "
|
|
$ out " "
|
|
$ in usr "Username: "
|
|
$ if usr .eqs. "" then goto user
|
|
$ if usr .eqs. " " then goto user
|
|
$ open /read mailfile [bbs]'usr'.mail /error=nouser
|
|
$ set term/noecho
|
|
$ in pass "Password: "
|
|
$ set term/echo
|
|
$ read mailfile pw
|
|
$ close mailfile
|
|
$ if pw .eqs. pass then goto bbs
|
|
$ out " "
|
|
$ out "Wrong Password."
|
|
$ wrong:
|
|
$ out " "
|
|
$ in test "Retry or Login as a New User ? (R/N) "
|
|
$ if test .eqs. "N" then goto newusr
|
|
$ cls
|
|
$ goto user
|
|
$ goto bbs
|
|
$ nouser:
|
|
$ out " "
|
|
$ out " User ''usr' Not Found In Users File "
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ goto wrong
|
|
$!% author Raoul/SferraNet
|
|
$!% language DCL
|
|
$! Bbs program for Vax/Vms
|
|
$!
|
|
$ bbs:
|
|
$ cls
|
|
$ type [bbs]welcome.txt
|
|
$ wait 00:00:04
|
|
$ user == usr
|
|
$ tt == f$getdvi("TT","DEVNAM")!-"-"
|
|
$! l1 == f$locate(":",TT)
|
|
$! l1 == l1 -1
|
|
$ device == tt
|
|
$ start == f$cvtime(,,"time")
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ ! Here we show user bbs in full mode, to get his/her dte, inet address or
|
|
$ ! Decnet node, and put it in a file, then we run invisible.exe to
|
|
$ ! make the user "BBS" invisible
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ sh u bbs /f /out=[bbs]'user'.dte
|
|
$ open/append output_file [bbs]users.dat
|
|
$ write output_file "Bbs Users Log on: ",F$time()
|
|
$ write output_file "User: ''user' connected on ''device' at ''start'"
|
|
$ close output_file
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$! Here we run INVI.EXE, to get invisible at a sh users command, and to avoid
|
|
$! System Manager to detect the bbs user
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ run [bbs]invi.exe;1
|
|
$ errcheck:
|
|
$ on control_p then goto mainmenu
|
|
$ on control_y then goto mainmenu
|
|
$ on control_t then goto mainmenu
|
|
$ on control_c then goto mainmenu
|
|
$ on error then goto mainmenu
|
|
$ on severe_error then goto mainmenu
|
|
$ on warning then goto mainmenu
|
|
$ write sys$output " "
|
|
$ out reverse
|
|
$ write sys$output " Welcome To <BBS NAME> "
|
|
$ out normal
|
|
$ write sys$output " "
|
|
$ out blink
|
|
$ write sys$output " Running on a Vax/Vms <VMS VERSION>"
|
|
$ out normal
|
|
$ write sys$output " "
|
|
$ out reverse
|
|
$ write sys$output " You are connected on line ''device' at ''start' "
|
|
$ out normal
|
|
$ write sys$output " "
|
|
$ out blink
|
|
$ write sys$output " Please Wait... "
|
|
$ out normal
|
|
$ wait 0:00:05
|
|
$ cls
|
|
$ write sys$output " User ''user' connected on ''device' at ''start' "
|
|
$ write sys$output " "
|
|
$ out reverse
|
|
$ write sys$output " PLEASE POST ME A MESSAGE "
|
|
$ out normal
|
|
$ write sys$output " "
|
|
$ write sys$output " IF U FIND ANY BUGS OR HAVE ANY SUGGESTION"
|
|
$ wait 0:00:02
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ write sys$output " *** Banner Message *** Read it or Die ! *** "
|
|
$ write sys$output " "
|
|
$ type [bbs]banner.txt
|
|
$ write sys$output " "
|
|
$ inquire /nopunct banner "Press [ENTER] To Continue..."
|
|
$ mainmenu:
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ write sys$output " HackTown Bbs "
|
|
$ write sys$output " "
|
|
$ write sys$output " Main Menu "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " [F] Files Area "
|
|
$ write sys$output " [M] Mailboxes Area "
|
|
$ write sys$output " [I] Informations About This System "
|
|
$ write sys$output " [B] Leave a Banner
|
|
$ write sys$output " [U] List Users "
|
|
$ write sys$output " [P] Post a Message To SysOp "
|
|
$ write sys$output " [L] Logout "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ inquire topmenu "(F,M,I,B,P,L)==>"
|
|
$ if topmenu .eqs. "L" then goto L
|
|
$ if topmenu .eqs. "F" then goto F
|
|
$ if topmenu .eqs. "I" then goto I
|
|
$ if topmenu .eqs. "P" then goto P
|
|
$ if topmenu .eqs. "M" then goto M
|
|
$ if topmenu .eqs. "U" then goto U
|
|
$ if topmenu .eqs. "B" then goto B
|
|
$ if topmenu .eqs. "" then goto mainmenu
|
|
$ if topmenu .eqs. " " then goto mainmenu
|
|
$ goto mainmenu
|
|
$! Banner Message
|
|
$ B:
|
|
$ cls
|
|
$ write sys$output " Editing Banner! End With a Dot (.) "
|
|
$ write sys$output " Notice: Pirating or Incorrects Messages Will Be "
|
|
$ write sys$output " Accepted...Don't Be Clean! ;) "
|
|
$ write sys$output "
|
|
$ del [bbs]banner.txt;* /nolog
|
|
$ open/write banner_file [bbs]banner.txt
|
|
$ write banner_file " Banner Message From user ''usr' Posted at ''start' "
|
|
$ write banner_file " "
|
|
$ write banner_file "***********************************************************"
|
|
$ line=1
|
|
$ more:
|
|
$ inquire /nopunctu text "''line': "
|
|
$ if text .eqs. "." then goto endbanner
|
|
$ write banner_file text
|
|
$ line=line+1
|
|
$ goto more
|
|
$ write banner_file "***********************************************************"
|
|
$ close banner_file
|
|
$ write sys$output " "
|
|
$ write sys$output " Banner Saved! "
|
|
$ wait 0:00:02
|
|
$ goto mainmenu
|
|
$!
|
|
$ U:
|
|
$ cls
|
|
$ type [bbs]users.lis
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ inquire /nopunctuation komodo " Press [ENTER] To Continue..."
|
|
$ goto mainmenu
|
|
$!
|
|
$ L:
|
|
$ goto bbsbye
|
|
$ logout/full
|
|
$!
|
|
$!
|
|
$! option F
|
|
$!
|
|
$ F:
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ write sys$output " Files Menu "
|
|
$ write sys$output " "
|
|
$ write sys$output " [1] List files "
|
|
$ write sys$output " [2] Type a file "
|
|
$ write sys$output " [3] Download a file "
|
|
$ write sys$output " [4] Upload a file "
|
|
$ write sys$output " [5] Go back to main menu "
|
|
$ inquire files "(1,2,3,4,5)==>"
|
|
$ if files .eqs. "1" then goto 1
|
|
$ if files .eqs. "2" then goto 2
|
|
$ if files .eqs. "3" then goto 3
|
|
$ if files .eqs. "4" then goto 4
|
|
$ if files .eqs. "5" then goto 5
|
|
$ if files .eqs. "" then goto F
|
|
$ if files .eqs. " " then goto F
|
|
$ goto F
|
|
$!
|
|
$ 1:
|
|
$ goto fileslist
|
|
$ inquire/nopunct tasto "Press [ENTER] to continue..."
|
|
$ goto F
|
|
$!
|
|
$ 2:
|
|
$ write sys$output "U can't type files such as .ZIP .EXE .ARJ etc..."
|
|
$ inquire file "File to type ? "
|
|
$ if file .eqs. "" then goto f
|
|
$ if file .eqs " " then goto f
|
|
$ if file .eqs. "login.com" then goto F
|
|
$ inquire page "do you want the file to be typed with or without page pause ? (A/B) "
|
|
$ cls
|
|
$ if page .eqs "a" then goto nopage
|
|
$ if page .eqs. "b" then goto page
|
|
$ goto 2
|
|
$ page:
|
|
$ type [bbs]'file' /nopage
|
|
$ inquire/nopunct tasto "Press [ENTER] to continue..."
|
|
$ cls
|
|
$ goto F
|
|
$!
|
|
$ nopage:
|
|
$ type [bbs]'file' /page
|
|
$ inquire/nopunct tasto " Press [ENTER] to continue..."
|
|
$ cls
|
|
$ goto F
|
|
$!
|
|
$ 3:
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ inquire dl "File to download ? "
|
|
$ inquire protocol "Protocol ? (Z=Zmodem, K=Kermit) "
|
|
$ if protocol .eqs. "z" then goto zmodem
|
|
$ if protocol .eqs. "k" then goto kermit
|
|
$ goto F
|
|
$ kermit:
|
|
$ if dl .eqs. "" then goto F
|
|
$ if dl .eqs. "login.com" then goto F
|
|
$ if dl .eqs. "bbs.com" then goto F
|
|
$ mcr kermit send [bbs.files]'dl'
|
|
$ exit
|
|
$ goto F
|
|
$!
|
|
$ zmodem:
|
|
$ !!!!! Put here your zmodem program download string, etc
|
|
$!
|
|
$ goto F
|
|
$!
|
|
$ 4:
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ out blink
|
|
$ write sys$output " Thanks for your upload! "
|
|
$ out normal
|
|
$ out reverse
|
|
$ write sys$output " Default transfer protocol is Kermit "
|
|
$ out normal
|
|
$ inquire ul "File to upload ? "
|
|
$ if ul .eqs. "" then goto F
|
|
$ if ul .eqs. "login.com" then goto F
|
|
$ if ul .eqs. "bbs.com" then goto F
|
|
$ mcr kermit rec [bbs.files]'ul'
|
|
$ exit
|
|
$ open/append [bbs.files]files.txt
|
|
$ write [bbs.files]files.txt "File ''ul' sent by ''user' at ''start' on ''device' "
|
|
$ close [bbs.files]files.txt
|
|
$ inquire desc " Please type a short description for your file "
|
|
$ open/append [bbs.files]files.txt
|
|
$ write 'desc'' [bbs.files]files.txt
|
|
$ write [bbs.files]files.txt "----------------------------------------------------------------------"
|
|
$ close [bbs.files]files.txt
|
|
$ goto F
|
|
$!
|
|
$ 5:
|
|
$ goto mainmenu
|
|
$!
|
|
$ M:
|
|
$ cls
|
|
$ write sys$output " MailBox Menu "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " [S] Send a Message "
|
|
$ write sys$output " [R] Read Messages in Your Mailbox "
|
|
$ write sys$output " [C] Clear Your Mailbox "
|
|
$ write sys$output " [D] Delete Your Mailbox "
|
|
$ write sys$output " [M] Go Back To Main Menu "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ inquire mailmenu " (S,R,C,D,M)==> "
|
|
$ if mailmenu .eqs. "S" then goto smail
|
|
$ if mailmenu .eqs. "R" then goto rmail
|
|
$ if mailmenu .eqs. "C" then goto cmbx
|
|
$ if mailmenu .eqs. "D" then goto delmail
|
|
$ if mailmenu .eqs. "M" then goto mainmenu
|
|
$ if mailmenu .eqs. "" then goto M
|
|
$ goto M
|
|
$!
|
|
$!
|
|
$ delmail:
|
|
$ write sys$output " W A R N I N G ! ! ! "
|
|
$ write sys$output " "
|
|
$ write sys$output " Deleting Your Personal Mailbox "
|
|
$ write sys$output " Will Remove You From The Users File "
|
|
$ write sys$output " "
|
|
$ inquire del "Do You Want To Delete Your Mailbox ? (Y/N) "
|
|
$ if del .eqs. "Y" then goto mbxdely
|
|
$ if del .eqs. "N" then goto mbxdeln
|
|
$ goto M
|
|
$!
|
|
$ mbxdely:
|
|
$ goto dmbx
|
|
$ goto M
|
|
$!
|
|
$ mbxdeln:
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ write sys$output " Mailbox not Deleted "
|
|
$ wait 0:00:02
|
|
$ goto M
|
|
$!
|
|
$ I:
|
|
$ cls
|
|
$ write sys$output " We're sorry if this system isn't 100% working fine. "
|
|
$ write sys$output " We keep on to work at it. If you find bugs and/or errors, "
|
|
$ write sys$output " please send me an URGENT mail (P option at Main Menu) "
|
|
$ write sys$output " Thanks."
|
|
$ write sys$output " "
|
|
$ write sys$output " Bbs Staff "
|
|
$ wait 0:00:03
|
|
$ goto mainmenu
|
|
$!
|
|
$P:
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ define/user_mode sys$input sys$command
|
|
$ mail sys$command <YOUR ACCOUNT> !!!!!!!<-- your VMS account, where you can
|
|
$! receive regular vms mail via the vms mail utility
|
|
$ goto mainmenu
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ newusr:
|
|
$!
|
|
$! NEWUSR.COM VERSION 1.0 BETA
|
|
$!
|
|
$ on warning then goto ok
|
|
$ on control_y then goto ok
|
|
$ on error then goto ok
|
|
$ on severe_error then goto ok
|
|
$ set on
|
|
$ in :== "inquire /nopunctuation"
|
|
$ out :== "write sys$output"
|
|
$!
|
|
$ cls
|
|
$ write sys$output " "
|
|
$ out blink
|
|
$ out " Welcome New User ! "
|
|
$ out normal
|
|
$ out " "
|
|
$ out " "
|
|
$!
|
|
$ in usr "Username: "
|
|
$ open /read mailfile [bbs]'usr'.mail /error=ok
|
|
$ out " "
|
|
$ out "This Username already Exists."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ ok:
|
|
$ set term/noecho
|
|
$ in pass "Password: "
|
|
$ set term/echo
|
|
$ open /write mailfile [bbs]'usr'.mail
|
|
$ write [bbs]mailfile pass
|
|
$ close [bbs]mailfile
|
|
$ out " "
|
|
$ out "User ''usr' Added To Users File."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ ! bsbbye, displays a ascii file and logs user out of the system
|
|
$ bbsbye:
|
|
$ cls
|
|
$ type [bbs]goodbye.txt /nopage
|
|
$ FINISH = F$CVTIME(,,"TIME")
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " S F E R R A B B S ( C ) 1 9 9 3 "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " L O G O U T "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " "
|
|
$ WRITE SYS$OUTPUT " C A L L B A C K S O O N ! ! !"
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ write sys$output " "
|
|
$ open/append output_file [bbs]users.dat
|
|
$ write output_file "User: ''user' disconnected from ''device' on ''finish'"
|
|
$ write output_file "-----------------------------------------------------"
|
|
$ close output_file
|
|
$ exit
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ smail:
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$! SENDMAIL.COM VERSION 1.0 BETA
|
|
$!
|
|
$!
|
|
$!
|
|
$ on error then goto nouser
|
|
$ on severe_error then goto nouser
|
|
$ in :== "inquire /nopunctuation"
|
|
$ out :== "write sys$output"
|
|
$!
|
|
$ cls
|
|
$ out " Write Your Message Below. End With a Dot (.) "
|
|
$!
|
|
$ pass=""
|
|
$ in usr "From : "
|
|
$ open /read checkpw [bbs]'usr'.mail /error=wronguspw
|
|
$ set term/noecho
|
|
$ in pw "Password: "
|
|
$ set term/echo
|
|
$ read checkpw pass
|
|
$ if pass .nes. pw then goto wronguspw
|
|
$ if pass .nes. "" then close checkpw
|
|
$ in dest "To : "
|
|
$ open /append mailfile [bbs]'dest'.mail /error=nouser
|
|
$ in obj "Object: "
|
|
$ write mailfile "From : ",usr
|
|
$ write mailfile "To : ",dest
|
|
$ write mailfile "Object : ",obj
|
|
$ write mailfile " "
|
|
$ write mailfile "Text :"
|
|
$ write mailfile " "
|
|
$ line=2
|
|
$ previous:
|
|
$ line=line-1
|
|
$ if line .eq. 0 then line=1
|
|
$ again:
|
|
$ in text "''line': "
|
|
$ if text .eqs. "c" then goto previous
|
|
$ if text .eqs. "." then goto endinput
|
|
$ write mailfile text
|
|
$ line=line+1
|
|
$ goto again
|
|
$ endinput:
|
|
$ write mailfile "------"
|
|
$ close mailfile
|
|
$ out " "
|
|
$ out "Mail Sent."
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ nouser:
|
|
$ out "The user does not exists, please check the name."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ wronguspw:
|
|
$ out " "
|
|
$ out "You have entered a wrong Username/Password."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ if pass .nes. "" then close checkpw
|
|
$ exit
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ rmail:
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$!
|
|
$!
|
|
$! READMAIL.COM VERSION 1.0 BETA
|
|
$!
|
|
$!
|
|
$!
|
|
$ on error then goto finished
|
|
$ on severe_error then goto finished
|
|
$ in :== "inquire /nopunctuation"
|
|
$ out :== "write sys$output"
|
|
$!
|
|
$!
|
|
$ out " "
|
|
$ in usr "Username: "
|
|
$ set term/noecho
|
|
$ in pass "Password: "
|
|
$ set term/echo
|
|
$ open /read mailfile [bbs]'usr'.mail /error=wronguspw
|
|
$ mails=0
|
|
$ read mailfile pw
|
|
$ if pw .nes. pass then goto wronguspw
|
|
$ again:
|
|
$ read mailfile text /end=finished
|
|
$ if text .eqs. "------" then gosub pause
|
|
$ out text
|
|
$ goto again
|
|
$ finished:
|
|
$ close mailfile
|
|
$ if mails .eq. 0 then goto nomails
|
|
$ out " "
|
|
$ out "End of Mails."
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ nomails:
|
|
$ out "You have no mails."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ pause:
|
|
$ out " "
|
|
$ in more "Press any key to read next mail, press X to exit."
|
|
$ if more .eqs. "X" then goto exitmail
|
|
$ text=CLC
|
|
$ mails=mails+1
|
|
$ return
|
|
$ wronguspw:
|
|
$ out " "
|
|
$ out "You have entered a wrong Username/Password."
|
|
$ out " "
|
|
$ close mailfile
|
|
$ exit
|
|
$ exitmail:
|
|
$ close mailfile
|
|
$ exit
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ cmbx:
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$!
|
|
$! CLEARMAIL.COM VERSION 1.0 BETA
|
|
$!
|
|
$!
|
|
$!
|
|
$ on error then goto mistake
|
|
$ on severe_error then goto mistake
|
|
$ in :== "inquire /nopunctuation"
|
|
$ out :== "write sys$output"
|
|
$!
|
|
$ cls
|
|
$!
|
|
$ pass=""
|
|
$ in usr "Username: "
|
|
$ open /read mailfile [bbs]'usr'.mail /error=wronguspw
|
|
$ set term/noecho
|
|
$ in pass "Password: "
|
|
$ set term/echo
|
|
$ mails=0
|
|
$ read mailfile pw
|
|
$ if pw .nes. pass then goto wronguspw
|
|
$ close mailfile
|
|
$ open /write newfile [bbs]usr.tmp /error=wronguspw
|
|
$ write newfile pw
|
|
$ close newfile
|
|
$ delete [bbs]'usr'.mail;*
|
|
$ rename [bbs]usr.tmp [bbs]'usr'.mail /nolog
|
|
$ cls
|
|
$ out " "
|
|
$ out "Mailbox Cleared."
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ mistake:
|
|
$ cls
|
|
$ out " "
|
|
$ out "An error has occurred, contact Sysop."
|
|
$ out " "
|
|
$ exit
|
|
$ wronguspw:
|
|
$ cls
|
|
$ out " "
|
|
$ out "You have entered a wrong Username/Password."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ if pass .nes. "" then close mailfile
|
|
$ exit
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ Dmbx:
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$!
|
|
$! DELETEMBX.COM VERSION 1.0 BETA
|
|
$!
|
|
$!
|
|
$!
|
|
$ on error then goto nouser
|
|
$ on severe_error then goto nouser
|
|
$ in :== "inquire /nopunctuation"
|
|
$ out :== "write sys$output"
|
|
$ out " "
|
|
$!
|
|
$!
|
|
$ in usr "Username: "
|
|
$ open /read mailfile [bbs]'usr'.mail /error=nouser
|
|
$ set term/noecho
|
|
$ in pass "Password: "
|
|
$ set term/echo
|
|
$ read mailfile pw
|
|
$ close mailfile
|
|
$ if pw .eqs. pass then goto deleteit
|
|
$ out " "
|
|
$ out "Wrong Password."
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ deleteit:
|
|
$ delete [bbs]'usr'.mail;* /nolog
|
|
$ out " "
|
|
$ out "Mailbox Deleted."
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$ exit
|
|
$ nouser:
|
|
$ out " "
|
|
$ out "This Mailbox doesn't exists!"
|
|
$ out " "
|
|
$ wait 0:00:02
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ fileslist
|
|
$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
$ fileslist: subroutine
|
|
$ cls
|
|
$ type [bbs.files]files.txt
|
|
$ write sys$output " "
|
|
$ exit
|
|
|