Yamaha\u30eb\u30fc\u30bf\u3044\u308d\u3044\u308d\u30b9\u30af\u30ea\u30d7\u30c8<\/a><\/p>\n <\/p>\n
JavaScript\u3067\u3056\u30fc\u3063\u3068\u4f5c\u3063\u3066\u3042\u308b\u306e\u3067\u3001HTML\u30b3\u30d4\u30da\u3057\u3066\u3042\u3052\u308c\u3070\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u3068\u304b\u3067\u3082\u52d5\u304d\u307e\u3059\u3002
\n\u30d1\u30b9\u306b\u6587\u5b57\u5165\u308c\u305f\u3044\u3068\u304b\u3042\u308c\u3070\u30fc\u3002
\n\u81ea\u5206\u3067\u4f7f\u3046\u3064\u3044\u3067\u306b\u7f6e\u3044\u3066\u304a\u304f\u306e\u3067\u4f7f\u3046\u4eba\u3044\u305f\u3089\u3069\u3046\u305e\u30fc\u3002
\n<\/p>\n
<\/p>\n
Windows\u306e\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u3067\u52d5\u304fPerl\u3082\u7f6e\u3044\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n
#!\/usr\/bin\/perl\r\n\r\n\r\nuse strict;\r\nuse warnings;\r\nuse Encode;\r\nuse utf8;\r\n\r\nbinmode STDOUT, \":encoding(cp932)\";\r\n\r\n\r\n# L2TP\u30e6\u30fc\u30b6\u305f\u304f\u3055\u3093\u3064\u304f\u308bPerl\r\n\r\n\r\n# \u6587\u5b57\r\nmy @moji = qw\/a b c d e f g h i j k m n p q r s t u v w x y z A B C D E F G H J K L M N P Q R S T U V W X Y Z 2 3 4 5 6 7 8 9\/;\r\n\r\n# \u524d\u60c5\u5831\u5165\u529b\r\nmy $minline = 1;\r\nmy $maxline = 10;\r\nmy $ident = \"\";\r\nmy $psk = \"\";\r\nmy $kpav = 0;\r\nmy $zfill = 0;\r\nmy $uc = 0;\r\nmy $pc = 0;\r\nmy $output = \"\";\r\n\r\n\r\nprint \"\u958b\u59cb\u30c8\u30f3\u30cd\u30eb\u756a\u53f7(default:1):\";\r\n$minline = <STDIN>;\r\n\r\nprint \"\u7d42\u4e86\u30c8\u30f3\u30cd\u30eb\u756a\u53f7(default:10):\";\r\n$maxline = <STDIN>;\r\n\r\nprint \"\u30e6\u30fc\u30b6\u8b58\u5225\u5b50(default:vpnuser):\";\r\n$ident = <STDIN>;\r\n\r\nprint \"\u4e8b\u524d\u5171\u6709\u9375 \u203b8\u6587\u5b57\u4ee5\u4e0a(default:sharedkey):\";\r\n$psk = <STDIN>;\r\n\r\nprint \"\u30ad\u30fc\u30d7\u30a2\u30e9\u30a4\u30d6\u5229\u7528\u6709\u7121 1=\u6709,0=\u7121(default:1\uff09:\";\r\n$kpav = <STDIN>;\r\n\r\nprint \"\u30e6\u30fc\u30b6\u5e8f\u65700\u57cb\u6841\u6570(default:2):\";\r\n$zfill = <STDIN>;\r\n\r\nprint \"\u30e6\u30fc\u30b6\u6570(default:10):\";\r\n$uc = <STDIN>;\r\n\r\nprint \"\u30d1\u30b9\u30ef\u30fc\u30c9\u6841\u6570(default:8):\";\r\n$pc = <STDIN>;\r\n\r\nprint \"\u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u540d(default:l2tp.txt):\";\r\n$output = <STDIN>;\r\n\r\n\r\n\r\n# \u6539\u884c\u524a\u9664\r\nchomp($minline);\r\nchomp($maxline);\r\nchomp($ident);\r\nchomp($psk);\r\nchomp($kpav);\r\nchomp($zfill);\r\nchomp($uc);\r\nchomp($pc);\r\nchomp($output);\r\n\r\n\r\n\r\n# \u521d\u671f\u5024\u5165\u529b\r\nif ($minline eq \"\") { $minline = 1; }\r\nif ($maxline eq \"\") { $maxline = 10; }\r\nif ($ident eq \"\") { $ident = \"vpnuser\"; }\r\nif ($psk eq \"\") { $psk = \"sharedkey\"; }\r\nif ($kpav eq \"\") { $kpav = 1; }\r\nif ($zfill eq \"\") { $zfill = 2; }\r\nif ($uc eq \"\") { $uc = 10; }\r\nif ($pc eq \"\") { $pc = 8; }\r\nif ($output eq \"\") { $output = \"l2tp.txt\"; }\r\n\r\n# \u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u306e\u672b\u5c3e\u304c.txt\u3058\u3083\u306a\u3044\u5834\u5408.txt\u3092\u4ed8\u3051\u308b\r\nif ($output !~ \/^.+\\.txt$\/) { $output .= \".txt\"; }\r\n\r\n\r\n# \u30a8\u30e9\u30fc\r\nmy @errors;\r\nif ($minline !~ \/^\\d+$\/) { push(@errors, \"\u958b\u59cb\u30c8\u30f3\u30a8\u30eb\u756a\u53f7\u304c\u6570\u5024\u3067\u306a\u3044\u3067\u3059\u3002\"); }\r\nif ($maxline !~ \/^\\d+$\/) { push(@errors, \"\u7d42\u4e86\u30c8\u30f3\u30a8\u30eb\u756a\u53f7\u304c\u6570\u5024\u3067\u306a\u3044\u3067\u3059\u3002\"); }\r\nif ($zfill !~ \/^\\d+$\/) { push(@errors, \"\u30e6\u30fc\u30b6\u5e8f\u6570\u6841\u6570\u304c\u6570\u5024\u3067\u306a\u3044\u3067\u3059\u3002\"); }\r\nif ($uc !~ \/^\\d+$\/) { push(@errors, \"\u30e6\u30fc\u30b6\u6570\u304c\u6570\u5024\u3067\u306a\u3044\u3067\u3059\u3002\"); }\r\nif ($pc !~ \/^\\d+$\/) { push(@errors, \"\u30d1\u30b9\u30ef\u30fc\u30c9\u6841\u6570\u304c\u6570\u5024\u3067\u306a\u3044\u3067\u3059\u3002\"); }\r\nif (length($psk) < 8) { push(@errors, \"\u4e8b\u524d\u5171\u6709\u9375\u306f8\u6587\u5b57\u4ee5\u4e0a\u3067\u3059\u3002\"); }\r\nif ($kpav != 1 && $kpav != 0) { push(@errors, \"\u30ad\u30fc\u30d7\u30a2\u30e9\u30a4\u30d6\u6709\u7121\u306f1\u304b0\u3067\u3059\u3002\"); }\r\nif ($maxline < $minline) { push(@errors, \"\u958b\u59cb\u30c8\u30f3\u30cd\u30eb\u756a\u53f7\u304c\u3001\u7d42\u4e86\u30c8\u30f3\u30cd\u30eb\u756a\u53f7\u3088\u308a\u5927\u304d\u3044\u3067\u3059\u3002\"); }\r\n\r\n\r\n# \u30a8\u30e9\u30fc\u304c\u3042\u308c\u3070\u7d42\u4e86\r\nif (scalar(@errors) > 0)\r\n{\r\n\tprintf(\"%s\", join(\"\\n\", @errors));\r\n\texit(1);\r\n}\r\n\r\n\r\n# \u7f6e\u304d\u63db\u3048\u51e6\u7406\r\nif ($kpav == 0) { $kpav = \"off\"; }\r\nelse { $kpav = \"on\"; }\r\n\r\n\r\n# \u51fa\u529b\r\nopen my $file, \">:encoding(cp932)\", $output;\r\nflock($file, 2);\r\ntruncate($file, 0);\r\nseek($file, 0, 0);\r\n\r\n\r\n\r\n# \u8a8d\u8a3c\r\nprintf $file \"pp select anonymous\\n\";\r\nfor (my $i = 1; $i <= $uc; $i++)\r\n{\r\n\tmy $rand = \"\";\r\n\tfor (my $j = 0; $j < $pc; $j++) { $rand .= $moji[int(rand(@moji))]; }\r\n\t\r\n\tprintf $file \"pp auth username %s%0\".$zfill.\"d %s\\n\", $ident, $i, $rand;\r\n}\r\n\r\nprint $file \"\\n\";\r\n\r\n# \u30c8\u30f3\u30cd\u30eb\r\nfor (my $i = $minline; $i <= $maxline; $i++)\r\n{\r\n\tprintf $file \"tunnel select %d\\n\", $i;\r\n\tprintf $file \" tunnel encapsulation l2tp\\n\";\r\n\tprintf $file \" ipsec tunnel %d\\n\", $i;\r\n\tprintf $file \" ipsec sa policy %d %d esp aes-cbc sha-hmac\\n\", $i, $i;\r\n\tprintf $file \" ipsec ike keepalive log %d off\\n\", $i;\r\n\tprintf $file \" ipsec ike keepalive use %d %s\\n\", $i, $kpav;\r\n\tprintf $file \" ipsec ike nat-traversal %d on\\n\", $i;\r\n\tprintf $file \" ipsec ike pre-shared-key %d text %s\\n\", $i, $psk;\r\n\tprintf $file \" ipsec ike remote address %d any\\n\", $i;\r\n\tprintf $file \" l2tp tunnel auth off\\n\";\r\n\tprintf $file \" l2tp tunnel disconnect time off\\n\";\r\n\tprintf $file \" l2tp keepalive use on\\n\";\r\n\tprintf $file \" ip tunnel tcp mss limit auto\\n\";\r\n\tprintf $file \" tunnel enable %d\\n\", $i;\r\n}\r\n\r\nprint $file \"\\n\";\r\n\r\n\r\n# \u30c8\u30e9\u30f3\u30b9\u30dd\u30fc\u30c8\r\nfor (my $i = $minline; $i <= $maxline; $i++)\r\n{\r\n\tprintf $file \"ipsec transport %d %d udp 1701\\n\", $i, $i;\r\n}\r\n\r\nclose($file);\r\n\r\n1;\r\n\r\n\r\n<\/pre>\n <\/p>\n
<\/p>\n
\u3066\u304d\u3068\u30fc\u306b\u96d1\u306b\u3064\u304f\u3063\u305f\u3084\u3064\u306a\u3093\u3067\u4e2d\u8eab\u306b\u3064\u3044\u3066\u306f\u306e\u30fc\u3053\u3081\u3093\u3068\u3067\u2026\u2026\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30ea\u30e2\u30fc\u30c8\u30ef\u30fc\u30af\u9700\u8981\u3067\u3001Yamaha\u306e\u30eb\u30fc\u30bf\u306eL2TP\u8a2d\u5b9a\u3059\u308b\u3053\u3068\u304c\u591a\u304f\u306a\u3063\u3066\u304d\u305f\u3093\u3067\u3059\u304c\u2026\u2026\u3002 \u57fa\u672c\u30e6\u30fc\u30b6\u6570\u304c\u591a\u3059\u304e\u3066\u30b3\u30d4\u30da\u3068\u30c8\u30f3\u30cd\u30eb\u6570\u5b57\u5165\u66ff\u304c\u3081\u3093\u3069\u304f\u3055\u3044\u306e\u3068\u3001\u624b\u52d5\u3067”no “\u3092Ctrl+V\u3059\u308b […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19,14,10,8],"tags":[],"_links":{"self":[{"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=\/wp\/v2\/posts\/246"}],"collection":[{"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=246"}],"version-history":[{"count":1,"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=\/wp\/v2\/posts\/246\/revisions"}],"predecessor-version":[{"id":247,"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=\/wp\/v2\/posts\/246\/revisions\/247"}],"wp:attachment":[{"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=246"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=246"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.grandaria.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=246"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}