From - Sun Oct 10 14:16:40 1999
Path: reader2.news.rcn.net!feed1.news.rcn.net!rcn!dispose.news.demon.net!demon!newsfeed.icl.net!newsfeed.icl.net!newspeer.clara.net!news.clara.net!remarQ-uK!rQdQ!supernews.com!remarQ.com!corp.supernews.com!SendSpamHere.ORG!SYSTEM
From: system@SendSpamHere.ORG (Brian Schenkenberger, VAXman-)
Newsgroups: comp.os.vms
Subject: Re: Calling to access VMS Password System
Date: Sat, 09 Oct 1999 14:41:48 GMT
Organization: TMESIS Software
Message-ID: <009DF5CB.5A058C9E@SendSpamHere.ORG>
References: <37FC8101.6A4EEAF6@uws.edu.au> <1999Oct7.091007.1@eisner>   <37FDB0CA.24C88950@uws.edu.au> <y47lkyxedg.fsf@mailhost.neuroinformatik.ruhr-uni-bochum.de> <37FDECB8.346C9AFD@gtech.com> <7tkvg1$7o$2@mailint03.im.hou.compaq.com> <slrn7vsftj.asm.danco@pebble.pebble.org> <1999Oct8.192652.1@eisner> <slrn7vtfq9.cvg.danco@pebble.pebble.org>
Reply-To: system@SendSpamHere.ORG
X-Complaints-To: newsabuse@supernews.com
Lines: 51
Xref: reader2.news.rcn.net comp.os.vms:247203

In article <939462000.145133077@localnews>, Dave Pickles <davep@nugate.demon.co.uk> writes:
>danco@pebble.org (Dan Cook) wrote:
>>On Fri, 8 Oct 1999 23:26:52 GMT, Larry Kilgallen <kilgallen@eisner.decus=
>=2Eorg> wrote:
>>
>>>The way I heard it explained, the goal is to bundle all the little
>>>different things into one single interface. Is your interest in
>>>using the VMS password generator to generate something other than
>>>VMS passwords ?  I think that is available now, with an icky and
>>>undocumented/unsupported interface.
>>
>>No, I'd just like to be able to have a callable interface into the
>>pronouncable password generator that LOGINOUT uses when an account
>>has the GENPWD flag set.  I want to be able do the user interface
>>part myself though.  So far as I know, these routines are only in
>>LOGINOUT itself and are not in any shareable image anywhere.  This
>>may have changed.  The last time I looked was some time ago.
>
>IIRC the interface is SYS$FORGE_PASSWORD. Someone posted details here a c=
>ouple
>of years ago and I got it working but I can't find the code. Perhaps Deja=
>News
>will be forthcoming.
>
>Dave Pickles
>

The service is $FORGE_WORD.

Here is a simple ditty demonstrating its use:

        .PSECT  DATA,WRT,NOEXE,5
OUTSTR: .ASCID  /                                /
DUMMY:  .ASCID  /    /

        .PSECT  CODE,NOWRT,EXE,5
        .ENTRY  GO,0
10$:    $FORGE_WORD_S   MINLEN=#6,MAXLEN=#32,-
                        OUTLEN=OUTSTR,OUTSTR=OUTSTR

        PUSHAL  OUTSTR
        CALLS   #1,g^LIB$PUT_OUTPUT
        PUSHAL  DUMMY
        CALLS   #1,g^LIB$GET_INPUT
        MOVZWL  #32,OUTSTR
        BRB     10$
        RET
        .END    GO

--
VAXman- OpenVMS APE certification number: AAA-0001           VAXman@TMESIS.COM
