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> <37FDECB8.346C9AFD@gtech.com> <7tkvg1$7o$2@mailint03.im.hou.compaq.com> <1999Oct8.192652.1@eisner> 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 writes: >danco@pebble.org (Dan Cook) wrote: >>On Fri, 8 Oct 1999 23:26:52 GMT, Larry Kilgallen =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