Mathematica生成纯数字密码

Export["C:/T.txt", 
  IntegerString[#,10,6]&/@Range[0,10^6-1]]//Timing

{12.776,"C:/T.txt"}

Export["C:/T.txt", 
  StringJoin/@Tuples[ToString/@Range[0,9],6]]//Timing

{15.413,"C:/T.txt"}

 

6 digits: 000000......999999