汎用パスワード発行プログラム　ソースと解説

パスワード分割区切り関数　ソースと解説

そろそろマイナンバーカード用パスワードを決定しようと思っているのですが、長いパスワードを覚えるのは至難の業です。さらに、画面に表示されたこのようなパスワードをきちんと間違えずに入力をすることができるかどうか。

U6PABEV5UC2UBAEU

そういえば、クレジットカード番号も16桁ですが、これは4桁ずつ区切ってありますね。そこで、このように表示できればいいのではないでしょうか。

U6PA-BEV5-UC2U-BAEU

おもえば、いろいろなソフトウエアのインストール時に入力する認証キーなども、32桁もあるけれど、4桁ずつに区切ってあるので、間違えずに入力することができます。

というわけで、今回は長いパスワードを4桁ずつに分割して、間に区切り文字を入れるルーチンを作ってみます。

プログラム言語十進BASIC

パソコンで簡単に作れる物というと、以前はDOSベースのBASICがありましたが、今や、Windowsの時代です。そこで、以前も使ったことのある。十進BASICを使うことにしました。もちろんこれもコンパイル不要のインタープリター型です。

これは十進BASICのホームページから無料でダウンロードできます。

文法は十進BASICヘルプ Windows版で解説されています。

要件

長い文字列を4桁ずつに分割します。
区切り文字は「-」とします。
4で割り切れない場合、余りの文字列も最後に表示します。

十進BASICの外部関数としますから、いろいろな十進BASICでそのまま使えます。というのは、この外部関数内の変数はローカル変数であり、グローバル変数とはならないので、呼び出し側の変数とは完全に独立しているからです。

プログラム・ソース

!=======================================================
! 与えられた文字列を４文字ずつ区切ぎる外部関数
!=======================================================
EXTERNAL FUNCTION kugiri$( moji$ )
DIM p$(10)
LET nagasa = LEN(moji$) ! 引き渡された文字列の長さ
LET a = INT(nagasa / 4) ! 4文字が何個できるか
LET b = MOD(nagasa , 4) ! 余りの文字数
LET c = 4 * a + 1 ! 余り文字の開始位置
LET s$ = "-" ! 区切り文字（セパレータ）
FOR i=1 TO a
   LET j = 4 * (i - 1) + 1 ! 区切りの最初の文字位置
   LET p$( i ) = mid$( moji$ , j , 4)
NEXT i
! 余りがあれば、残りの文字列を取り込む
IF (b > 0) THEN
   LET nokori$ = MID$( moji$ , c , b) ! 余りの文字列
END IF
! 結果の文字列を組み立てる
LET kekka$ = ""
FOR i=1 TO a
   IF i=1 THEN
      LET kekka$ = kekka$ & p$(i) ! 先頭には区切りを付けない

   ELSE 
      LET kekka$ = kekka$ & s$ & p$(i)
   END IF
NEXT i
! 残りがあれば、それを付け加える
IF (b >0) THEN
   LET kekka$ = kekka$ & s$ & nokori$)
END IF
 
LET kugiri$ = kekka$

END FUNCTION

解説

引数として渡された文字列を4文字ずつに分割する方法を表にして観ました。

nagasa : 引数として渡された文字列の長さ
p$ : 4文字ずつ格納する配列
a : 4文字が何個できるか
b : 余りの文字数
j : 区切りの最初の文字位置　j=4*(i-1)+1

[余りが無い場合（長さが4の倍数）]

文字位置	1	2	3	4	5	6	7	8	…	j	j+1	j+2	j+3	…
配列	p$(1)				p$(2)				…	p$(i)				…	p$(a)

[余りがある場合]

文字位置	1	2	3	4	5	6	7	8	…	j	j+1	j+2	j+3	…		nagasa-b	…	nagasa
配列	p$(1)				p$(2)				…	p$(i)				…	p$(a)	nokori$

次に、分割した文字列を区切り文字で結合する様子を表してみました。

	kekka$
1回目	p$(1)
2回目	p$(1)	-	p$(2)
i 回目	p$(1)	-	p$(2)	…	-	p$(i)
a 回目	p$(1)	-	p$(2)	…	-	p$(i)	…	-	p$(a)
残りがある場合	p$(1)	-	p$(2)	…	-	p$(i)	…	-	p$(a)	-	nokori$

このように、一般的には区切り文字と分割した文字列がセットで加わりますが、一回目だけは、先頭に区切り文字が入るとじゃまなので、これを避けています。

実行例

