Шифрование строки смещением - VB
Формулировка задачи:
Зашифровать введенную с клавиатуры строку, поменяв местами первый символ со вторым, третий с четвертым и т. д. Затем провести дополнительную шифровку результата смещением кода. Провести дешифровку.
Пробовал через Replace, но возникли проблемы с дешифровкой. И немного не разобрался со смещение кода.
Решение задачи: «Шифрование строки смещением»
textual
Листинг программы
Option Explicit Function rep(S As String) As String Dim b() As Byte Dim bb As Byte Dim i As Long b = S For i = 0 To UBound(b) - 2 Step 4 bb = b(i) b(i) = b(i + 2) b(i + 2) = bb Next i rep = b End Function Function Shift(S As String, n As Integer) As String Dim b() As Byte Dim i As Long b = S For i = 0 To UBound(b) Step 2 b(i) = (n + b(i)) And 255 Next i Shift = b End Function Sub Example() Dim S As String 'шифруем S = "ШиФр" S = rep(S) S = Shift(S, 15) MsgBox S 'дешифруем S = Shift(S, -15) S = rep(S) MsgBox S End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д