Шифровка с помощью функции - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д