Article 174548 of comp.os.vms:
In article: 
<Pine.PMDF.3.95.970723153851.694166046J-100000@csc.canterbury.ac.nz>  "Malcolm 
Smeaton, Computer Services Centre" <cctr158@csc.canterbury.ac.nz> writes:
> 
> I want to produce a list of random passwords between 6 and 8 characters. The
> DCL command "set password /generate" does this interactively but I would be
> interested to know if there is a callable interface to the password 
generator.
> 
> --
> Malcolm C Smeaton, Computer Services Centre
> University of Canterbury, Private Bag 4800, Christchurch, New Zealand
> Phone:  64-3-364-2333
> Fax:    64-3-364-2332
> Email:  m.smeaton@csc.canterbury.ac.nz


Use at your own risk . . .

	integer*2 length
	integer*4 n, count, i
	character buffer*32

	call lib$get_foreign (buffer,
	1	'Number of characters in password (max 16)? ', i)
	read (buffer(1:i), 100, err=999) count
	if (count .gt.16) goto 999
	do i = 1,10
		call sys$forge_word (%val(count, %val(count),
	1		%val(count*8), %val(0), n, length, buffer)
		print *, buffer(1:length)
	end do
	call exit (1)

 999	print *, 'Input parameter error'
	call exit(1)

 100	format (i)
	end
-- 
Dave Pickles



