<h2>Edit File: mkpasswd-expect</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/sh
# -*- tcl -*-
# The next line is executed by /bin/sh, but not tcl \
exec tclsh &quot;$0&quot; ${1+&quot;$@&quot;}

package require Expect


# mkpasswd-expect - make a password, if username given, set it.
# Author: Don Libes, NIST

# defaults
set length 9
set minnum 2
set minlower 2
set minupper 2
set minspecial 1
set verbose 0
set distribute 0

if {[file executable /bin/nispasswd]} {
	set defaultprog /bin/nispasswd
} elseif {[file executable /bin/yppasswd]} {
	set defaultprog /bin/yppasswd
} elseif {[file executable /bin/passwd]} {
	set defaultprog /bin/passwd
} else {
	set defaultprog passwd
}
set prog $defaultprog

while {[llength $argv]&gt;0} {
	set flag [lindex $argv 0]
	switch -- $flag \
	&quot;-l&quot; {
		set length [lindex $argv 1]
		set argv [lrange $argv 2 end]
	} &quot;-d&quot; {
		set minnum [lindex $argv 1]
		set argv [lrange $argv 2 end]
	} &quot;-c&quot; {
		set minlower [lindex $argv 1]
		set argv [lrange $argv 2 end]
	} &quot;-C&quot; {
		set minupper [lindex $argv 1]
		set argv [lrange $argv 2 end]
	} &quot;-s&quot; {
		set minspecial [lindex $argv 1]
		set argv [lrange $argv 2 end]
	} &quot;-v&quot; {
		set verbose 1
		set argv [lrange $argv 1 end]
	} &quot;-p&quot; {
		set prog [lindex $argv 1]
		set argv [lrange $argv 2 end]
	} &quot;-2&quot; {
		set distribute 1
		set argv [lrange $argv 1 end]
	} default {
		set user [lindex $argv 0]
		set argv [lrange $argv 1 end]
		break
	}
}

if {[llength $argv]} {
	puts &quot;usage: mkpasswd-expect \[args] \[user]&quot;
	puts &quot;  where arguments are:&quot;
	puts &quot;    -l #      (length of password, default = $length)&quot;
	puts &quot;    -d #      (min # of digits, default = $minnum)&quot;
	puts &quot;    -c #      (min # of lowercase chars, default = $minlower)&quot;
	puts &quot;    -C #      (min # of uppercase chars, default = $minupper)&quot;
	puts &quot;    -s #      (min # of special chars, default = $minspecial)&quot;
	puts &quot;    -v        (verbose, show passwd interaction)&quot;
	puts &quot;    -p prog   (program to set password, default = $defaultprog)&quot;
	exit 1
}

if {$minnum + $minlower + $minupper + $minspecial &gt; $length} {
	puts &quot;impossible to generate $length-character password\
		with $minnum numbers, $minlower lowercase letters,\
		$minupper uppercase letters and\
		$minspecial special characters.&quot;
	exit 1
}

# if there is any underspecification, use additional lowercase letters
set minlower [expr {$length - ($minnum + $minupper + $minspecial)}]

set lpass &quot;&quot;		;# password chars typed by left hand
set rpass &quot;&quot;		;# password chars typed by right hand

# insert char into password at a random position, thereby spreading
# the different kinds of characters throughout the password
proc insert {pvar char} {
    upvar $pvar p

    set p [linsert $p [rand [expr {(1+[llength $p])}]] $char]
}

proc rand {m} {
    set device /dev/urandom            ;# /dev/random can block
    set fileId [open $device r]
    binary scan [read $fileId 4] i1 number
    set clipped [expr $number % $m]
#    puts &quot;number is $number&quot;
#    puts &quot;clipped is $clipped&quot;
    close $fileId
    return $clipped
}

# choose left or right starting hand
set initially_left [set isleft [rand 2]]

