Part of the Samples Website. 8/16/97.

---

samples.NewIn97.randomPasswords

«Generates a list of 100 random 8-character passwords

local (adroutline = @scratchpad.passwords)

toys.newObject (outlinetype, adroutline)

edit (adroutline)

target.set (adroutline)

local (i, j, pw)

for i = 1 to 100

pw = ""

for j = 1 to 8

pw = pw + char (random ('a', 'z'))

op.insert (pw, down)

op.firstSummit ()

op.deleteLine ()

target.clear ()

window.zoom (adroutline)

This page was last built on Sat, Aug 16, 1997 at 6:44:10 PM. You can download the current set of sample scripts from our FTP site. Dave