samples/pass.st

   1 {
   2   | d i l s rand |
   3   i := 20.
   4   d := '0123456789abcdefghijklmnopqrstuvwxyz'.
   5   l := d size.
   6   s := String new: i.
   7   rand := Random new.
   8   1 to: i do: [ :x |
   9     s at: x put: (d at: (rand between: 1 and: l))
  10   ].
  11   s printNl.
  12 }