マイナンバーカード用パスワード発生プログラム　ソースと解説

マイナンバーカード用パスワード発行プログラム　ソースと解説

数年前にマイナンバーカードの申請書が届いていたのですが、どうやら写真を貼付しないといけないようなのです。そのうち撮ろうと思いつつ、ついついそのままになっていて、その郵便物もどこかに失せていました。

ところが、なかなか手続きをしないせいか、督促状のように再度申請書が届いたので、いやいやながら写真を撮って来て申請書を送りました。

それからしばらくしたら、今度は半年以内に区役所に受け取りに来なさいとの通知が届きました。しかも、インターネットで事前予約してからということ。さらに、二つのパスワードを用意して行き、登録することになるという案内が書いてありました。

というわけで、今回はこの二つのパスワードを自動発行するプログラムを作ることにします。

ちなみに、なぜ二つのパスワードが必要なのかは何も書いていないので不明ですが、後に使うことになりそうですね。自動車運転免許証更新のときにも二つのパスワードを登録したら、後に記載印字表発行時に必要でしたから。

プログラム言語十進BASIC

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

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

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

要件

パスワードは二つで、以下の要件が指定されています。

英数字（大文字）の組み合わせ（６～１６桁）
数字4桁

プログラム・ソース

以下のソースをそのまま十進BASICにコピペすると使えます。

! *************************************************
! ** マイナンバーカード受け取り用パスワード発行
! ** 　　　　　　　　　　　　　　　十進BASIC版
! **                       2021.05.30 佐々木一郎
! *************************************************

!===========================================================
! 初期設定
!===========================================================
DEF year = INT(VAL(DATE$)/10000)
DEF month = MOD(INT(VAL(date$)/100),100)
DEF day = MOD(VAL(date$),100)
LET oomoji$="ABCDEFGHJKLMNPQRSTUVWXYZ" ! 大文字
LET suuji$ ="123456789" ! 数字
! 与えられた文字列と文字数でパスワードを発生させる関数の宣言
DECLARE EXTERNAL FUNCTION password$
! 疑似乱数の系列の出発点を予測できないものにする。
RANDOMIZE
SET ECHO "OFF"
!===========================================================
! メイン・ルーチン　納得いくまで繰り返す
!===========================================================
DO
! 第一パスワード（英大文字＋数字、6～16文字）
   LET moji$ = oomoji$ & suuji$
   LET nagasa = 6 + INT( 11 * RND )
   LET pwd_1$ = password$( moji$ , nagasa )
    
   ! 第二パスワード(数字4桁)
   LET moji$ = suuji$
   LET nagasa = 4
   LET pwd_2$ = password$( moji$ , nagasa )
    
   ! 結果表示
   PRINT "マイナンバーカード用パスワード発行"
   PRINT year;"年";month;"月";day;"日　　";TIME$
   PRINT
   PRINT "第一パスワード　＝　"; pwd_1$;"　文字数＝";LEN(pwd_1$)
   PRINT "第二パスワード　＝　"; pwd_2$  
   INPUT PROMPT "これでいいですか？（ y / n ）": yn$
   IF yn$ = "y" THEN EXIT DO
   PRINT
   PRINT
   PRINT
    
LOOP

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

!===========================================================
! 与えられた文字列と文字数でパスワードを発生させる関数を定義
!===========================================================
EXTERNAL FUNCTION password$( moji$ , nagasa )
LET moji_nagasa = LEN( moji$ ) !与えられた文字列の長さ
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 password$ = kekka$
END FUNCTION

解説

ほとんどソースの中に注釈を入れてありますが、足りない部分をあげておきます。

omoji$(大文字)：Oはゼロと紛らわしく、Iは１と紛らわしいので使いません。
suuji$(数字)：0はオーと紛らわしいので使いません。
DECLARE EXTERNAL FUNCTION password$：パスワードを発生させる部分は、第一パスワードと第二パスワードのふたつとも同じ動作なので、外部関数として定義します。
SET ECHO "OFF"：入力画面の文字を出力画面に表示しないようにします。
LET nagasa = 6 + INT( 11 * RND )：パスワードの長さを6文字から16文字まで乱数で決めます。ちなみにRNDはゼロから１未満の数になります。また、INTは整数を取り出す関数です。
文字数＝";LEN(pwd_1$)：念のため第一パスワードの文字数を表示します。
EXTERNAL FUNCTION password$( moji$ , nagasa )：外部関数の引数は文字列と文字数の二つで、結果としてパスワードを返します。
MID$( moji$ , ichi , 1 )：moji$のichi番目の文字から1文字を返す関数です。これはDOS時代にもよく使っていた関数でした。

実行画面

実行すると、このように結果が表示され、入力プロンプトウィンドウでnを入力すると、何度でも繰り返してパスワードを発行させることができます。

逆スクロールすれば以前の表示をさかのぼって見ることもできます。

2021年5月30日　記

Page Top

マイナンバーカード用パスワード発行プログラム ソースと解説

プログラム言語 十進BASIC

要件

プログラム・ソース

解説

実行画面

無料自作ソフトメニュー

マイナンバーカード用パスワード発行プログラム　ソースと解説

プログラム言語十進BASIC