Function: hashcash-generate-payment

hashcash-generate-payment is a byte-compiled function defined in hashcash.el.gz.

Signature

(hashcash-generate-payment STR VAL)

Documentation

Generate a hashcash payment by finding a VAL-bit collision on STR.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/hashcash.el.gz
(defun hashcash-generate-payment (str val)
  "Generate a hashcash payment by finding a VAL-bit collision on STR."
  (if (and (> val 0)
	   hashcash-program)
      (with-current-buffer (get-buffer-create " *hashcash*")
	(erase-buffer)
	(apply 'call-process hashcash-program nil t nil
	       "-m" "-q" "-b" (number-to-string val) str
	       hashcash-extra-generate-parameters)
	(goto-char (point-min))
	(hashcash-token-substring))
    (error "No `hashcash' binary found")))