Код:

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