КодLength = 6 ; Длина строки   

   Characters := "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" ; Символы, использующиеся для генерации   

   Passwords := "" ; Установить в значение переменной пустоту   

   UsedRandomNumbers := "" ; Установить в значение переменной пустоту   

   Loop %Length%   
   {   
   GetNewRandomNumber:   
   Random, RandomNumber, 1, % StrLen(Characters)   
   if RandomNumber in %UsedRandomNumbers%   
   Goto, GetNewRandomNumber   
   UsedRandomNumbers := ((UsedRandomNumbers)(RandomNumber)",")     
   Passwords .= SubStr(Characters, RandomNumber, 1)   
   }   

   Msgbox, % Passwords