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

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

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

                    Листинг программы
                
 
                        
                          
                    
Function shif(str_1) '
leng = Len(str_1) ' длина строки
For index = 1 To leng ' цикл
str_2 = Mid(str_1, index, 1) 'создание новой строки 
ind = Asc(str_2) 'перевод из символа в число
ind = ind + 1 'изменение кода
str_3 = Chr(ind) ' обратный перевод
Next index
End Function

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы