パスワードジェネレータ

 投稿者:しばっち  投稿日:2020年 1月26日(日)10時59分53秒
  RANDOMIZE
LET A$="0123456789"
LET B$="abcdefghijklmnopqrstuvwxyz"
LET C$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LET D$="!#$%&'()=~\|/*-+.?_<>"
PRINT "数字のみ(1)"
PRINT "アルファベット小文字のみ(2)"
PRINT "アルファベット大文字のみ(3)"
PRINT "記号のみ(4)"
PRINT "数字+アルファベット小文字(5)"
PRINT "数字+アルファベット小文字+アルファベット大文字(6)"
PRINT "数字+アルファベット小文字+アルファベット大文字+記号(7)"
INPUT  PROMPT "MODE=":MODE$
IF MODE$="" THEN LET MODE=5 ELSE LET MODE=VAL(MODE$)
SELECT CASE MODE
CASE 1
   LET S$=A$
CASE 2
   LET S$=B$
CASE 3
   LET S$=C$
CASE 4
   LET S$=D$
CASE 5
   LET S$=A$&B$
CASE 6
   LET S$=A$&B$&C$
CASE 7
   LET S$=A$&B$&C$&D$
CASE ELSE
   LET S$=A$&B$
END SELECT
INPUT PROMPT "文字数<(0,RET=任意> =":N$
PRINT
FOR J=1 TO 10
   IF N$="" OR N$="0" THEN LET N=INT(RND*16)+4 ELSE LET N=VAL(N$)
   LET L$=""
   FOR I=1 TO N
      LET K=INT(RND*LEN(S$))+1
      LET L$=L$&S$(K:K)
   NEXT I
   PRINT L$
NEXT J
END
 

戻る