Needs["DiscreteMath`"]
SetDirectory["/home/faculty/struther/public_html/Courses/5903"]

TestCountA =  
      StringJoin[
FromCharacterCode[
Flatten[
Table[
Table[
Table[j, {j, 65, 64 + i}], 
{i, 1, 
                  26}]
]
]
]
]
Export["CountATest1", TestCountA,  "Text"]

TestCountB =  
      StringJoin[
FromCharacterCode[
RandomPermutation[
Flatten[
Table[
Table[
Table[
                    j, {j, 65, 65 + i}], 
{i, 1, 
                    126 - 65}]
]
]
]
]
]
Export["CountATest2", 
      TestCountB,  "Text"]
Head[TestCountB]

TestCountC =  
      StringJoin[
FromCharacterCode[
RandomPermutation[
Flatten[
Table[
Table[
Table[
                    j, {j, 0, i}], 
{i, 0, 
                    255}]
]
]
]
]
]
Export["CountATest3", 
      TestCountC,  "Text"]
Head[TestCountB]