負数は考えなくていいなら
ELISP> (mapcar (lambda (c) (- c 48)) (string-to-list (format "%d" 12345)))
(1 2 3 4 5)