Генератор случайных уникальных чисел.

If Not _FileReadToArray("spisok.txt",$sRecords) Then
			MsgBox(4096,"Error", "Невозможно прочитать файл со списком.")
			Exit
		EndIf
		_FileReadToArray("spisok.txt",$aRecords)

		_ArrayDisplay($sRecords)
		_ArrayDelete($sRecords,0)
		For $i = 1 To $aRecords[0]
			$j=Random(0,UBound($sRecords)-1,1)
			$aRecords[$i] = $sRecords[$j]
			_ArrayDelete($sRecords,$j)
		Next
		_ArrayDisplay($aRecords)

#include <Array.au3>

$aRandom = _RandomNumArray(10, 1000, 1)
If @error Then Exit 13
_ArrayDisplay($aRandom)

#cs
	Генерирует массив случайных чисел одинаковой длины.
	$a_Random[0] - их кол-во.
	$i_Num - кол-во цифр в случайных числах (длина) (от 2 до 10)
	$i_Count - кол-во случайных чисел (от 89 и более)
	$i_Sort <> 0 - сортировка массива по возрастанию
#ce
Func _RandomNumArray($i_Num = 4, $i_Count = 10, $i_Sort = 0)
	Local $i_Min = 1, $i_Max = 9, $a_Random[1]

	If $i_Num < 2 Then Return SetError(1, 0, -1)
	If $i_Num > 10 Then Return SetError(1, 0, -1)
	If $i_Count < 2 Then Return SetError(2, 0, -1)
	If $i_Num = 10 Then
		$i_Min = 1000000000
		$i_Max = 2 ^ 31 - 1
	Else
		For $i = 1 To $i_Num - 1
			$i_Min &= 0
			$i_Max &= 9
		Next
		$i_Min = Number($i_Min)
		$i_Max = Number($i_Max)
	EndIf
	If $i_Max - $i_Min < $i_Count Then Return SetError(2, 0, -1)
	ReDim $a_Random[$i_Count + 1]
	$a_Random[0] = $i_Count
	For $i = 1 To $i_Count
		$a_Random[$i] = Random($i_Min, $i_Max, 1)
		While IsDeclared($a_Random[$i])
			$a_Random[$i] = Random($i_Min, $i_Max, 1)
		WEnd
		Assign($a_Random[$i], 1)
	Next
	If $i_Sort Then
		_ArraySort($a_Random, 0, 1)
	EndIf
	Return $a_Random
EndFunc   ;==>_RandomNumArray

$aU=_UniqArray(4,12)
_ArrayDisplay($aU)

Func _UniqArray($iMin, $iMax)
	Local $iU = $iMax - $iMin, $iT = 0
	Local $aI[$iU + 1], $aO[$iU + 1]
	For $i = $iMin To $iMax
		$aI[$iT] = $i
		$iT += 1
	Next
	For $i = 0 To $iU
		$iR = Random(0, $iU - $i, 1)
		$aO[$i] = $aI[$iR]
		For $k = $iR To $iU - $i - 1
			$aI[$k] = $aI[$k + 1]
		Next
	Next
	Return SetError(0, 0, $aO)
EndFunc   ;==>_UniqArray

_ArrayRandomize()