VPF::Шифрование текста - Форум программистов

Drave

Дата 19.9.2010, 13:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 29.9.2007

Репутация: нет
Всего: нет

Приветствую всех smile

нужно сделать программу для шифрования и расшифровывания текста.
Есть три формы в первую вводится текст что шифровать, в третью ключ шифрования, а во вторую после шифрования результат.
Для этого использую такой код

Код


Function AscEncode(str)
    Dim i
    Dim sAscii
    
    sAscii = ""
    For i = 1 To Len(str)
        sAscii = sAscii + CStr(Asc(Mid(str, i, 1)))
    Next
    
    AscEncode = sAscii
End Function

Суть в том чтобы формы 1 и 3 перевести в Asci код а потом сложить и по идее после вычитания ключа из того что получилось получится исходный текст. Делаю так

Код


Text2.Text = Val((AscEncode(Text1.Text))) + Val((AscEncode(Text3.Text)))

но при длинных текстах у меня ошибка Overflow. Как складывать такие большие числа в VB? :(

Это сообщение отредактировал(а) Drave - 19.9.2010, 13:18

Dexx

Дата 19.9.2010, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

тут много всего

Это сообщение отредактировал(а) Dexx - 21.9.2010, 18:09

Присоединённый файл ( Кол-во скачиваний: 16 )

d5cab11b92e6.zip 621,33 Kb

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »