Шифрование строки смещением - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы