Войти

Показать полную графическую версию : [решено] Мини шифровальщик.


Centrinar
13-05-2011, 13:34
Есть код, типа 123456789, как разбить его на отдельные цифры и представить в виде букв, например 1=A, 2=B и т.д.

madmasles
13-05-2011, 13:53
Centrinar,
Можно так попробовать:#include (http://www.autoitscript.com/autoit3/docs/keywords.htm##include) <Array.au3>

Dim (http://www.autoitscript.com/autoit3/docs/keywords.htm#Dim) $aArray[10] = ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J'] ;0123456789

$sString = 1029384756
$aTemp = StringSplit (http://www.autoitscript.com/autoit3/docs/functions/StringSplit.htm)($sString, '')
$sNewString = ''
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aTemp[0]
$sNewString &= $aArray[$aTemp[$i]]
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(64, 'Info', $sNewString)
$aTemp = StringSplit (http://www.autoitscript.com/autoit3/docs/functions/StringSplit.htm)($sNewString, '')
$sOldString = ''
For (http://www.autoitscript.com/autoit3/docs/keywords.htm#For) $i = 1 To (http://www.autoitscript.com/autoit3/docs/keywords.htm#To) $aTemp[0]
$sOldString &= _ArraySearch (http://dundats.mvps.org/help/html/libfunctions/_arraysearch.htm)($aArray, $aTemp[$i])
Next (http://www.autoitscript.com/autoit3/docs/keywords.htm#Next)
MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(64, 'Info', $sOldString)




© OSzone.net 2001-2012