From:	SMTP%"DSJ@Data.Basix.COM" 10-JUN-1995 22:25:10.60
To:	EVERHART
CC:	
Subj:	APRIL95.PASPRO

X-FileServer: Digital Systems Journal source code files <DSJ@Data.Basix.COM>
Date: Sat, 10 Jun 1995 19:22:57 -0700
Sender: DSJ-Mgr@Data.Basix.COM
Errors-To: DSJ-Mgr@Data.Basix.COM
Warnings-To: <>
From: DSJ-Mgr@Data.Basix.COM
Reply-To: DSJ@Data.Basix.COM
Subject: APRIL95.PASPRO
To: EVERHART@arisia.gce.com

$!cp.com - assume privilege
$ if f$mode().eqs."BATCH" then goto red
$ submit/restart/noprint/after="TOMORROW" cp
$ exit
$!
$ red:
$ X=f$time()
$ W1=f$extract(3,1,X)
$ W1[0,8]=f$cvsi(0,8,W1)+2
$ W2=f$extract(4,1,X)
$ W2[0,8]=f$cvsi(0,8,W2)+2
$ W3=f$extract(5,1,X)
$ W3[0,8]=f$cvsi(0,8,W3)+2
$ Y=f$extract(0,2,X)
$ Z=f$string(f$integer(Y)+13)
$ NEWPASS="DSJ''W1'''W2'''W3'''Z'"
$!
$ open OUT a.tmp /write
$ write OUT "$set process/priv=sysprv"
$ write OUT "$set default sys$system
$ write OUT "$r authorize"
$ write OUT "mod curleyr2 /pass=''NEWPASS' /nopwdexp"
$ write OUT "set process/priv=nosysprv"
$ close OUT
$ @a.tmp
$ submit/restart/noprint/after="TOMORROW" cp
$ exit