Зашифровать введенную строку - VB

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

Помогите с решением задач, я сама что то не могу! 1.Зашифровать введенную строку символов с возможностью последующей расшифровки. Спасибо заранее!

Решение задачи: «Зашифровать введенную строку»

textual
                            Листинг программы 
                        

                            Public Function Decrypt(EncryptedPassword As String, Number As Integer)
Dim Password As String, Counter As Byte
Dim Temp As Integer
Counter = 1
Do Until Counter = Len(EncryptedPassword) + 1
    Temp = Asc(Mid(EncryptedPassword, Counter, 1)) Xor (10 - Number)
    Temp = IIf(Counter Mod 2 = 0, Temp + Number, Temp - Number)
    Password = Password & Chr$(Temp)
    Counter = Counter + 1
Loop
Decrypt = Password
End Function
                        

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

8 голосов , оценка 4.375 из 5

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