約 4,642,978 件
https://w.atwiki.jp/pawapuropassword/pages/22.html
①アレンジチーム配布 パワプロＮＰＢ実在選手限定能力査定wikiの選手査定をコピペした アレンジチームのファイルはこちら→ アレンジファイル 注意 色々細かい部分がいい加減です。 カラバイヨ セギノールなどがいません。 ②選手配布 このページの選手査定は パワプロＮＰＢ実在選手限定能力査定wiki に基づいています 平野佳 パスワード 投打：右右 グラブ黒 フォーム：スリークォーター（平野佳投法） 最高球速：156km/h コントロール：C136 スタミナ：E55 変化球１：スライダー 変化レベル：1 変化球２：フォーク 変化レベル：4 変化球３：Ｖスライダー 変化レベル：2 特殊能力：回復4 奪三振 牽制○ クイック4 起用条件：中継ぎ/接戦時 打率.167 0本 0打点 ↑1ミG1パF27走E7肩B12守E7エE7 フォーム： 特殊能力： 岸田 パスワード 投打：右右 グラブ黒 フォーム：オーバー（セット） 最高球速：152km/h コントロール：B162 スタミナ：D78 変化球１：スライダー 変化レベル：3 変化球２：Ｄカーブ 変化レベル：1 変化球３：サークルチェンジ 変化レベル：2 特殊能力：対ピンチ4 ケガ2 対ランナー2 起用条件：中継ぎ（先発中継ぎ）/中継ぎエース（セーブ狙い） 打率--- -本 -打点 ↑1ミG1パF24走E7肩C11守E7エD8 フォーム： 特殊能力： T-岡田 パスワード 投打：左左 バット黒 リストバンド右白左なし グラブシルバー フォーム：スタンダード（斜・回） ポジション：外7/一6 弾道 ：4 ミート：E7 パワー：A150 走力 ：E6 肩力 ：E7 守備力：F5 エラー：F4 特殊能力：チャンス4 対左2 サブポジ4 PH 広角打法 三振 初球○ 特殊能力：強振多用 人気者 起用条件： 北川 パスワード 投打：右右 バット木 リストバンド右青左青 グラブ黒 フォーム：オープン（北川打法） ポジション：一7/三3/捕1 弾道 ：2 ミート：D9 パワー：B110 走力 ：E6 肩力 ：E7 守備力：E7 エラー：D9 特殊能力：チャンス4 対左4 サブポジ2 ケガ2 満塁H男 満塁HR男 キャッチャー1(キャッチャー0) 起用条件：代打要員 途中交代 後藤 パスワード 投打：右左 バット茶/黒 リストバンド右赤左赤 グラブ茶 フォーム：スタンダード（垂直） ポジション：二7/遊4/三3 弾道 ：3 ミート：C10 パワー：C102 走力 ：C11 肩力 ：C10 守備力：C10 エラー：E6 特殊能力：サブポジ2 ケガ2 特殊能力：積極打法 慎重盗塁 積極守備 チームプレイ○ 起用条件：
https://w.atwiki.jp/streetdreams/pages/10.html
https://w.atwiki.jp/src_review/pages/1038.html
392 ：名無しさん(ザコ)：2013/05/05(日) 06 30 20 ID PtfjGG9E0 【ミリオンアイドルＺ】 分類するとすれば、一発ネタに該当するであろうシナリオ。 アイマスのソシャゲーをド○ゴンボールＺ風に始めるという「なぜ発想した」と突っ込みどころ満載である。 ゲームシステムは独特なものになっており、軽い気持ちで除くと地獄を見ることになる。 やることといえば営業→攻撃→アイテムでＥＮ回復を永遠に繰り返すだけある。 行動のたびに何かしらのイベントが発生するが、特に意味があるのか不明だったり そもそもユニットの移動が０なのに射程が全て１である。 これだけ挙げるとひどいように感じるが、実際にプレイするとSNSゲー特有の不毛さを見事に再現していることが分かる。 マップが現れて最初の選択肢で元ネタを知らないという選択肢を選ぶと、その場で終了する。 プレイした後になって思えば、これが作者のやさしさだったのだろうとさえ思えるシナリオである。
https://w.atwiki.jp/katroom/pages/22.html
PCエンジン R-TYPE パスワード解析（不完全版） 1文字目：スピード パスワード スピード A,B 0 C,D 1 E,F 2 G,H 3 I,J 4 詳細 ※10万点台が0の場合 基本値：A 1000点台の数値が2,3,6,7の場合(要は1000点台 0x02 の結果が0以外)、AとB入れ替え 1000点台が奇数で100点台が偶数の場合、AとB入れ替え ※テーブルイメージ 0 100 200 300 0 A A A A 1000 B A B A 2000 B B B B 3000 A B A B 1万点台が奇数の場合、AとB入れ替え 10万点台の数値が2,3,6,7の場合、AとB入れ替え ミサイル有りの場合は、AとB入れ替え 上記結果よりスピード分の対応文字を設定 (上記結果Bでスピード1にする場合、結果D) 2文字目：残機数 パスワード 残機 A,B ※ C,D 0 E,F 1 G,H 2 I,J 3 K,L 4 M,N 5 O,P 6 詳細 ※10万点台が0の場合 ※テーブルイメージ 0 100 200 300 0 D C D C 1000 D D D D 2000 D C C D 3000 C D D C ※4000～7000点台は上記の反転パターン ※20000点台も上記の反転パターン 0 100 200 300 10000 D D D D 11000 D D D D 12000 C C D D 13000 D C C D ※14000～17000点台は上記の反転パターン ※30000点台も上記の反転パターン 上記結果より残機分の対応文字を設定 ※補足 C、E・・・など元の文字から2文字ずつずらしてパスワードを変更することが可能。 ただし、A・Bに関しては、残機7で終了した場合 クリア時のパスワードとしては表示されるが、 パスワードを入力してもエラーとなる。 3文字目：Bit、ミサイル パスワード Bit ミサイル A,B なし なし C,D なし あり E,F 1 なし G,H 1 あり I,J 2 なし K,L 2 あり 詳細 ※10万点台が0の場合 ※テーブルイメージ 0 100 200 300 0 B A A B 1000 B B A A 2000 A B B B 3000 B A B B 4000 B A A A 5000 B B A A 6000 A A A B 7000 A A B A ※0万点～3万点まで使いまわし、反転パターンはなし 数値1文字目：スコア100点台 計算式： 数値2文字目の値 -2 - (1000点台の数値 - 100点台の数値) 上記結果を10で割った余り 数値2文字目：スコア1000点台 計算式： 数値3文字目の値 -1 - (1万点台の数値 - 1000点台の数値) 上記結果を10で割った余り 数値3文字目：スコア1万点台 計算式： 数値4文字目の値 +2 - (10万点台の数値 - 1万点台の数値) 上記結果を10で割った余り 数値4文字目：スコア10万点台※数値基本 1000点台が偶数時の文字 1000点台が奇数時の文字 スコア 1,5,3,7 4,8,2,6 00万点台 3,7,5,9 4,8,2,6 10万点台 3,7,5,9 6,0,4,8 20万点台 5,9,7,1 6,0,4,8 30万点台 5,9,7,1 8,2,6,0 40万点台 7,1,9,3 8,2,6,0 50万点台 7,1,9,3 0,4,8,2 60万点台 9,3,1,5 0,4,8,2 70万点台 9,3,1,5 2,6,0,4 80万点台 1,5,3,7 2,6,0,4 90万点台 ※補足 パスワードの文字からスコアを計算すると、8種類の可能性がある。 以下有効なパスワードを記述。 81900点：ADB-4866-BB 425300点：ACA-4866-BB 後半1文字目：周回数、フォースの強さ パスワード 周回 フォース A,B 1 なし C,D 2 なし※RTYPE II- I E,F 1 1段階 G,H 2 1段階 I,J 1 2段階 K,L 2 2段階 M,N 1 3段階 O,P 2 3段階 ※テーブルの使いまわしパターンはかなり少ない ※8000点と200点、8600点と0点の基本値が同一など 使いまわしパターンも若干複雑になっている 0 100 200 300 400 500 600 700 0 A B A A B A B B 8000 A A B A B B A B ※補足 A、C、E・・・など元の文字から2文字ずつずらしてパスワードを変更することが可能。 RTYPE II- I に関しては、1周目のパスワードはない。 また、RTYPE II- I 2周目開始時はフォースが無いため、CかD以外はありえない。 後半2文字目：レーザーの種類、100万点、RTYPE II- I パスワード レーザー 100万点 RTYPE II- I A,B 反射 C,D 反射 100万点 E,F 対地 G,H 対地 100万点 I,J 対空 K,L 対空 100万点 M,N なし RTYPE II- I O,P なし 100万点 RTYPE II- I 詳細 基本文字：A 1000点台が奇数の場合、A・B入れ替え 10万点台が奇数の場合、A・B入れ替え 上記結果よりレーザー、100万点、II= Iに対応する文字を設定 ※補足 A、C、E・・・など元の文字から2文字ずつずらしてパスワードを変更することが可能。 RTYPE II- I 2周目開始時はフォースが無いため、レーザーもない。 パスワードから何十万点か見分ける方法 1文字目、2文字目、9文字目の文字を以下のルールでAまたはBに振り分ける 集約文字 パスワード文字 A A,C,E,G,I,K,M,O B B,D,F,H,J,L,N.P これらの3文字の組み合わせの列の中から数値4文字目の値を示した値の左横に 対応する10万点台の数値が記載されている。 点数 AAA AAB BAA BAB ABA ABB BBA BBB 00万点 1 2 3 4 5 6 7 8 10万点 2 3 4 5 6 7 8 9 20万点 3 4 5 6 7 8 9 0 30万点 4 5 6 7 8 9 0 1 40万点 5 6 7 8 9 0 1 2 50万点 6 7 8 9 0 1 2 3 60万点 7 8 9 0 1 2 3 4 70万点 8 9 0 1 2 3 4 5 80万点 9 0 1 2 3 4 5 6 90万点 0 1 2 3 4 5 6 7 おまけ 上記表から、各裏ワザ本で公開されている内容を解析 (1)PCエンジンFAN系の裏技に出ているパスワード DIL-1134-AA スピード1、残機3、Bit2、ミサイル有り スコアは1000点台は奇数、 1,2,9文字目の集約はBAAで数字4文字目が4なので、10万台(187900) 後半2文字は、A、C・・・のいずれかを登録 ※後半2文字は裏ワザ本にも解説あるが、周回と100万点台の説明がない (2)月刊PCエンジン系の裏技に出ているパスワード DPK-6133-DN スピード1、残機6、Bit2、ミサイル有り スコアは1000点台は偶数、 1,2,9文字目の集約はBBBで数字4文字目が3なので、50万台(532900) フォースなし、RTYPE Iの2周目。 (3)月刊PCエンジン系の裏技に出ているパスワード COK-1722-NI スピード1、残機6、Bit2、ミサイル有り スコアは1000点台は奇数、 1,2,9文字目の集約はAAAで数字4文字目が2なので、10万台(195100) 1周目、フォース3段階、対空レーザー ※後半2文字は裏ワザ本にも解説あるが、フォースの強さに関しては省略されている 無効パスワードが出る可能性がある（バグ？） ※以下件は理論上の話で、全パターンで確認したわけではありません。 （一部パターンのみで確認） パスワード表示時点で、(裏技を使わない場合)70万点以上獲得し、 残機7の状態だと、パスワード2文字目がAまたはBとなり、 次の登録時にエラーとなる。 その場合2文字目をAならOに、BならPにすることで 残機6の状態から再開することができる。 ※未確認だが、上記月刊PCエンジンのパスワード 「COK-1722-NI」を使い、20万でExtendした後 ノーミスでクリアすれば同現象になると思われる。 (NGパスワード表示時のイメージ)
https://w.atwiki.jp/pawapuropassword/pages/16.html
このページの選手査定は パワプロＮＰＢ実在選手限定能力査定wiki に基づいています ロメロ パスワード 投打：右右 グラブ黒 フォーム：スリークォーター（ノーワインド） 最高球速：152km/h コントロール：E115 スタミナ：E40 変化球１：スライダー 変化レベル：2 変化球２：ＳＦＦ 変化レベル：2 特殊能力：身長高い 起用条件：抑え/おまかせ 打率--- -本 -打点 ↑1ミG1パF24走E6肩C11守E7エD8 フォーム： 特殊能力： 辻内 パスワード 投打：左左 グラブオレンジ フォーム：スリークォーター（ノーワインド） 最高球速：151km/h コントロール：G90 スタミナ：C80 変化球１：スライダー 変化レベル：2 変化球２：フォーク 変化レベル：1 特殊能力：ケガ2 特殊能力：投球位置左 起用条件：先発中継ぎ/おまかせ 打率--- -本 -打点 ↑1ミG1パF24走E6肩C11守E6エE6 フォーム： 特殊能力： 星野 投打：左左 グラブ黒 フォーム：サイド上（ノーワインド） 最高球速：148km/h コントロール：E118 スタミナ：E40 変化球１：スライダー 変化レベル：3 変化球２：Ｈスライダー 変化レベル：1 変化球３：チェンジアップ 変化レベル：1 特殊能力：対左4 軽い球 四球 起用条件：中継ぎ/ビハインドでも 打率--- -本 -打点 ↑1ミG1パF24走E7肩C10守E7エD8 フォーム： 特殊能力： ペタジーニ パスワード 投打：左左 バット黒 リストバンド右白左白 グラブ黒 フォーム：オープン ポジション：一7/外1 弾道 ：4 ミート：D8 パワー：B110 走力 ：F5 肩力 ：F5 守備力：E6 エラー：E6 特殊能力：対左2 初球○ 特殊能力：強振多用 慎重打法 選球眼 起用条件： 斉藤和 パスワード 投打：右右 フォーム：オーバー（斉藤和投法） 最高球速：145km/h コントロール：D120 スタミナ：E45 変化球１：カーブ 変化レベル：1 変化球２：ＳＦＦ 変化レベル：2 特殊能力：回復2 ケガ2 闘志 特殊能力：身長高い 起用条件：先発中継ぎ/おまかせ 打率--- -本 -打点 ↑1ミG1パF24走E6肩C10守D9エC10 フォーム： 特殊能力： 小野寺 パスワード 投打：右右 フォーム：オーバー（セット） 最高球速：152km/h コントロール：D120 スタミナ：E53 変化球１：スライダー 変化レベル：1 変化球２：フォーク 変化レベル：4 特殊能力：打たれ強さ2 安定度2 対左4 四球 起用条件：中継ぎ/リード時 打率--- -本 -打点 ↑1ミG1パF24走E6肩C11守D8エC10 フォーム： 特殊能力： フェルナンデス パスワード 投打：右右 フォーム：スタンダード（フェルナンデス打法） ポジション：一7/三5 弾道 ：3 ミート：E7 パワー：B120 走力 ：E7 肩力 ：D9 守備力：F4 エラー：G2 特殊能力：チャンス2 送球2 ケガ2 安定度2 逆境○ 初球○ エラー 特殊能力：強振多用 積極走塁 チームプレイ× 身長高い 起用条件： 秋親 パスワード 投打：右右 グラブ黒 フォーム：スリークォーター（セット） 最高球速：148km/h コントロール：D120 スタミナ：E49 変化球１：スライダー 変化レベル：2 変化球２：フォーク 変化レベル：4 特殊能力：対左4 奪三振 四球 起用条件：中継ぎ/ビハインドでも 阿南 パスワード 投打：左両 グラブ革 フォーム：スリークォーター（セット） 最高球速：144km/h コントロール：F105 スタミナ：E39 変化球１：スライダー 変化レベル：3 特殊能力：キレ2 四球 対左4 特殊能力：変化球中心 起用条件：中継ぎ/敗戦処理 ↑1ミG1パF24走E6肩D9守E6エE6 フォーム： 特殊能力： ホワイトセル パスワード 投打：左左 バット木 リストバンド右なし左なし フォーム：オープン（回） ポジション：一7/外5 弾道 ：2 ミート：E6 パワー：D90 走力 ：E7 肩力 ：E6 守備力：E6 エラー：D8 特殊能力：対左2 起用条件：
https://w.atwiki.jp/frontmission3/pages/502.html
フォーラム パスワード 内容 入手 方法 時期 政府 OCU陸軍情報部 G3F8A 『OCU陸軍情報部にアクセス』アクセス テキストデータ「TRIAL Report《スキャナーズ試用レポート》」を参照 STAGE08 M8D0S 『MIDAS』アクセス 『オーストラリア／政府／CIU／CIUファイルアクセスシステム／OCU REGIONAL GATE［DJV］／ES ASIA［FTBTJB］』を参照 STAGE24～34 J1D2F3 『JDF』アクセス テキストデータ「TRIAL Report《スキャナーズ試用レポート》」を参照 STAGE08 『日本／企業／JBNN／編成局（JBNN編成局）／特捜部［YAMS］／FILE 8341G 1』を参照 STAGE12 DTHTZT 『DA HAN ZHONG』アクセス 『オーストラリア／政府／CIU／CIUファイルアクセスシステム／SECRET GATE［UFSDFT］／DA HAN ZHONG［AIE］／NEW POLITICAL POWER IN DA HAN ZHONG』を参照 STAGE40 C4I5U6 『CIU』アクセス メール（亮五）：神宮寺静「大変なことに」を参照 STAGE09 SELOV 『セロフ＝ウォーレン』アクセス CIU DJV 『OCU REGIONAL GATE』アクセス テキストデータ「CIU Logfile《CIU職員の通信LOG》」にレストレックスを使用後、参照 STAGE12 FTBTJB 『ES ASIA』アクセス テキストデータ「CIU Logfile《CIU職員の通信LOG》」にレストレックスを使用後、参照 STAGE12 KBQBO 『JAPAN』アクセス 『オーストラリア／政府／CIU／CIUファイルアクセスシステム／OCU REGIONAL GATE［DJV］／ES ASIA［FTBTJB］』を参照 STAGE35 PDV 『CONGRESS』アクセス テキストデータ「CIU Logfile《CIU職員の通信LOG》」にレストレックスを使用後、参照 STAGE12 UFSDFT 『SECRET GATE』アクセス 『オーストラリア／その他／ロースパイト／情報広場／情報 3』を参照 STAGE40 TBEJN 『MIDAS』アクセス 『オーストラリア／政府／CIU／CIUファイルアクセスシステム／OCU REGIONAL GATE［DJV］／ES ASIA［FTBTJB］』を参照 STAGE24～34 OTV 『USN』アクセス 『オーストラリア／企業／DCN／DCN編成局／DCN編成局：特捜部（編成局特捜部）［DCN09］』を参照 STAGE27～49 AIE 『DA HAN ZHONG』アクセス 『オーストラリア／政府／CIU／CIUファイルアクセスシステム／SECRET GATE［UFSDFT］／USN［OTV］／USN AND DA HAN ZHONG』を参照 STAGE40 企業 DCN DCN09 『DCN編成局：特捜部（編成局特捜部）』アクセス 『日本／その他／アーマードキンカクジ／BBS／ACCESS／BBS2』を参照 STAGE24
https://w.atwiki.jp/polochan/pages/175.html
02_ 7（作成中） 8（作成中） 9（作成中） 4（作成中） 5（作成中） 6（作成中） 1（作成中） 2 3（作成中） 0（作成中）
https://w.atwiki.jp/saikyoumousou5/pages/3550.html
【妄想属性】脳内 【作品名】未定（てか忘れた） 【メンバーリスト】未定（てか忘れた）のメンバーリスト。 ケンジ 茜（仮名） 向日葵（仮名） 蒼（仮名） 紫音（仮名） 碧（仮名） 死刑執行人 影野 地獄の裁判所の裁判長 椿
https://w.atwiki.jp/pawapokepass/
パワポケ選手倉庫へようこそ！ ここでは主に実在選手のパスワードを載せていきたいと思います。 パスを載せますが、その選手のクレームなどは一切応じませんのでお願いします。 パスワードがもし間違っていた場合、すぐにコメント欄で 連絡お願いします。 ※パワポケ11で作っておりますので、パワポケ11以前のROMでは使用不可能です。
https://w.atwiki.jp/skmt200x/pages/75.html
パスワード自動生成スクリプト コード コード Option Explicit パスワードソース配列を作成します。 引数 aSource ソース文字配列を受け取るための参照を指定します。 aReading 読み仮名文字列を受け取るための参照を指定します。 戻り値 作成に成功した場合、Boolean値Trueを返します。 そうでない場合、Falseを返します。 現在Falseを返すことはありません。 Function CreatePasswrodSource(ByRef aSource, ByRef aReading) 各文字ソース 数字 Dim aDigitC, aDigitR aDigitC = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") aDigitR = Array("０", "１", "２", "３", "４", "５", "６", "７", "８", "９") 英語小文字 Dim aLCaseC, aLCaseR aLCaseC = Array( _ "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _ "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _ "u", "v", "w", "x", "y", "z") aLCaseR = Array( _ "エー", "ビー", "シー", "ディー", "イー", "エフ", "ジー", "エイチ", "アイ", "ジェイ", _ "ケー", "エル", "エム", "エヌ", "オー", "ピー", "キュー", "アール", "エス", "ティー", _ "ユー", "ヴイ", "ダブリュー", "エックス", "ワイ", "ゼット") 英語大文字 Dim aUCaseC, aUCaseR aUCaseC = Array( _ "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _ "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _ "U", "V", "W", "X", "Y", "Z") aUCaseR = Array( _ "エー", "ビー", "シー", "ディー", "イー", "エフ", "ジー", "エイチ", "アイ", "ジェイ", _ "ケー", "エル", "エム", "エヌ", "オー", "ピー", "キュー", "アール", "エス", "ティー", _ "ユー", "ヴイ", "ダブリュー", "エックス", "ワイ", "ゼット") 記号 使用可能な記号については Microsoftアナウンス http //windows.microsoft.com/ja-JP/windows-vista/Tips-for-creating-a-strong-password より 読み方は JISX0201 より Dim aSymbolC, aSymbolR aSymbolC = Array( _ "`", "~", "!", "@", "#", _ "$", "%", "^", " ", "*", _ "(", ")", "_", "-", "+", _ "=", "{", "}", "[", "]", _ "\", "|", " ", ";", """", _ " ", " ", " ", ",", ".", _ "?", "/") aSymbolR = Array( _ "バッククォート", "チルダ", "感嘆符", "アットマーク", "シャープ", _ "ドル記号", "パーセント", "ハット", "アンパサンド", "アスタリスク", _ "左括弧", "右括弧", "アンダースコア", "ハイフン", "プラス", _ "イコール", "左中括弧", "右中括弧", "左大括弧", "右大括弧", _ "円記号", "パイプ", "コロン", "セミコロン", "ダブルクォート", _ "シングルクォート", "小なり", "大なり", "カンマ", "ピリオド", _ "疑問符", "スラッシュ") 仕様 各パスワードソースに対する含有期待率をおおよそ以下になるように調整します 数字(10) 英小文字(26) 英大文字(26) 記号(32) = 3 3 3 1 → *9 *3 *3 *1 （記号が多いと使いづらいため、ソース文字の分布を一定の倍率で出現分布を調整）。 結合文字列の作成 Dim vLength vLength = 9*(UBound(aDigitC) + 1) + 3*(UBound(aLCaseC) + 1) + 3*(UBound(aUCaseC) + 1) + (UBound(aSymbolR) + 1) ReDim aSource(vLength) ReDim aReading(vLength) 結合 Dim vI, vJ, vPos vPos = 0 For vJ = 1 To 9 Step 1 For vI = 0 To UBound(aDigitC) Step 1 aSource(vPos + vI) = aDigitC(vI) aReading(vPos + vI) = aDigitR(vI) Next vI vPos = vPos + UBound(aDigitC) + 1 Next vJ For vJ = 1 To 3 Step 1 For vI = 0 To UBound(aLCaseC) Step 1 aSource(vPos + vI) = aLCaseC(vI) aReading(vPos + vI) = aLCaseR(vI) Next vI vPos = vPos + UBound(aLCaseC) + 1 Next vJ For vJ= 1 To 3 Step 1 For vI = 0 To UBound(aUCaseC) Step 1 aSource(vPos + vI) = aUCaseC(vI) aReading(vPos + vI) = aUCaseR(vI) Next vI vPos = vPos + UBound(aUCaseC) + 1 Next vJ For vJ = 1 To 1 Step 1 For vI = 0 To UBound(aSymbolC) Step 1 aSource(vPos + vI) = aSymbolC(vI) aReading(vPos + vI) = aSymbolR(vI) Next vI vPos = vPos + UBound(aSymbolC) + 1 Next vJ CreatePasswrodSource = True End Function パスワードを生成します。 引数 rPassword 生成したパスワードを受け取るための参照を指定します。 rReading 生成したパスワード読み方を受け取るための参照を指定します。 aSource パスワード生成のための文字配列参照を指定します。 aReading パスワード読み方生成のための読み方配列参照を指定します。 vLength 生成する文字長さを指定します。 6以上の整数を指定しなければなりません。 vDelimiter パスワード読み方のデリミタ文字を指定します。 戻り値 生成に成功した場合Boolean値Trueを返します。 そうでない場合Falseを返します。 Function CreatePassword(ByRef rPassword, ByRef rReading, ByRef aSource, ByRef aReading, vLength, vDelimiter) 引数チェック If ((UBound(aSource) 0) Or (UBound(aReading) 0) Or (vLength 6) Or Len(vDelimiter) = 0) Then CreatePassword = False Exit Function End If パスワードの生成 Call Randomize Dim vI, v, vSourceSize vSourceSize = UBound(aSource) + 1 For vI = 1 To vLength Step 1 v = Int(Rnd*vSourceSize) 0～(vSourceSize - 1)の整数乱数 If (vI 1) Then rPassword = rPassword aSource(v) rReading = rReading " " aReading(v) Else rPassword = aSource(v) rReading = aReading(v) End If Next vI CreatePassword = True End Function パスワードの複雑さの要件を満たすかどうか？評価します。 引数 vPassword 評価対象のパスワード文字列を指定します。 vLength 要件のパスワード長さを示す整数を指定します。 戻り値 要件を満たす場合Boolean値Trueを返します。 そうでない場合Falseを返します。 Function IsPasswordComplex(vPassword, vLength) Dim bDigit, bLCaseA, bUCaseA, bSymbol bDigit = False bLCaseA = False bUCaseA = False bSymbol = False パスワード長のチェック If (Len(vPassword) vLength) Then IsPasswordComplex = False Exit Function End If 先頭から順番にチェック ※ 記号の評価方法が少々強引 Dim vI, vScore For vI = 1 To Len(vPassword) Step 1 Dim vChar vChar = Mid(vPassword, vI , 1) If ((Asc("0") = Asc(vChar)) And (Asc(vChar) = Asc("9"))) Then bDigit = True ElseIf ((Asc("a") = Asc(vChar)) And (Asc(vChar) = Asc("z"))) Then bLCaseA = True ElseIf ((Asc("A") = Asc(vChar)) And (Asc(vChar) = Asc("Z"))) Then bUCaseA = True Else bSymbol = True End If Next vI スコアリング vScore = 0 If (bDigit) Then vScore = vScore + 1 End If If (bLCaseA) Then vScore = vScore + 1 End If If (bUCaseA) Then vScore = vScore + 1 End If If (bSymbol) Then vScore = vScore + 1 End If If (vScore = 3) Then IsPasswordComplex = True Else IsPasswordComplex = False End If End Function Dim bResult パスワードソースの生成 Dim aSource(), aReading() bResult = CreatePasswrodSource(aSource, aReading) パスワードの生成 Dim vPassword, vReading, vCount vCount = 1 bResult = CreatePassword(vPassword, vReading, aSource, aReading, PASSWORD_LENGTH, " ") bResult = IsPasswordComplex(vPassword, PASSWORD_LENGTH) Do Until (bResult) bResult = CreatePassword(vPassword, vReading, aSource, aReading, PASSWORD_LENGTH, " ") bResult = IsPasswordComplex(vPassword, PASSWORD_LENGTH) vCount = vCount + 1 Loop Call WScript.Echo(vPassword "（" vReading "）") TOPへ編集 最終更新日 [2009-11-03]