Written by U1traDIMM 10.10.2K+1
Мне кажется, что у любого человека работающего в сети возникало желание зашифровать какую-либо информацию.
Допустим, что ты взломал Пентагон и посылаешь сообщение об этом своему коллеге.При этом ты не хочешь, чтобы это узнали злобные хакеры,ФСБ,ФБР,ЦРУ или хуже того - сам Пентагон.Поэтому будем шифроваться.
Займемся написанием небольшого криптографа.У него будет простой алгоритм шифрования, но для начала этого будет достаточно. Про создание более сложных алгоритмов шифрования я напишу позже в серии статей "Разработка криптостойкого алгоритма кодирования".
Нам нужны : форма, кнопка, 2 текстовых поля -- Text1 и key,массив из 2х Opition Button -- Tcode(0) и (1).
′Объявляем пару переменных
Dim koder As Long
Dim key As Long
Dim Problem String
Private Sub Command1_Click()′Нажали кнопку
On Error GoTo CheckEncode ′Куда идти если ошибка
key= key.Text′Узнаем key
Open Text1.Text For Binary As #1 ′Открываем файл
If Tcode.Item(0).Value = True Then ′Шифруем
For X = 1 To FileLen(Text1)
Get #1, X, koder
Put #1, X, koder + key ′Кодируем
DoEvents
Next X
Else ′Дешифруем
For X = 1 To FileLen(Text1) - 3
Get #1, X, koder
Put #1, X, koder - key
DoEvents
Next X
End If
Close #1
Exit Sub
CheckEncode:
CheckError ′Ошибка.
Close #1
End Sub
Private Sub CheckError()′Обработка пары ошибок.
On Error GoTo FileNonExists
If keyxt = "" Then Problem = "Cant work without key.": GoTo GetProblem ′Нет
key
If Text1.Text = "" Then Problem = " File wasnt specified.": GoTo GetProblem ′
FileNonExists:
Problem = " File not found.": GoTo GetProblem
GetProblem:
MsgBox "Cant encode/decode." & Problem ′ Выдаем мессадж-бокс.
End Sub
|
