Page 94 - 4450
P. 94
End If
Next i
Print Sum
End Sub
Рисунок 15.2 – Результат виконання прогами
Криптографія – наука про способи перетворення
інформації (шифрування) з метою її захисту. Розшифрування
інформації називається криптоаналізом. Різні способи
захисту інформації використовують в наші дні в банківській
справі, де через комп‘ютерні мережі пересилають контракти,
документи.
Приклад. Скласти програму для кодування тексту за
таким правилом: вилучити з тексту пропуски, коми, крапки, а
всі решта символів продублювати.
Private Sub Command1_Click()
s = Text1.Text
b = " "
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c <> "," And c <> "." And c <> " " Then
b = b + c + c
End If
Next i
Label1.Caption = b
92
