Реферат: Шифрование в Delphi

👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Данные надо беречь. Сам посуди, обидно, если открытие ценой в сто миллионов енотов или рецепт безалкогольной водки, над которым ты корпел три вечера в мрачном подвале нелегального компьютерного клуба, — уплывет к злостному ленивому конкуренту, который, пользуясь твоим похмельем, наложил грязную лапу на приватные дискеты с ценнейшей инфой?! Дальше можно не продолжать. Шифруем, шифруем, шифруем!..
Добрый дядюшка Borland предоставил нам несколько занятных функций для работы со строками, о которых не все знают. Сосредоточены они в модуле StrUtils.pas. Такие функции, как RightStr, LeftStr совмещают стандартные команды Copy и Delete: так, LeftStr возвращает значение левой части строки до указанной вами позиции (что вытворяет RightStr, догадайся сам), а функция ReverseString и вовсе делает зеркальное отображение данной строки: 321 вместо 123. Используем ее в особенности, чтобы осложнить жизнь хитрому дешифровщику.
Алгоритм шифрования будет прост, как Win 3.1. С каждым символом кодируемого документа проделаем следующее:
1. Преобразуем символ в число командой Ord.
2. Преобразуем каждый символ пользовательского пароля в число и сумму этих чисел прибавим к полученному в пункте 1.
3. От результата отнимаем число, равное позиции данного символа. То есть буковки будут шифроваться по-разному в зависимости от их позиции в строке :).
4. То, что получилось, запишем обратно из чисел в символы командой Chr. Как видишь, после всех наших манипуляций этот символ уже будет другим.
5. Запишем всю строку навыворот командой ReverseString.
Дешифровка, как ты догадываешься, будет производиться в обратном порядке.
Теперь, когда алгоритм намертво засел в голове, реализуем соответствующую программу. Внимание! Не исключено, что это будет первая твоя программа с настоящим синтаксисом команд:
— так будет выглядеть он в консоли нашего приложения (да, оно будет консольным!). Команд всего две: crypt и decrypt — соответственно зашифровать и дешифровать файл, путь к которому указывается после пробела, а затем — твой пароль. НЕ ЗАБУДЬ ЕГО! Предупреждаю совершенно серьезно. Запомнил? В бой!
— закодируем File.txt. Результат (зашифрованный текст) сохраниться в той же директории, что и исполняемый файл нашего приложения под именем Translated_File.txt.
Decrypt C:\Translated_file.txt linuxmustsurvive
F1: TextFile; //результат (файл с переводом)
ToDo, FileName, PassW, Line, TranslatedFile: string;
//находим сумму числовых значений символов пароля
function Password(Psw: string): integer;
for i:=1 to Length(psw) do res:=res+ord(psw[i]);
function Crypt(CryptStr: string): string;
for i:=1 to Length(CryptStr) do begin
CryptStr:=RightStr(CryptStr,Length CryptStr)-1);
s:=chr(ord(s[1])+Password(PassW)-i);
function Decrypt(DecryptStr: String): String;
DecryptStr:=ReverseString(DecryptStr);
for i:=1 to Length(DeCryptStr) do begin
DeCryptStr:=RightStr(DeCryptStr,Length DeCryptStr)-1);
result:=result+chr(ord(s[1])-password(PassW)+i);
if UpperCase(ToDo)='EXIT' then Exit;
if AnsiContainsText(ToDo,'decrypt') then isCrypt:=1
else if AnsiContainsText(ToDo,'crypt') then isCrypt:=2;
//прочитав команду, удаляем ее из строки и читаем дальше
if position>0 then ToDo:=RightStr(ToDo,Length(ToDo)-position);
if position>0 then FileName:=LeftStr(ToDo,position-1);
PassW:=RightStr(ToDo,Length(ToDo)-position);
if (isCrypt<=0) or (PassW=EmptyStr) or (not FileExists(FileName)) then writeln('Wrong command')
TranslatedFile:=ExtractFilePath(paramStr(0)) + 'translated_' + ExtractFileName(FileName);
//читаем строки, пока не дойдем до конца файла
if isCrypt=1 then Line:=Decrypt(Line);
if isCrypt=2 then Line:=Crypt(Line);
Вот, собственно, и всё. Еще раз напоминаю, что результат (файл с переводом) сохранится В ТОЙ ЖЕ ДИРЕКТОРИИ, что и наше приложение, а не в той, где лежит исходный файл. В заключение процитирую отрывок из статьи «Криптография в C++» в номере 3.03 журнала «Хакер»:
Но я хочу тебя предупредить: в нашей стране, согласно указу № 334 от 1995 года, производить и распространять любые шифрующие средства можно, только имея лицензию ФАПСИ. Соответственно, шифровать нельзя :). Поэтому пиши программы только для личного пользования и только в познавательных целях.

Название: Шифрование в Delphi
Раздел: Рефераты по информатике, программированию
Тип: реферат
Добавлен 04:10:08 01 марта 2008 Похожие работы
Просмотров: 111
Комментариев: 16
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Если Вам нужна помощь с учебными работами, ну или будет нужна в будущем (курсовая, дипломная, отчет по практике, контрольная, РГР, решение задач, онлайн-помощь на экзамене или "любая другая" учебная работа...) - обращайтесь: https://clck.ru/P8YFs - (просто скопируйте этот адрес и вставьте в браузер) Сделаем все качественно и в самые короткие сроки + бесплатные доработки до самой сдачи/защиты! Предоставим все необходимые гарантии.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Реферат: Шифрование в Delphi
Оценка Решения Педагогической Задачи Эссе
Контрольная Работа На Тему Разработка Рекомендаций Для Безопасного Размещения Рабочего Места
Курсовая На Тему Менеджмент
Контрольные Работы Попов 7 Класс
Реферат: Fiber Optics Essay Research Paper Fiber Optics
Курсовая работа по теме Облік доходів підприємств
Курсовая работа по теме Создание диалогового окна в системе GELICON PRO
Контрольная Работа По Произведению Гроза Островский
Купить Курсовую Работу На Заказ Цена
Реферат по теме Малые дозы ионизирующего излучения и их воздействие на организм человека
Контрольная Работа На Тему Ботаника Как Наука. Предмет И Задачи Ботаники
Контрольная работа: Розірвання трудового договору з ініціативи працівника
Собрание Сочинений Издательства Художественная Литература
Реферат: Формирование гражданского общества в России 3
Реферат по теме Синоптическая проблема
Контрольная работа по теме Материально-техническое обеспечение. Формы поставок продукции
Реферат Образец По Экологии И Гигиены
Сочинение 3 Класс 3 Четверть
Практическая Работа Организационные Структуры Управления
Курсовая работа по теме Гендерные стереотипы в рекламе
Реферат: Маркетинг
Реферат: Мегаполисы
Доклад: Балтийская кольчатая нерпа