Function: message-make-caesar-translation-table

message-make-caesar-translation-table is a byte-compiled function defined in message.el.gz.

Signature

(message-make-caesar-translation-table N)

Documentation

Create a rot table with offset N.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-make-caesar-translation-table (n)
  "Create a rot table with offset N."
  (let ((i -1)
	(table (make-string 256 0)))
    (while (< (incf i) 256)
      (aset table i i))
    (concat
     (substring table 0 ?A)
     (substring table (+ ?A n) (+ ?A n (- 26 n)))
     (substring table ?A (+ ?A n))
     (substring table (+ ?A 26) ?a)
     (substring table (+ ?a n) (+ ?a n (- 26 n)))
     (substring table ?a (+ ?a n))
     (substring table (+ ?a 26) 255))))