Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:yangdawei:gbs:openSUSE:12.1
expect
expect-5.32.2-random.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File expect-5.32.2-random.patch of Package expect
diff -up expect-5.43/example/mkpasswd.random expect-5.43/example/mkpasswd --- expect-5.43/example/mkpasswd.random 2004-12-07 00:38:21.000000000 +0100 +++ expect-5.43/example/mkpasswd 2008-09-25 12:27:19.000000000 +0200 @@ -92,7 +92,14 @@ proc insert {pvar char} { } proc rand {m} { - expr {int($m*rand())} + 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 "number is $number" +# puts "clipped is $clipped" + close $fileId + return $clipped } # choose left or right starting hand
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
