(DTPtechNote:635) Make Serial

[市川せうぞー <anonymous at unknown-host>]

くだらなくて、書くほどのことでもないんだけど、
まあメモなんで(^^;;;;; 

ランダムな文字列をつくります。
#もちろんもっとちゃんとやるべきなんだろうけど。。。

set keta to 12
--set tane to {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "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", "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"}
set tane to {"2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "m", "n", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
set pass to ""

repeat with i from 1 to keta
	set c to some item of tane
	set pass to pass & c
	if i mod 3 = 0 and keta is not i then set pass to pass & "-"
end repeat

get pass