![]() |
![]() ![]() v.5.2011.12.30 |
Хитрый стрелок экранов, Добавить функцию? Без проблем! ;-) |
|
Visual Basic .NET - Криптография, защита данныхВсе примеры / Безопасность / Криптография, защита данныхXOR Encryption
Автор: Артем Донцов | добавлено: 16.05.2011, 13:53 | просмотров: 4247 (1+) | комментариев: 0 | рейтинг:
Пример использования шифрования текста алгоритмом 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
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|