Re: cancel locks

[Simon Josefsson <jas@extundo.com>]

Jesper Harder <harder@ifa.au.dk> writes:

>>> If someone later wants to contribute a better password generator, it
>>> can be installed with no problem.
>>
>> Here is my contribution:
>>
>> (defun gnus-random-cancel-lock-password ()
>>   (random t)
>>   (format "%x%x" (random) (random)))
>
> Here's another one:
>
>        (md5 (prin1-to-string (recent-keys)))

Canlock should be inserted in news by default now -- customize
`message-insert-canlock' if you want to disable it.  We need some
documentation though, preferably in the "Canceling and Superseding"
node.

The initial password is generated with the following, better ideas
welcome.

(defun message-canlock-generate ()
  "Return a string that is non-trival to guess.
Do not use this for anything important, it is cryptographically weak."
  (md5 (concat (message-unique-id)
	       (format "%x%x%x" (random) (random t) (random))
	       (prin1-to-string (recent-keys))
	       (prin1-to-string (garbage-collect)))))