Коммпоненты:
MainMenu1
OpenDialog1
SaveDialog1
FontDialog1.
Memo1
___________________________________________________________________
MainMenu1:
Щёлкаем 2 раза по компоненту и добавляем следующее:
Файл,Правка,Формат.
У "файл" будет:
Открыть,Сохранить,Закрыть
В "Правка"
Шифровать/Расшифровать,Число xor
В "Формат"
Шрифт
В Memo1 в Object Inspector свойство Align присвойте значение alClient
_ ___________________________________________________________________
В раздел var добавте:
xr_num: string; Теперь кодинг:
Для пункта меню "Открыть":
KOD DELPHI:
OpenDialog1.InitialDir := GetCurrentDir;
if not OpenDialog1.Execute
then ShowMessage('File not selected!')
else //загружаем выбранный файл в Memo
Memo1.Lines.LoadFromFile(OpenDialog1.FileName); Для пункта меню "Сохранить"
SaveDialog1.InitialDir := GetCurrentDir;
if not SaveDialog1.Execute
then ShowMessage('File not saved!')
else
Memo1.Lines.SaveToFile(SaveDialog1.FileName); Теперь для пункта меню число xOr(этот пункт обязателен!):
if not InputQuery('XOR', 'Введите число xor:', xr_num)
then Exit; Для пункта меню Шифровать/Расшифровать:
var
xr: string; //зашифрованный текст
i: integer; //счетчик цикла
begin
for i:=1 to Length(Memo1.Text) do
begin //перебираем каждый символ в тексте
//выполняем указанное пользователем смещение
xr := xr + Chr(Ord(Memo1.Text[i]) xor StrToInt(xr_num));
end;
//заменяем оригинальный текст на зашифрованный
Memo1.Text := xr; В обработчик событий FormCreate напишем:
var
Str: String; //путь к параметру
i: Integer;
begin
xr_num := '2'; //по умолчанию смещение « 2
if (ParamCount > 0) then
begin
Str := ParamStr(1);
//Формируем путь к аргументу
for i:=2 to ParamCount do Str := Str +''+ ParamStr(i) ;
end;
{Если на вход программы поступили параметры, то отображаем
содержимое соответствующего файла в поле Memo }
if Str <> '' then Memo1.Lines.LoadFromFile(str); Теперь в пункт меню "Шрифт":
FontDialog1.Execute;
Memo1.Font:=FontDialog1.Font
Вот Конец!
Чтобы скачать нажмите "Перейти" "Пропустить рекламу"
Источник: http://www.forhacker.ru | 
