$iLenPart = 4
$iNumPart = 5
$sPassword = ''
For $i = 1 To $iNumPart
For $j = 1 To $iLenPart
If Random(0, 1, 1) Then
$sPassword &= Chr(Random(48, 57, 1))
Else
$sPassword &= Chr(Random(97, 122, 1))
EndIf
Next
$sPassword &= '-'
Next
MsgBox(64, 'Info', StringTrimRight($sPassword, 1))