программа шифрование

INTUIT.ru: Курс: Visual Basic .NET: Лекция №12: Исследование текстовых файлов программа шифрование обработка строк Твой путь к знаниям регистрация || зачетка | дипломы || настройки | корзина | заказы | личный счет Издательство «Открытые Системы» Курсы | Учебные программы | Учебники | Новости | Форум | Помощь Распродажа к 5-летию: 210 КУРСОВ НА ОДНОМ DVD + БЕСПЛАТНАЯ ДОСТАВКА версия для локальной работы ? Visual Basic .NET информация [-] информация [+] Автор: М. Хальворсон ? Уровень: для специалистов || Статус: бесплатный || Опубликован: 31.08.2006 Рейтинг: 4.40 || Популярность: 18 || Студентов: 286/35 Студентам: литература | учебники | софт | форум | мнения | однокурсники | рейтинг | статистика экзамен экстернат диплом Лекции: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Дополнительные материалы: 1 2 12. Лекция: Исследование текстовых файлов программа шифрование обработка строк Страницы: « | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | вопросы | » для печати программа шифрование PDA Если Вы заметили ошибку - сообщите нам или выделите ее программа шифрование нажмите Ctrl+Enter Включить комментарии || Настройки || Модерация || Помощь Шифрование текста с помощью изменения ASCII-кодов Закройте решение Sort Text программа шифрование откройте проект Encrypt Text, расположенный в папке c:\vbnet03sbs\Гл.12\encrypt text. Чтобы запустить программу, щелкните на кнопке Start (Начать).Введите в текстовое поле какой-нибудь текст. В меню Файл щелкните на команде Сохранить зашифрованный файл как программа шифрование сохраните этот файл в папке c:\vbnet03sbs\Гл.12 под именем padua.txt. Когда вы сохраняете текстовый файл, программа изменяет ASCII-код программа шифрование отображает результаты в текстовом поле, показанном ниже. Если вы откроете этот файл в Microsoft Word или другом текстовом редакторе, то увидите тот же результат - для защиты от несанкционированного прочтения символы в файле были зашифрованы. Чтобы восстановить файл в его первоначальном виде, выберите в меню Файл команду Открыть зашифрованный файл программа шифрование откройте файл padua.txt из папки c:\vbnet03sbs\Гл.12. Снова появится файл в его оригинальном виде, показанный ниже. В нижней части окна текстового поля вы можете увидеть один или два дополнительных символа, которые зависят от количества символов возврата каретки и/или перевода строки, которые вы ввели в конце документа. В меню Файл щелкните на команде Выход программа шифрование завершите программу. Изучение кода программы Encrypt Чтобы посмотреть код программы, выполняющей увиденное вами при работе с программой шифрование, откройте в Редакторе кода процедуру события mnuSaveAsItem_Click. Хотя эффект, который вы видели, может выглядеть несколько загадочно, это была довольно простая схема шифрования. С помощью функций Asc программа шифрование Chr программа шифрование цикла For я просто вычитал из ASCII-кода каждого символа из текстового поля некоторое число, программа шифрование затем сохранял зашифрованную строку в указанном текстовом файле. Здесь приведена полная процедура события. Dim Encrypt As String = "" Dim letter As Char Dim i, charsInFile As Short SaveFileDialog1.Filter = "Текстовые файлы (*.txt)¦*.txt> SaveFileDialog1.ShowDialog() If SaveFileDialog1.FileName <> "" Then 'сохраняем текст с помощью схемы шифрования (ASCII-код + 1) charsInFile = txtNote.Text.Length For i = 0 To charsInFile - 1 letter = txtNote.Text.Substring(i, 1) 'определяем ASCII-код программа шифрование вычитаем из него единицу Encrypt = Encrypt & Chr(Asc(letter) - 1) Next FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output) PrintLine(1, Encrypt) 'копируем текст на диск FileClose(1) txtNote.Text = Encrypt txtNote.Select(1, 0) 'удаляем выделение текста mnuCloseItem.Enabled = True End If Обратите особое внимание на оператор Encrypt = Encrypt & Chr(Asc(letter) - 1) который определяет ASCII-код текущего символа, вычитает из него 1, преобразует ASCII-код обратно в символ программа шифрование добавляет его к строке Encrypt. Теперь, чтобы увидеть, как программа производит расшифровку, отобразите в Редакторе кода процедуру события mnuOpenItem_Click. Этот код программы почти идентичен тому, который связан с командой Сохранить зашифрованный файл как, но вместо того, чтобы вычитать из ASCII-кода каждого символа по единице, он эту единицу прибавляет. Вот полная процедура события mnuOpenItem_Click: Dim AllText, LineOfText As String Dim i, charsInFile As Short Dim letter As Char Dim Decrypt As String = "" OpenFileDialog1.Filter = "Текстовые файлы (*.TXT)|*.TXT" OpenFileDialog1.ShowDialog() ' отображаем диалоговое окно Открыть If OpenFileDialog1.FileName <> "" Then Try 'открываем файл программа шифрование перехватываем все ошибки с помощью обработчика FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) Do Until EOF(1) 'читаем строки из файла LineOfText = LineInput(1) 'добавляем каждую строку в переменную AllText AllText = AllText & LineOfText & vbCrLf Loop 'теперь расшифровываем строку, вычитая единицу из ASCII-кода charsInFile = AllText.Length 'получаем длину строки For i = 0 To charsInFile- 1 'перебираем в цикле все символы letter = AllText.Substring(i, 1) 'получаем символ Decrypt = Decrypt & Chr(Asc(letter) + 1) 'прибавляем 1 Next I 'и создаем новую строку txtNote.Text = Decrypt 'затем отображаем преобразованную строку lblNote.Text = OpenFileDialog1.FileName txtNote.Select(1, 0) 'удаляем выделение текста txtNote.Enabled = True 'включаем текстовый курсор mnuCloseItem.Enabled = True 'включаем команду Закрыть mnuOpenItem.Enabled = False 'отключаем команду Открыть Catch MsgBox("Ошибка открытия файла. Возможно, файл слишком большой.") Finally FileClose(1) 'закрываем файл End Try End If Этот тип простого шифрования может быть именно тем, что вам требуется для сокрытия информации в ваших текстовых файлах. Однако файлы, зашифрованные таким способом, могут быть легко расшифрованы. Используя поиск вероятных эквивалентов общих символов, таких, как пробелы, определив ASCII-сдвиг, требуемый для восстановления этих общих символов программа шифрование запустив преобразование для всего текстового файла, человек, опытный в шифровании, может с легкостью расшифровать содержимое файла. Этот метод шифрования также не защищает от злонамеренного "физического" воздействия на файл - например, его можно просто удалить, если он не защищен в вашей системе, или его можно определенным образом изменить. Но если вы просто хотите быстро скрыть информацию, эта простая схема шифрования - то, что нужно. Вы можете поддержать наш проект программа шифрование автора курса? Дальше » Страницы: « | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | вопросы | » для печати программа шифрование PDA Внимание! Если Вы увидите ошибку на нашем сайте, выделите её программа шифрование нажмите Ctrl+Enter. Нужна помощь? • Забыли пароль? Вам сюда... • Есть вопрос? Спрашивайте! Вы можете: • Изменить персональные данные • Изменить параметры подписки Интернет-магазин: • Ваши заказы здесь • Ваш личный счет Курсы | Учебные программы | Учебники | Новости | Форум | Помощь Телефон: +7 (495) 253-9312, 253-9313, факс: +7 (495) 253-9310, email: info@intuit.ru © INTUIT.ru::Интернет-Университет Информационных Технологий - дистанционное образование, 2003-2008 Проект Издательства "Открытые Системы". Партнеры: РМ Телеком, KRAFTWAY COMPUTERS. разделы подшипниковый узел промышленый альпинизм штанга насосный телефонный обзвон фосфорный краска снегоуборочный машина 5004.14 (крышка) кайт лотерея renu multiplus 355мл кайт пилотажный тестоокруглитель ленточный метробонд легранд проект электропроводка прайс зеркало рефрижератор внутренний перегородка девелоперская компания лак эмаль дулевский фарфор покраска рчв герб вышивка экг сервис компания макса линдера спецобувь оптом подбор контрацепция пежо 307 детский гинеколог помещение шиномонтаж заказать флаг перевод денег 8800 gold edition архитектурный визуализация mobil cut легранд паркетный лак срочный перевод брэнд диспетчеризация программа шифрование данный кс-4361 купить раструб тонирование окон футбольный тотализатор sikkens краска фосфоресцирующий краска гайковерт международный конкурс o2 optix путевой стена срочный перевод передвижной сварочный агрегат купить раструб qtek kiev apartments service купить усилитель слоеный изделие гравировальный бур ubiquam огнезащитный состав видеослот время кострома масло форма экг сервис стальной топкий spartherm позитивный психология срок реализация рак химчистка доставка программа шифрование данный лотерея вымпел надпись кружок лотерея бахила девелоперская компания краска двухкомпонентный избавиться спам купить ломтерезку гиря торговый калибровочный квн съемка компания макса линдера газовый заправка брэнд жаростойкий краска холодный зеркало государственный герб lida очистка подогреватель программа шифрование холодильный агрегат rittal силуэт слименд лифт детский мир wow кострома жилье пионовая беседка автоматический отправка писем outlook учиться танго охота легавый билет russia music awards электропечь dimplex model elba медикаментозный прерывание беременность восстановление бухучета купить усилитель доставка кулеров цвет ламината класс 32 электрокардиограф кулер 939 мустанг лазер изготовление краска антенна радиочастотный pki изделие слойка ферромолибден учет данный автошкола кбе кулер 939 решетка окон вспучивающийся краска светлогорск выделенка metrobond срочный перевод три цвета: красный шелкография электротельфер спецобувь оптом сушильный машина electrolux сенсорный дисплей магнитный доска dunlup 205 55 r16 5440.13 (крышка) облицовка панель фасадный покрытие электрический прочность укв радиосвязь dunlup 205 55 r16 сдача ielts дирижабль управление кострома сухой мороженый паркетный лак виниловый дирижабль огнестойкий краска рассылка база данный рефконтейнеры антиобледенительные система облицовка панель knauf гипсокартон квн карбид кальций аппарат фигурный нарезка тест гнб лад блюдо фарфор qtek структурный штукатурка холодильный централь купить букмекерский линия изолента хб tognana фарфор контейнерный автозаправка автоматический оповещение доставка ноутбук герб рф ipsec время владимир люминисцентная краска ваза 2114 озонатор воздуха конкурентный стратегия крутой xxx видео k610 купить купить конденсатоотвод гайковерт электрический адресный база данный купить раструб переработка резина лечение иглоукалыванием скраб-пилинг тонирование стеклопакетов значок медаль фейрверк вечеринка герб область стелажи пазл скраб-пилинг купить 6131 программа шифрование