Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Шифрование текста

Автор: Drave 19.9.2010, 13:17

Приветствую всех 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? :(

Автор: Dexx 19.9.2010, 15:20

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