前回の汎用パスワード発生プログラムに追加して実行してみます。

具体的な使用方法としては、以下の三つだけです。

初期処理で、この外部関数を使う宣言をします。　DECLARE EXTERNAL FUNCTION kugiri$
ソースの最後に、この関数を貼り付けます。
呼び出す場合は引数を忘れずに書きます。　PRINT "区切形式　＝"; kugiri$(pwd$)

! *************************************************
! **   汎用パスワード発行２（４～３２文字）
! ** 　　　　　　　　　　　　　　　十進BASIC版
! **　　区切り表示追加版
! **                       2021.06.20 佐々木一郎
! *************************************************

!=======================================================
! 初期設定
!=======================================================
DEF year = INT(VAL(DATE$)/10000)
DEF month = MOD(INT(VAL(date$)/100),100)
DEF day = MOD(VAL(date$),100)
LET oomoji$="ABCDEFGHJKLMNPQRSTUVWXYZ" ! 大文字
LET komoji$="abcdefghijkmnpqrstuvwxyz" ! 小文字
LET suuji$ ="23456789" ! 数字
DIM mode$(4)

! 与えられた文字列と文字数でパスワードを発生させる外部関数を使う
DECLARE EXTERNAL FUNCTION password$
! 与えられた文字列を４文字ずつ区切ぎる外部関数を使う
DECLARE EXTERNAL FUNCTION kugiri$
! 疑似乱数の系列の出発点を予測できないものにする。
RANDOMIZE
SET ECHO "OFF"

!=======================================================
! メイン・ルーチン
!=======================================================
! タイトル表示
PRINT "================================================="
PRINT "　　　　　　　　汎用パスワード発行"
PRINT "　　　　　　　　";year;"年";month;"月";day;"日　　";TIME$
PRINT "================================================="
PRINT

! 文字種を選択する。数字は必須とする。
LET mode$(1) = "大文字＋数字"
LET mode$(2) = "小文字＋数字"
LET mode$(3) = "大文字＋小文字＋数字"
LET mode$(4) = "数字のみ"
PRINT "文字種を以下の四種類から選択してください。"
FOR i=1 TO 4
   PRINT i;mode$(i)
NEXT i
DO 
   INPUT PROMPT "選択した番号1,2,3,4を入力して下さい。":j
LOOP UNTIL (j>=1 AND j<=4)

! パスワード長を入力する。8文字から12文字の範囲とする。
DO
   INPUT PROMPT "パスワードの長さを指定して下さい。(4～32)":nagasa
LOOP UNTIL (nagasa >= 4 AND nagasa <= 32)

! 指定された条件を表示する
PRINT
PRINT "[指定条件]"
PRINT "文字種＝";mode$(j)
PRINT "パスワード長＝";nagasa

! 外部関数に引き渡す文字列をセットする
IF j = 1 THEN
   LET moji$ = oomoji$ & suuji$
END IF
IF j = 2 THEN
   LET moji$ = komoji$ & suuji$
END IF
IF j = 3 THEN
   LET moji$ = oomoji$ & komoji$ & suuji$
END IF
IF j = 4 THEN
   LET moji$ = suuji$
END IF

! 納得いくまで繰り返す
DO
   LET pwd$ = password$( moji$ , nagasa )
   PRINT
   PRINT "パスワード＝"; pwd$
   PRINT "区切形式　＝"; kugiri$(pwd$)
   INPUT PROMPT "これでいいですか？（ y / n ）": yn$
   IF yn$ = "y" THEN EXIT DO
LOOP

!=======================================================
! 終了
!=======================================================
END

!=======================================================
! 与えられた文字列と文字数でパスワードを発生させる関数を定義
!=======================================================
EXTERNAL FUNCTION password$( moji$ , nagasa )
LET moji_nagasa = LEN( moji$ ) !与えられた文字列の長さ
LET a$ ="23456789" ! 数字を外部関数内で定義

DO ! 数字が入っていない場合は繰り返す

   LET kekka$ = "" ! 結果の文字列をクリアしておく
   FOR i=1 TO nagasa !指定された文字数まで繰り返す
   ! 文字列の中のichi番目の文字を一個選択する
      LET ichi = 1 + INT ( moji_nagasa * RND )
      LET s$ = MID$( moji$ , ichi , 1 )
      ! それを結果の文字列に加える
      LET kekka$ = kekka$ & s$
   NEXT i
    
   ! 数字が入っているかどうかを検査する。
   LET s=0 ! 数字が入っている位置の合計、ゼロなら無い
   FOR k =1 TO 8
      LET b$ = MID$( a$ , k , 1 ) ! 探す数字を決める
      LET s = s + POS(kekka$,b$) ! その数字の位置を加算
   NEXT k
    
