Доброго времени суток!
Этим скриптом нужно 'расшифровать' сообщение:
Чтобы было вот так:
Проблема в том что код не различает БОЛЬШИЕ и маленькие буквы...
Этим скриптом нужно 'расшифровать' сообщение:
Код:
[mEhOBEK B MACKE] KObcA Tq OKAdEnrCu iEPEc
Код:
$sPath = 'text.txt'
$sTextOld1 = 'A'
$sTextOld2 = 'a'
$sTextOld3 = 'B'
$sTextOld4 = 'b'
$sTextOld5 = 'c'
$sTextOld6 = 'E'
$sTextOld7 = 'd'
$sTextOld8 = 'e'
$sTextOld9 = 'f'
$sTextOld10 = 'g'
$sTextOld11 = 'K'
$sTextOld12 = 'h'
$sTextOld13 = 'M'
$sTextOld14 = 'H'
$sTextOld15 = 'O'
$sTextOld16 = 'i'
$sTextOld17 = 'P'
$sTextOld18 = 'C'
$sTextOld19 = 'T'
$sTextOld20 = 'j'
$sTextOld21 = 'k'
$sTextOld22 = 'X'
$sTextOld23 = 'l'
$sTextOld24 = 'm'
$sTextOld25 = 'n'
$sTextOld26 = 'o'
$sTextOld27 = '*'
$sTextOld28 = 'q'
$sTextOld29 = 'r'
$sTextOld30 = 's'
$sTextOld31 = 't'
$sTextOld32 = 'u'
$sTextNew1 = 'А'
$sTextNew2 = 'Б'
$sTextNew3 = 'В'
$sTextNew4 = 'Г'
$sTextNew5 = 'Д'
$sTextNew6 = 'Е'
$sTextNew7 = 'Ж'
$sTextNew8 = 'З'
$sTextNew9 = 'И'
$sTextNew10 = 'Й'
$sTextNew11 = 'К'
$sTextNew12 = 'Л'
$sTextNew13 = 'М'
$sTextNew14 = 'Н'
$sTextNew15 = 'О'
$sTextNew16 = 'П'
$sTextNew17 = 'Р'
$sTextNew18 = 'С'
$sTextNew19 = 'Т'
$sTextNew20 = 'У'
$sTextNew21 = 'Ф'
$sTextNew22 = 'Х'
$sTextNew23 = 'Ц'
$sTextNew24 = 'Ч'
$sTextNew25 = 'Ш'
$sTextNew26 = 'Щ'
$sTextNew27 = 'Ъ'
$sTextNew28 = 'Ы'
$sTextNew29 = 'Ь'
$sTextNew30 = 'Э'
$sTextNew31 = 'Ю'
$sTextNew32 = 'Я'
$hFile = FileOpen($sPath, 0)
$sText = FileRead($hFile)
FileClose($hFile)
$sText = StringReplace($sText, $sTextOld1, $sTextNew1)
$sText = StringReplace($sText, $sTextOld2, $sTextNew2)
$sText = StringReplace($sText, $sTextOld3, $sTextNew3)
$sText = StringReplace($sText, $sTextOld4, $sTextNew4)
$sText = StringReplace($sText, $sTextOld5, $sTextNew5)
$sText = StringReplace($sText, $sTextOld6, $sTextNew6)
$sText = StringReplace($sText, $sTextOld7, $sTextNew7)
$sText = StringReplace($sText, $sTextOld8, $sTextNew8)
$sText = StringReplace($sText, $sTextOld9, $sTextNew9)
$sText = StringReplace($sText, $sTextOld10, $sTextNew10)
$sText = StringReplace($sText, $sTextOld11, $sTextNew11)
$sText = StringReplace($sText, $sTextOld12, $sTextNew12)
$sText = StringReplace($sText, $sTextOld13, $sTextNew13)
$sText = StringReplace($sText, $sTextOld14, $sTextNew14)
$sText = StringReplace($sText, $sTextOld15, $sTextNew15)
$sText = StringReplace($sText, $sTextOld16, $sTextNew16)
$sText = StringReplace($sText, $sTextOld17, $sTextNew17)
$sText = StringReplace($sText, $sTextOld18, $sTextNew18)
$sText = StringReplace($sText, $sTextOld19, $sTextNew19)
$sText = StringReplace($sText, $sTextOld20, $sTextNew20)
$sText = StringReplace($sText, $sTextOld21, $sTextNew21)
$sText = StringReplace($sText, $sTextOld22, $sTextNew22)
$sText = StringReplace($sText, $sTextOld23, $sTextNew23)
$sText = StringReplace($sText, $sTextOld24, $sTextNew24)
$sText = StringReplace($sText, $sTextOld25, $sTextNew25)
$sText = StringReplace($sText, $sTextOld26, $sTextNew26)
$sText = StringReplace($sText, $sTextOld27, $sTextNew27)
$sText = StringReplace($sText, $sTextOld28, $sTextNew28)
$sText = StringReplace($sText, $sTextOld29, $sTextNew29)
$sText = StringReplace($sText, $sTextOld30, $sTextNew30)
$sText = StringReplace($sText, $sTextOld31, $sTextNew31)
$sText = StringReplace($sText, $sTextOld32, $sTextNew32)
$hFile = FileOpen($sPath, 2)
$sText = FileWrite($hFile, $sText)
FileClose($hFile)
Чтобы было вот так:
Код:
[ЧЕЛОВЕК В МАСКЕ] КОГДА ТЫ ОКАЖЕШЬСЯ ПЕРЕД
Проблема в том что код не различает БОЛЬШИЕ и маленькие буквы...