To generate new root passwords, we did:

#!/usr/bin/perl -w
use MIME::Base64;

open RND,'<','/dev/urandom';
sysread RND,$rnd,1024;
close RND;
print encode_base64($rnd);
[download]

And then we hunted into the result for something we would be able to remember.

Note: this supposes you are on a system that has /dev/urandom. Substitute it with any reasonable random-stream generator.

-- 
        dakkar - Mobilis in mobile