[решено] Цикл вывода цифр и букв

[uptorange]

Доброго времени суток!

Нужно сделать цикл вывода цифр и букв вида: xxxxx-xxxxx

Dim $aLChar[1]
Local $iRez, $c = 1, $a = 65, $b = 90, $j = 6, $y = 1

HotKeySet('{F2}', 'My_Func2')


Func My_Func1()
While $c <> 4
For $i = $a To $b
ReDim $aLChar[UBound($aLChar) + 1]
$aLChar[UBound($aLChar) - 1] = Chr($i)
Next
$c += 1
If $c = 2 Then
$a = 97
$b = 122
Else
$a = 48
$b = 57
EndIf
WEnd

For $i = 1 To 103
If $i <> $j Then
$iRez &= $aLChar[Random(1, 61, 1)]
Else
$iRez &= '-'
$j = $j+6
EndIf
Next

send($iRez)
EndFunc

Func My_Func2()
$y = 2
EndFunc

while 1
Call('My_Func1')
$c = 1
$a = 65
$b = 90
$j = 6
$iRez = NULL
if $y = 2 Then ExitLoop
WEnd

Сам разобрался.