Шифровка с помощью функции - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. У меня такая проблема.Хочу сделать шифровку с помощью функции. У меня есть строка, которую посимвольно считываю. Беру его код, изменяю и записываю в новую строку. Но не работает. Буду благодарен, если поможете.

Решение задачи: «Шифровка с помощью функции»

textual
Листинг программы
Private Sub Command1_Click()
    s = "Доброго времени суток"
    s = shif(s)
    MsgBox s
    s = de_shif(s)
    MsgBox s
End Sub
 
Function shif(ByVal str_1 As String) As String
    For Index = 1 To Len(str_1)
       Mid(str_1, Index, 1) = Chr(Asc(Mid(str_1, Index, 1)) + 1)
    Next Index
    shif = str_1
End Function
 
Function de_shif(ByVal str_1 As String) As String
    For Index = 1 To Len(str_1)
       Mid(str_1, Index, 1) = Chr(Asc(Mid(str_1, Index, 1)) - 1)
    Next Index
    de_shif = str_1
End Function

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


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

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

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