# given a size, distribute between left and right hands
# taking into account where we left off
proc psplit {max lvar rvar} {
	upvar $lvar left $rvar right
	global isleft

	if {$isleft} {
		set right [expr $max/2]
		set left [expr $max-$right]
		set isleft [expr !($max%2)]
	} else {
		set left [expr $max/2]
		set right [expr $max-$left]
		set isleft [expr $max%2]
	}
}

if {$distribute} {
	set lkeys {q w e r t a s d f g z x c v b}
	set rkeys {y u i o p h j k l n m}
	set lnums {1 2 3 4 5 6}
	set rnums {7 8 9 0}
	set lspec {! @ # \$ %}
	set rspec {^ &amp; * ( ) - = _ + [ ] &quot;{&quot; &quot;}&quot; \\ | ; : &#039; \&quot; &lt; &gt; , . ? /}
} else {
	set lkeys {a b c d e f g h i j k l m n o p q r s t u v w x y z}
	set rkeys {a b c d e f g h i j k l m n o p q r s t u v w x y z}
	set lnums {0 1 2 3 4 5 6 7 8 9}
	set rnums {0 1 2 3 4 5 6 7 8 9}
	set lspec {! @ # \$ % ~ ^ &amp; * ( ) - = _ + [ ] &quot;{&quot; &quot;}&quot; \\ | ; : &#039; \&quot; &lt; &gt; , . ? /}
	set rspec {! @ # \$ % ~ ^ &amp; * ( ) - = _ + [ ] &quot;{&quot; &quot;}&quot; \\ | ; : &#039; \&quot; &lt; &gt; , . ? /}
}

set lkeys_length [llength $lkeys]
set rkeys_length [llength $rkeys]
set lnums_length [llength $lnums]
set rnums_length [llength $rnums]
set lspec_length [llength $lspec]
set rspec_length [llength $rspec]

psplit $minnum left right
for {set i 0} {$i&lt;$left} {incr i} {
	insert lpass [lindex $lnums [rand $lnums_length]]
}
for {set i 0} {$i&lt;$right} {incr i} {
	insert rpass [lindex $rnums [rand $rnums_length]]
}

psplit $minlower left right
for {set i 0} {$i&lt;$left} {incr i} {
	insert lpass [lindex $lkeys [rand $lkeys_length]]
}
for {set i 0} {$i&lt;$right} {incr i} {
	insert rpass [lindex $rkeys [rand $rkeys_length]]
}

psplit $minupper left right
for {set i 0} {$i&lt;$left} {incr i} {
	insert lpass [string toupper [lindex $lkeys [rand $lkeys_length]]]
}
for {set i 0} {$i&lt;$right} {incr i} {
	insert rpass [string toupper [lindex $rkeys [rand $rkeys_length]]]
}

psplit $minspecial left right
for {set i 0} {$i&lt;$left} {incr i} {
	insert lpass [lindex $lspec [rand $lspec_length]]
}
for {set i 0} {$i&lt;$right} {incr i} {
	insert rpass [lindex $rspec [rand $rspec_length]]
}

# merge results together
foreach l $lpass r $rpass {
    if {$initially_left} {
	append password $l $r
    } else {
	append password $r $l
    }
}

if {[info exists user]} {
	if {!$verbose} {
		log_user 0
	}

	spawn $prog $user
	expect {
		&quot;assword*:&quot; {
			# some systems say &quot;Password (again):&quot;
			send -- &quot;$password\r&quot;
			# &quot;--&quot; because of passwords beginning with dash
			exp_continue
		}
	}

	# if user isn&#039;t watching, check status
	if {!$verbose} {
		if {[lindex [wait] 3]} {
			puts -nonewline &quot;$expect_out(buffer)&quot;
			exit 1
		}
	}

        if {$verbose} {
	    puts -nonewline &quot;password for $user is &quot;
        }
}

puts &quot;$password&quot;
</textarea><br><input type="hidden" name="edit_file" value="mkpasswd-expect"><input type="submit" value="Save"></form>