Есть код который шифрует строку со смещением каждого символа

Function F_Xor(ByVal s1 As String, ByVal s2 As String) As String
Dim S As String, D1 As String, D2 As String
If (Len(s1) > 1) Then s1 = Left(s1, 1)
If (Len(s2) > 1) Then s2 = Left(s2, 1)
D1 = CStr(Application.Dec2Bin(Asc(s1), 8))
D2 = CStr(Application.Dec2Bin(Asc(s2), 8))
S = ""
For i = 1 To 8
 
    If (Mid(D1, i, 1) = "1") Xor (Mid(D2, i, 1) = "1") Then
    S = S & "1"
    Else
    S = S & "0"
    End If
Next i
S = Application.Bin2Dec(S)
S = Chr(S)
F_Xor = S
End Function
Function ShiftCircle(K As String, N As Integer) As String
N = N Mod 8
If (N = 0) Then
    ShiftCircle = K
     Exit Function
 End If
 If N > 0 Then
    ShiftCircle = ShiftLeft(K, N)
 End If
End Function
Function ShiftLeft(S As String, N As Integer) As String
Dim D As Integer, B As String, B1 As String, B2 As String
D = Asc(S)
B = CStr(Application.Dec2Bin(D, 8))
B1 = Left(B, N)
B2 = Right(B, 8 - N)
B = B1 & B2
D = CInt(Application.Bin2Dec(B))
S = Chr(D)
ShiftLeft = S
End Function
Function CRC(Текст)
Dim Counter As Long, T As Integer, CRCT As Integer, OS As String, R As String, CRCTT As String
 T = Len(Текст)                      'длинна строки
For Counter = 1 To CInt(T)           ' начало цикла For
  OS = Mid(Текст, Counter, 1)        'символ из текста (Соответсвующий счётчику)
  R = ShiftCircle(OS, CInt(Counter))       'переменная в которую кладётся символ к которому применили функцию ShiftCircle
  R = Asc(R)                         'Переменная с Номером этого символа
  CRC = (CRC + CInt(R)) Mod 256      ' Суммируется общее CRC
Next Counter                         ' Конец цикла
CRC = Chr(CRC)                       'Преобразование CRC в Символ
CRC = (Текст & CRC)                  ' ВЫВОД функции : (Текст и CRC)
End Function
Function Шифр(Текст As String)
Dim X1 As String, X2 As String, aL As String, CRCT As String, Counter As Integer, i As Long, T As Integer, CRCTT As String
 
CRCT = Right(Текст, 1)   'в переменную записывается CRC
 
aL = ""
T = CInt(CInt(Len(Текст)) - 1)  'Длинна строки
For i = 1 To T                  'начало цикла
     X1 = Mid(Текст, i, 1)      'символ из текста (Соответсвующий счётчику)
     X2 = ShiftCircle(CRCT, CStr(i))  'Переменная в которой хранится значение CRC передвинутой на значение Счётчика
    If (X1 = X2) Then           'Начало цикла ЕСЛИ проверяющего идентичность переменных x1 и x2
        aL = aL & X1            'Выполняется если условие верно
    Else
        aL = aL & F_Xor(X1, X2) 'Выполняется если условие ложно
    End If
Next i                          'конец цикла
CRCTT = Right(Текст, 1)         'в переменную записывается CRC
Шифр = (aL & CStr(CRCTT))       ' ВЫВОД функции : (Текст (зашифрованный или дешиврованный) и CRC)
End Function