Мне кажется, что у любого человека работающего в сети возникало желание зашифровать какую-либо информацию.
Допустим, что ты взломал Пентагон и посылаешь сообщение об этом своему коллеге.При этом ты не хочешь, чтобы это узнали злобные хакеры,ФСБ,ФБР,ЦРУ или хуже того - сам Пентагон.Поэтому будем шифроваться.
Займемся написанием небольшого криптографа.У него будет простой алгоритм шифрования, но для начала этого будет достаточно. Про создание более сложных алгоритмов шифрования я напишу позже в серии статей "Разработка криптостойкого алгоритма кодирования".
Нам нужны : форма, кнопка, 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
