Шифрування в 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 - відповідно зашифрувати і дешифрувати
файл, шлях до якого вказується після пробілу, а потім - твій пароль. НЕ
ЗАБУДЬ ЙОГО! Попереджаю цілком серйозно. Запам'ятав? У бій!
Crypt
C: file.txt linuxmustsurvive
--
закодіруем File.txt. Результат (зашифрований текст) зберегтися в тій же
директорії, що і виконуваний файл нашого застосування під ім'ям
Translated_File.txt.
Decrypt C: Translated_file.txt
linuxmustsurvive
--
дешифрування.
Реалізовується
це ось як:
program Crypter;
($ APPTYPE CONSOLE)
uses
SysUtils,
StrUtils;
//!!
var
F,
//вхідний файл
F1:
TextFile;// результат (файл з перекладом)
ToDo, FileName, PassW, Line,
TranslatedFile: string;
position,
IsCrypt: integer;
// знаходимо
суму числових значень символів пароль
function Password (Psw: string):
integer;
var
i, res: integer;
begin
res: = 0;
for i: = 1 to Length (psw) do
res: = res + ord (psw [i]);
result: = res;
end;
function Crypt (CryptStr: string):
string;
var
s: string;
i: integer;
begin
if CryptStrEmptyStr then
for i: = 1 to Length (CryptStr) do
begin
s: = LeftStr (CryptStr, 1);
CryptStr: = RightStr (CryptStr, Length
CryptStr) -1);
// Шифровки:
s: = chr (ord (s [1]) + Password (PassW)-i);
result: = result + s;
end;
result: = ReverseString (result);
end;
function Decrypt (DecryptStr:
String): String;
var
i: integer;
s: String;
begin
DecryptStr: = ReverseString (DecryptStr);
if DecryptStrEmptyStr then
for i: = 1 to Length (DeCryptStr) do
begin
s: = LeftStr (DeCryptStr, 1);
DeCryptStr: = RightStr (DeCryptStr, Length
DeCryptStr) -1);
// Дешифрування:
result: = result + chr (ord (s [1])-password (PassW) + i);
end;
end;
begin
while true do begin
isCrypt: = 0;
writeln (# 10 + 'Crypter>' + # 10);
// Яку команду ввів юзер?
readln (ToDo);
if UpperCase (ToDo) = 'EXIT' then Exit;
if AnsiContainsText (ToDo, 'decrypt')
then isCrypt: = 1
else if
AnsiContainsText (ToDo, 'crypt') then isCrypt: = 2;
// прочитавши
команду, видаляємо її з рядка і читаємо далі
position: = pos ( '', ToDo);
if position> 0 then
ToDo: = RightStr (ToDo, Length (ToDo)-position);
// Читаємо шлях до файлу
position: = pos ( '', ToDo);
if position> 0 then
FileName: = LeftStr (ToDo, position-1);
// Читаємо пароль
PassW: = RightStr (ToDo, Length (ToDo)-position);
// Все правильно? Починаємо!
if (isCrypt
