|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#2
13.11.2007, 23:17
|
|||
|
|||
Лови!:)
Код:
var
Form1: TForm1;
const alphabet = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя1234567890АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ ,.;:-+_()!?"№%*/=\|@#$^~`''&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
implementation
uses About;
{$R *.dfm}
//шифрование Вижинера
for i:=0 to memo1.lines.count-1 do
begin
wifr :=''; wifr2 :=''; klu4 := '';
wifr := Memo1.Lines[i];
dlina_text := length(Memo1.Lines[i]);
kkk := dlina_text div dlina_klu4a + 1;
for t := 1 to kkk do
klu4 := klu4 + key;
for j:=1 to length(wifr) do
begin
t:=0; k:=0;
for p :=1 to dlina_alphabet do
begin
if wifr[j] = alphabet[p] then t := p;
if klu4[j] = alphabet[p] then k := p;
end;
w := (t + k) mod dlina_alphabet;
if w = 0 then w := dlina_alphabet;
jj:=1;
h: if jj <= dlina_alphabet then
begin
if w = jj then
begin wifr2 := wifr2 + alphabet[jj];
goto h1;
end
else
jj:=jj+1;
goto h;
end;
h1: ;
end;
Memo1.Lines[i] := wifr2;
end;
memo2.Clear;
Memo2.Lines.Add(Memo1.Lines.GetText);
end;
Код:
procedure TForm1.Button4Click(Sender: TObject);
label h, h1;
Var
key, wifr,wifr2, klu4 : String;
kkk, w, t, k, jj, i, j,p : integer;
dlina_klu4a, dlina_text, dlina_alphabet : integer;
begin
for i:=0 to memo1.lines.count-1 do
begin
wifr :=''; wifr2 :=''; klu4 := '';
wifr := Memo1.Lines[i];
dlina_text := length(wifr);
kkk := (dlina_text div dlina_klu4a) + 1;
for t := 1 to kkk do
klu4 := klu4 + key;
for j:=1 to length(wifr) do
begin
t:=0; k:=0;
for p :=1 to dlina_alphabet do
begin
if wifr[j] = alphabet[p] then t := p;
if klu4[j] = alphabet[p] then k := p;
end;
if (t-k) > 0 then
w := t-k else w := (t+dlina_alphabet) - k;
jj:=1;
h: if jj <= dlina_alphabet then
begin
if w = jj then
begin wifr2 := wifr2 + alphabet[jj];
goto h1;
end
else
jj:=jj+1;
goto h;
end;
h1: ;
end;
Memo1.Lines[i] := wifr2;
end;
memo2.Clear;
Memo2.Lines.Add(Memo1.Lines.GetText);
end; |
|
#4
14.11.2007, 12:53
|
|||
|
|||
|
Код:
var
Form1: TForm1;
const alphabet = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя1234567890АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ ,.;:-+_()!?"№%*/=\|@#$^~`''&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
implementation
uses About;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Memo2.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;
//процедура шифрования текста
procedure TForm1.Button2Click(Sender: TObject);
label h, h1;
Var
key, wifr, wifr2, klu4 : String;
kkk, w, p,t, k, jj, i, j : integer;
dlina_klu4a, dlina_text, dlina_alphabet : integer;
begin
key := (edit1.Text) ; // ключ (строка)
dlina_text := 0;
dlina_klu4a := length(key); // длина ключа (строки)
dlina_alphabet := length(alphabet); //длина алфавита
// проверка на наличие текста и ключа
if (memo1.Lines[0] = '') or (key = '') then // если нет текста или ключа
begin
Application.MessageBox('Введите текст и ключ!','Error');
exit;
end;
//шифрование Вижинера
for i:=0 to memo1.lines.count-1 do
begin
wifr :=''; wifr2 :=''; klu4 := '';
wifr := Memo1.Lines[i]; //i-я строка Memo1 в wifr для преобразований
dlina_text := length(Memo1.Lines[i]); // длина текста
//чтобы длина ключа соответствовала длине текста
kkk := dlina_text div dlina_klu4a + 1;
for t := 1 to kkk do
klu4 := klu4 + key;
for j:=1 to length(wifr) do
begin
t:=0; k:=0;
for p :=1 to dlina_alphabet do
begin
if wifr[j] = alphabet[p] then t := p; //t-номер символа открытого текста
if klu4[j] = alphabet[p] then k := p; //k-номер символа ключа
end;
w := (t + k) mod dlina_alphabet; //w - номер символа зашифрованного символа
if w = 0 then w := dlina_alphabet;
jj:=1;
h: if jj <= dlina_alphabet then
begin
if w = jj then
begin wifr2 := wifr2 + alphabet[jj];
goto h1;
end
else
jj:=jj+1;
goto h;
end;
h1: ;
end;
Memo1.Lines[i] := wifr2; //в i-ю строку Memo2 помещаем защифрованную i-ю строку Memo1
end;
memo2.Clear;
Memo2.Lines.Add(Memo1.Lines.GetText);
end;
//процедура расшифрования текста
procedure TForm1.Button4Click(Sender: TObject);
label h, h1;
Var
key, wifr,wifr2, klu4 : String;
kkk, w, t, k, jj, i, j,p : integer;
dlina_klu4a, dlina_text, dlina_alphabet : integer;
begin
key := (edit1.Text) ; // ключ (строка)
dlina_text := 0;
dlina_klu4a := length(key); // длина ключа (строки)
dlina_alphabet := length(alphabet); //длина алфавита
// проверка на наличие текста и ключа
if (memo1.lines[0] = '') or (key = '') then // если нет текста или ключа
begin
Application.MessageBox('Введите текст и ключ!','Error');
end;
//расшифрование Вижинера
for i:=0 to memo1.lines.count-1 do
begin
wifr :=''; wifr2 :=''; klu4 := '';
wifr := Memo1.Lines[i]; //i-я строка Memo1 в wifr для преобразований
dlina_text := length(wifr); // длина текста
//чтобы длина ключа соответствовала длине текста
kkk := (dlina_text div dlina_klu4a) + 1;
for t := 1 to kkk do
klu4 := klu4 + key;
for j:=1 to length(wifr) do
begin
t:=0; k:=0;
for p :=1 to dlina_alphabet do
begin
if wifr[j] = alphabet[p] then t := p; //t-номер символа открытого текста
if klu4[j] = alphabet[p] then k := p; //k-номер символа ключа
end;
if (t-k) > 0 then
w := t-k else w := (t+dlina_alphabet) - k; //w-номер символа расшифр.текста
jj:=1;
h: if jj <= dlina_alphabet then
begin
if w = jj then
begin wifr2 := wifr2 + alphabet[jj];
goto h1;
end
else
jj:=jj+1;
goto h;
end;
h1: ;
end;
Memo1.Lines[i] := wifr2;
end;
memo2.Clear;
Memo2.Lines.Add(Memo1.Lines.GetText);
end; |
|
#5
14.11.2007, 12:58
|
|||
|
|||
|
to Winni
Не знаю почему у тебя ошибка деления на 0, но я пару недель назад сдавал в универе эту лабу и никаких проблем не было, НО единственный минус в том, что я не смог додуматься как при шифровании/дешифровании сохранять абзацы в тексте!  Может кто поможет? А вобще сейчас делаю следующую лабу (тоже по Вижинеру) с автоключом, который в реестр пишется! Когда доделаю - выложу!  P.S. Хотел выложить всю прогу, но че-т не получается приаттачить файл, хотя и размер 18 кб. Могу на мыло кинуть, если надо! Последний раз редактировалось ~ SaM ~, 14.11.2007 в 13:00. |
|
#6
14.11.2007, 13:18
|
||||
|
||||
|
Цитата:
|
|
#8
14.11.2007, 21:39
|
||||
|
||||
|
Цитата:
|
|
#9
15.11.2007, 11:02
|
|||
|
|||
|
Спасибо Sam, все отлично! Но прога не работает у меня. Отправь мне по мылу, пли-и-из!
 Gulnaz312@mail.ru Надеюсь, что разберусь в коде, а если нет то снова придеться обратиться к тебе!! |
|
#10
15.11.2007, 12:39
|
||||
|
||||
У меня всё работает.
Только у тебя в архиве нет второй формы About. Вот на неё он и ругается! Я убрал всё ссылки на эту форму. Вот исправленный архив: Последний раз редактировалось Yurk@, 16.08.2009 в 16:39. |
|
#12
19.11.2007, 12:46
|
|||
|
|||
|
Прога не работает! Я не могу ввести текст с клавы, почему? Поудаляла все ненужные кнопки, типа - Открыть, Сохранить! Вроде шифрует, но опять не правильно! Сдвиг на 1 букву не правильно! например если буква О с ключом П должна шифроваться как Э,а шиф-ся как Ю!
|
Линейный вид
