Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Артем Донцов -

Visual Basic .NET - Криптография, защита данных

Все примеры / Безопасность / Криптография, защита данных

XOR Encryption

Автор: Артем Донцов | добавлено: 16.05.2011, 13:53 | просмотров: 3651 (1+) | комментариев: 0 | рейтинг: *x8
Пример использования шифрования текста алгоритмом XOR

Инструкции

xor_encrypt("Текст для шифрования/Дешифрования", "Любой пароль")

Код

  Public Function xor_encrypt(ByVal text As String, ByVal key As String) As String
    Dim i As Short
    Dim KeyChar As Integer
    Dim Result As String = ""
    Try
      KeyChar = Asc(key)
      For i = 1 To Len(text)
        Result &= Chr(KeyChar Xor Asc(Mid(text, i, 1)))
      Next
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
    Return Result
  End Function
Об авторе

Артем Донцов

Нет информации об авторе...

См. также:
Профиль автора
Артем Донцов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики