VBA для тех кто любит думать

Сервис-центр ремонт компьютеров жулебино снабжен первоклассной техникой.

Функция XOR - часть 3


End Sub

 

А теперь - программа расшифровки данных. Точно так же разберем ее по строкам.

 

Sub decrypt()

Dim a, b, c, d As String

 

Строка для расшифровки:

 

c = "003004016001018027082016021025007083017029029009"

 

Пароль:

 

b = "password"

 

Итог расшифровывания:

 

a = ""

 

Узнаем длины каждой из строк:

 

lentext = Len(c)

lenpass = Len(b)

 

Собственно расшифровывание (попробуйте разобраться самостоятельно в структуре команды - это не так сложно):

 

For cn = 1 To lentext Step 3

a = a + Chr(Val(Mid(c, cn, 3)) Xor Asc(Mid(b, (Int(cn / 3) Mod lenpass) + 1, 1)))

Next cn

 

В итоге в переменной a - расшифрованная строка, ее можно записать в любое место - в документ, к примеру:

 

Selection.TypeText Text:=a

End Sub

 

Можно, конечно, еще добавлять в этот простой код всевозможные дополнения, например, функцию перевода строки цифр в строку символов, чтобы зашифрованный текст выглядел как бессмысленный набор букв. Но это - уже по желанию.

*       *       *




Начало  Назад  Вперед