ник: час
Для работы с классом потребуются 2 глобальные функции
одна кодирует
вторая наоборот
обращение к первой закодируй Fun_Code ("Вася") получаем г2о9о
спросим вторую чё такое Fun_DeCode("г2о9о") ответ Вася
Public Function Fun_Code(Str_Text As String) As String
Dim cipherTest As New Cipher
cipherTest.KeyString = "кот" ' ключевое слово можно любое
cipherTest.Text = Str_Text
cipherTest.DoXor
cipherTest.Stretch
Fun_Code = cipherTest.Text
End Function
Public Function Fun_DeCode(Str_Code As String) As String
Dim cipherTest As New Cipher
cipherTest.KeyString = "Кот" ' ключевое слово
cipherTest.Text = Str_Code
cipherTest.Shrink
cipherTest.DoXor
Fun_DeCode = cipherTest.Text '
End Function