編集履歴:差分

2015/09/09 09:54:30 JST以来のランダムな文字列を出力するモジュールの変更箇所

• + 追加された行
• - 削除された行

編集履歴ページに戻る

+ * ランダムな文字列を出力するモジュール
- ランダムな文字列を出力するモジュール
  {{{
  #module
  #defcfunc rndstr int p0,int p1,int p2,int p3,int p4//p1文字数 p2大文字あり p3小文字あり p4数字あり p5アンダーバーあり
  	sdim irand,p0
  	sdim keta,p0
  	randomize
  	keta=p0
  	ch(0)=p1
  	ch(1)=p2
  	ch(2)=p3
  	ch(3)=p4
  
  	sdim irand,256
  	bb=0
  	repeat 4
  		if ch(cnt)=1{
  			ifm(bb)=cnt
  			bb+
  		}
  	loop
  	if bb=0:stop
  
  
  	repeat int(keta)
  
  		switch ifm(rnd(bb))
  			case 0
  				moji=""
  				poke moji,0,int($+rnd(26)+$41)
  			swbreak
  			case 1
  				moji=""
  				poke moji,0,int($+rnd(26)+$61)
  			swbreak
  			case 2
  				moji=str(rnd(10))
  			swbreak
  			case 3
  				moji="_"
  			swbreak
  
  		swend
  		irand+=moji
  	loop
  	return irand
  #global
  }}}