LOOP UNTIL ( s > 0 )

LET password$ = kekka$
END FUNCTION

!=======================================================
! 与えられた文字列を４文字ずつ区切ぎる外部関数
!=======================================================
EXTERNAL FUNCTION kugiri$( moji$ )
DIM p$(10)
LET nagasa = LEN(moji$) ! 引き渡された文字列の長さ
LET a = INT(nagasa / 4) ! 4文字が何個できるか
LET b = MOD(nagasa , 4) ! 余りの文字数
LET c = 4 * a + 1 ! 余り文字の開始位置
LET s$ = "-" ! 区切り文字（セパレータ）
FOR i=1 TO a
   LET j = 4 * (i - 1) + 1 ! 区切りの最初の文字位置
   LET p$( i ) = mid$( moji$ , j , 4)
NEXT i
! 余りがあれば、残りの文字列を取り込む
IF (b > 0) THEN
   LET nokori$ = MID$( moji$ , c , b) ! 余りの文字列
END IF
! 結果の文字列を組み立てる
LET kekka$ = ""
FOR i=1 TO a
   IF i=1 THEN
      LET kekka$ = kekka$ & p$(i) ! 先頭には区切りを付けない
   ELSE 
      LET kekka$ = kekka$ & s$ & p$(i)
   END IF
NEXT i
! 残りがあれば、それを付け加える
IF (b >0) THEN
   LET kekka$ = kekka$ & s$ & nokori$
END IF
 
LET kugiri$ = kekka$

END FUNCTION

実行画面はこのようになります。

別バージョン

この解説文をかいていたら、別バージョンを思いつきました。それが、なんとも簡単なんです。

なぜ簡単かというと、一旦分割してから、区切り文字をはさんで結合するという二段階の手順を踏まず、たった一階の手順で完了するからです。

文字列の先頭から一文字ずつ、結果の文字列に書き込んでいく。
初回以外で、その順番が（4の倍数＋１）である時には、区切り文字を先に追加しておく。

たったこれだけです。以下にそのソースを表示します。

!=====================================================
! 与えられた文字列を４文字ずつ区切ぎる外部関数 簡略版
!=====================================================
EXTERNAL FUNCTION kugiru$( moji$ )

LET nagasa = LEN(moji$) ! 引き渡された文字列の長さ
LET s$ = "-" ! 区切り文字（セパレータ）
LET kekka$ = "" ! 結果の文字列
FOR i=1 TO nagasa
   LET amari = MOD(i,4) ! 4で割った余り
   ! 先頭ではなくて4の倍数＋１の場合は区切り文字を付ける
   IF (amari = 1) AND (i > 1) THEN
      LET kekka$ = kekka$ & s$
   END IF
   ! その位置の文字を結果の文字列に追加する
   LET kekka$ = kekka$ & MID$( moji$ ,i,1 )
NEXT i
 
LET kugiru$ = kekka$ ! 結果を返す

END FUNCTION

もはや、解説も不要なほど簡潔ですし、実行結果は、まったく変わりません。

おまけ

! *************************************************
! 　　　区切り文字が付いたパスワードから
! 　　　区切り文字を取り除く
! 　　　　　　2021.06.20
! *************************************************
PRINT "[区切り文字が付いたパスワードから区切り文字を取り除く]"
PRINT
LINE INPUT  PROMPT "パスワードを入力してください" : inp$
LET nagasa = LEN( inp$ ) ! 入力文字の長さ
LET s$ = "-/;,"
LET pwd$ = ""
FOR i=1 TO nagasa
   LET moji$ = MID$( inp$,i,1 ) ! 入力値から一文字抽出
   LET ari = POS( s$ , moji$ ) ! それが区切り文字か？
   IF ari=0 THEN ! 区切り文字でなければ結果に追加
      LET pwd$ = pwd$ & moji$
   END IF
NEXT i
PRINT "区切り文字無しのパスワード＝";pwd$
END

2021年6月20日　記

Page Top

パスワード分割区切り関数 ソースと解説

プログラム言語 十進BASIC

要件

プログラム・ソース

解説

実行例

別バージョン

おまけ

無料自作ソフトメニュー

パスワード分割区切り関数　ソースと解説

プログラム言語十進BASIC