[madmasles]

Centrinar,
Можно так попробовать:

Код:

#include <Array.au3>

Dim $aArray[10] = ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J'] ;0123456789

$sString = 1029384756
$aTemp = StringSplit($sString, '')
$sNewString = ''
For $i = 1 To $aTemp[0]
    $sNewString &= $aArray[$aTemp[$i]]
Next
MsgBox(64, 'Info', $sNewString)
$aTemp = StringSplit($sNewString, '')
$sOldString = ''
For $i = 1 To $aTemp[0]
    $sOldString &= _ArraySearch($aArray, $aTemp[$i])
Next
MsgBox(64, 'Info', $sOldString)