Алгоритм шифрования

[8Ball's]

Скачал откуда-то алгоритм шифрования текста по ключу (Pass) через Xor

Код: Выделить всё

Public Const Pass = "P@sSwoRd123456789"

Dim Ky() As Byte
Dim Mx As Integer
Dim KeyMap() As Byte
Private Const MaxStringLength = 65536 'максимальная длинна текста

Sub InitCryptMap()
    On Error Resume Next
    Ky = StrConv(Pass, vbFromUnicode)
    Mx = UBound(Ky) + 1
    ReDim KeyMap(MaxStringLength - 1)
    For i = 0 To MaxStringLength - 1
        KeyMap(i) = Ky(i Mod Mx)
    Next
    Mx = Mx - 1
End Sub

Function Compile$(ByRef AnyString As String)
    Dim i& , Cs() As Byte
    Cs = StrConv(AnyString, vbFromUnicode)
    For i = 0 To UBound(Cs)
        Cs(i) = Cs(i) Xor KeyMap(i)
    Next
    Compile = StrConv(Cs, vbUnicode)
End Function

ругается на строку: Cs(i) = Cs(i) Xor KeyMap(i)
подскажите что делать

[Amed]

Option Explicit поставь в самом верху кода.

[8Ball's]

абсолютно ничего не изменилось Run time error '9'

[Amed]

Сначала надо вызывать InitCryptMap, и только потом Compile.

Если не вызвать сначала InitCryptMap, то под динамический массив KeyMap() As Byte не будет отведено место в памяти, и он будет нулевой.

Небольшая поправка
Немного о жизненном цикле динамических массивов.
Все массивы в VB являются SAFEARRAY (см. статью). Именно в структуре SAFEARRAY хранится размерность массива и указатель на данные массива.
При объявлении динамического массива, например: ...

Код: Выделить всё

Dim a () As Long

...указатель на SAFEARRAY нулевой, то есть массива вообще нет и в помине (нет структуры SAFEARRAY, нет и указателя на данные).
Таким образом, правильнее говорить

Если не вызвать сначала InitCryptMap, то динамический массив KeyMap() As Byte не будет существовать

[8Ball's]

Теперь почти работает, но шифруется только первый символ строки AnyString Как это исправить? ПОМОГИТЕ ПОЖАЛУСТА! Я в массивах плохо разбираюсь!

[JohnK]

Ну для начала убери обработчик ошибок, заремив его - 'On Error Resume Next
И сам увидешь причину

[8Ball's]

Спасибо JohnK!
Всего навсего переменная типа Integer не может иметь такое большое значение как 65536!