{"id":2827,"date":"2014-08-18T12:12:38","date_gmt":"2014-08-18T03:12:38","guid":{"rendered":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/?p=2827"},"modified":"2019-07-01T00:10:34","modified_gmt":"2019-06-30T15:10:34","slug":"xyzzy%e3%81%a7make-password","status":"publish","type":"post","link":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/2014\/08\/18\/2827\/","title":{"rendered":"xyzzy\u3067make-password"},"content":{"rendered":"<p>\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u5358\u306a\u308b\u30e9\u30f3\u30c0\u30e0\u9078\u629e\u3067\u306e\u81ea\u52d5\u751f\u6210\u7528\u306e\u30b9\u30af\u30ea\u30d7\u30c8\uff08\u3042\u3068\u3067\u898b\u305f\u3089Tcl\u30b9\u30af\u30ea\u30d7\u30c8\u3060\u3063\u305f\u2026\uff09\u3092\u7f6e\u3044\u3066\u3044\u308b\u30b5\u30fc\u30d0\u304c\u52d5\u4f5c\u3057\u3066\u3044\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u624b\u5143\u306eWindows\u3067\u52d5\u304b\u3057\u3066\u3044\u305fXyzzy\u306elisp\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3050\u306b\u3067\u304d\u308b\u3060\u308d\u3046\u3068\u601d\u3063\u3066\u3044\u305f\u3089\u3001\u30ea\u30b9\u30c8\u64cd\u4f5c\u3082\u5fd8\u308c\u3001\u95a2\u6570\u5b9a\u7fa9\u3082\u5fd8\u308c\u3067\u601d\u3044\u306e\u307b\u304b\u624b\u3053\u305a\u3063\u3066\u3057\u307e\u3063\u305f\u2026\u3002<\/p>\n<div class=\"hl-surround\" ><div class=\"hl-main\"><pre>(defun make-password (&amp;optional (n 7))\r\n  (let\r\n      (res (base &quot;ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_&quot;))\r\n    (dotimes (i n)\r\n      (setq res (append res (list (char base (random (length base)))))))\r\n    (coerce res 'string)))<\/pre><\/div><\/div>\n<p>\u3082\u3063\u3068\u3044\u3044\u7d44\u307f\u65b9\u3082\u3042\u308b\u3093\u3067\u3057\u3087\u3046\u3051\u3069\u3002<\/p>\n<p><b>\u4f7f\u7528\u4f8b<\/b><\/p>\n<div class=\"hl-surround\" ><div class=\"hl-main\"><pre>(make-password 7)\r\n&quot;PMu7xrX&quot;<\/pre><\/div><\/div>\n<p><b>\u30ea\u30f3\u30af<\/b><\/p>\n<ul>\n<li><a href=\"http:\/\/www.geocities.jp\/m_hiroi\/xyzzy_lisp\/abclisp02.html\">M.Hiroi&#8217;s Home Page \/ xyzzy Lisp Programming<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/homepage2.nifty.com\/coin\/xyzzy_lisp_prog\/define_function.html#sec3\">3.\u95a2\u6570\u5b9a\u7fa9\u306e\u66f8\u304d\u65b9<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/www2.ocn.ne.jp\/~cheerful\/script\/xyzzy\/customize\/siteinit.html\">siteinit.l \u3068.xyzzy\u306e\u8a2d\u5b9a\u4f8b | \u3057\u3087\u307c\u3057\u3087\u307c\u3059\u304f\u308a\u3077\u3068 xyzzy<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/www.quels.net\/tatutoki\/code\/xyzzy.html\">xyzzy-Lisp\u3067\u50d5\u8272\u306b\u67d3\u307e\u3063\u305f\u30a8\u30c7\u30a3\u30bf\u3092\u4f5c\u308d\u3046\u305c<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/www2.ocn.ne.jp\/~cheerful\/script\/xyzzy\/prac\/control.html\">lisp\u306e\u5236\u5fa1\u69cb\u6587 \u3057\u3087\u307c\u3057\u3087\u307c\u3059\u304f\u308a\u3077\u3068 xyzzy<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/hie.s64.xrea.com\/xyzzy\/note\/\">xyzzy \u306e\u97f3<br \/>\n<\/a>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u5358\u306a\u308b\u30e9\u30f3\u30c0\u30e0\u9078\u629e\u3067\u306e\u81ea\u52d5\u751f\u6210\u7528\u306e\u30b9\u30af\u30ea\u30d7\u30c8\uff08\u3042\u3068\u3067\u898b\u305f\u3089Tcl\u30b9\u30af\u30ea\u30d7\u30c8\u3060\u3063\u305f\u2026\uff09\u3092\u7f6e\u3044\u3066\u3044\u308b\u30b5\u30fc\u30d0\u304c\u52d5\u4f5c\u3057\u3066\u3044\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u624b\u5143\u306eWindows\u3067\u52d5\u304b\u3057\u3066\u3044\u305fXyzzy\u306elisp\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3050\u306b\u3067\u304d\u308b\u3060 [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"inline_featured_image":false,"footnotes":""},"categories":[1],"tags":[34,346],"_links":{"self":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts\/2827"}],"collection":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/comments?post=2827"}],"version-history":[{"count":4,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts\/2827\/revisions"}],"predecessor-version":[{"id":3365,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts\/2827\/revisions\/3365"}],"wp:attachment":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/media?parent=2827"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/categories?post=2827"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/tags?post=2827"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}