身份证校验码

aimisiyou · 发表于 2015-1-24 16:12:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 aimisiyou 于 2015-1-24 20:01 编辑

(defun c:sfz ()
  (setq str (getstring "请输入身份证前17位数："))
  (setq alst (mapcar '(lambda (e) (- e 48))(vl-string->list str)))
  (setq blst '(7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2))  (setq n (apply '+ (mapcar '*  alst blst)))
  (setq num (cdr (assoc (rem n 11) '((0 . "1")(1 . "0")(2 . "x")(3 . "9")(4 . "8")(5 . "7")(6 . "6")(7 . "5")(8 . "4")(9 . "3")(10 . "2")))))
  (princ "你的18位身份证号是：" )
  (princ (strcat str num))
  (princ)
)

HLCAD · 发表于 2015-1-25 07:54:34

妙哉——(setq alst (mapcar '(lambda (e) (- e 48))(vl-string->list str)))

显示全部楼层 · 发表于 2015-10-25 10:48:49

提示: 作者被禁止或删除内容自动屏蔽

账号		自动登录	找回密码
密码			立即注册

昕没函pl 该用户已被删除	发表于 2015-10-25 10:48:49 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
昕没函pl 该用户已被删除	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[分享] 身份证校验码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块