VPF::[Delphi] Шифр Виженера (цифры и спец. символы)

Pakostnik

Дата 14.11.2011, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.11.2011

Репутация: нет
Всего: нет

Доброе время суток.
Скачал программку которая создает таблицу Виженера и по ней шифрует данные, согласно введенного ключевого слова. У меня пока что только 1 вопрос по поводу неё: как добавить в таблицу цифры и спец знаки? Сам пробовал это сделать, но таблица не хочет строиться, не говоря уж о шифровании. Может кто знает в чем соль?

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Memo2: TMemo;
    Label4: TLabel;
    Button3: TButton;
    Label5: TLabel;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mas_alf: array[1..32] of char = ('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ь','Ы','Ъ','Э','Ю','Я');
  tab_Vig: array[1..32,1..32] of Char;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i,j,k,n:integer;
begin
 k:=0;
 n:=k;

 for i:=Ord('А')-191 to Ord('Я')-191 do
 begin
   k:=n+1;
   for j:=Ord('А')-191 to Ord('Я')-191 do
    begin
     if k = 33 then
        k:=1;
     tab_vig[i][j]:=mas_alf[k];
     k:=k+1;
    end;
    n:=n+1;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  key : array [0..255] of Char;
  s:char;
  k:Boolean;
  length_key,length_text,i,j,c,stroka,stolbec: integer;
begin
  Label5.Caption:='';//
  Memo2.Clear;//
  length_key:=Edit1.GetTextLen;
  Edit1.GetTextBuf(key,sizeof(key));
  length_text:=Memo1.GetTextLen;

 for i:=Ord('А')-191 to Ord('Я')-191 do
 begin
    for j:=Ord('А')-191 to Ord('Я')-191 do
    begin
      Label5.Caption:= Label5.Caption +'  '+ tab_Vig[i][j];
    end;
    Label5.Caption := Label5.Caption + #13+#10;
 end;

 j:=1;
 c:=0;
 k:=false;
 Memo2.Lines.Add('Зашифрованны текст:');
 Memo2.Lines.Add('------------------------');
  for i:= 0 to Memo1.Lines.Count-1 do
  begin

     s:=Memo1.Lines[i][j];
     if ((s <> #0) or (s <> #13)) then
     while k = false do
     begin
       if Ord(key[c])>223 then
         stolbec:=Ord(key[c])-32-191
       else
         stolbec:=Ord(s)-191;
       if Ord(s)>223 then
         stroka:=Ord(s)-32-191
       else
         stroka:=Ord(s)-191;
       Memo2.Text:=Memo2.Text+tab_Vig[stroka][stolbec];
       if(c < length_key-1)then
         c:=c+1
       else
         c:=0;
       j:=j+1;
       s:=Memo1.Lines[i][j];
       if(s = #0) then
         k:=true;
     end;
     k:=false;
     j:=1;
  end;
 Memo2.Lines.Add('------------------------');
end;


procedure TForm1.Button3Click(Sender: TObject);
var
  key : array [0..255] of Char;
  s:char;
  k:Boolean;
  length_key,length_text,i,j,c,stroka,stolbec,q: integer;
begin
  Label5.Caption:='';//
  Memo2.Clear;//
  length_key:=Edit1.GetTextLen;
  Edit1.GetTextBuf(key,sizeof(key));
  length_text:=Memo1.GetTextLen;
  j:=1;
  c:=0;
  k:=false;
  Memo2.Lines.Add('Расшифрованный текст:');
  Memo2.Lines.Add('------------------------');
  for i:= 0 to Memo1.Lines.Count-1 do
  begin

     s:=Memo1.Lines[i][j];
     if ((s <> #0) or (s <> #13)) then
     while k = false do
     begin
       if Ord(key[c])>223 then
         stolbec:=Ord(key[c])-32-191
       else
         stolbec:=Ord(s)-191;
       //if Ord(s)>223 then
         //stroka:=Ord(s)-32-191
       //else
         //stroka:=Ord(s)-191;
       for q:=1 to 32 do
       begin
         if tab_Vig[q][stolbec] = s then
         begin
           Memo2.Text:=Memo2.Text+Chr(q+191);
            break;
         end;
       end;

       if(c < length_key-1)then
         c:=c+1
       else
         c:=0;
       j:=j+1;
       s:=Memo1.Lines[i][j];
       if(s = #0) then
         k:=true;
     end;
     k:=false;
     j:=1;
  end;
 Memo2.Lines.Add('------------------------');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  f:TextFile;
begin
  Memo2.Lines.SaveToFile('output.txt');
  Application.MessageBox('Файл сохранен в текущую директорию!','Внимание');
end;

end.

Исходники во вложении.
Для примера: просто заменил в программе букву "Я" на цифру "1" - таблица перестала строиться.

northener

Дата 15.11.2011, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20

Цитата(Pakostnik @ 14.11.2011, 21:46

)

Скачал программку которая создает таблицу Виженера

Скачал изделие "недостудента". Или его переделал "недостудент".
Разбираться в этой помойке желания нет.
P.S. И вложения тоже нет, кстати.

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

MetalFan

Дата 15.11.2011, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

Цитата(Pakostnik @ 14.11.2011, 21:46

)

Может кто знает в чем соль?

Знает. Взять почитать книжку о программировании.
Ну или попросить модераторов переместить тему в раздел "Центр Помощи".
Тут за вас никто думать не будет.
Или показывайте попытки переделки с конкретными вопросами по коду или тема переедет в ранее упомянутый раздел.

Это сообщение отредактировал(а) MetalFan - 15.11.2011, 15:23

--------------------

There are always someone smarter than you...

MetalFan

Дата 16.11.2011, 08:06 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »