|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.10.2007, 23:53 | #11 |
Регистрация: 18.10.2007
Сообщений: 6
|
форма.JPG вот такая у меня форма
а вот и само начало кода unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit1.SetFocus; end; procedure TForm1.Button2Click(Sender: TObject); begin close end; end. |
19.10.2007, 12:37 | #12 | ||
Форумчанин
Регистрация: 15.10.2007
Сообщений: 147
|
Кнопка "Шифрование"
Цитата:
Цитата:
Последний раз редактировалось Maslan; 19.10.2007 в 13:30. |
||
19.10.2007, 15:23 | #13 |
Регистрация: 18.10.2007
Сообщений: 6
|
Сеня на лабе сделали все-таки шифрование, а вот обратно зашифрованный текст не смогли расшифровать не смогли! Так что спасибки огромное!
|
30.03.2008, 13:54 | #14 |
Пользователь
Регистрация: 17.02.2008
Сообщений: 53
|
помогите, этот алгоритм глючит..
вообщем все тоже самое, только вместо эдит1 мемо1, а вместо эдит3 мемо2 все прекрасно шифрует и дешифрует.. еслибы не одно но.. в зависимости от ключа, он шифрует не все строки, а только некоторые и с определенными символами например в мемо1 вставил текст около 40 строк + пробелы между ними написал ключ солне, все работает.. написал солнце, тогда шифрует только 1 строку, а не остальные шифрует.. если ц в другом месте написать, текст будет уже длиннее но не весь.. ну и еще какието символы глюченные были.. и глючили они не всегда а только в длинных текстах в основном, хотя в коротких иногда нормально было а иногда нет.. Последний раз редактировалось Karyuudo; 30.03.2008 в 13:56. |
24.05.2008, 22:14 | #15 |
Новичок
Джуниор
Регистрация: 24.05.2008
Сообщений: 1
|
Ребята!А подскажите, пожалуйста, как сделать так, чтобы в методе Вижинера шифровка и расшифровка была с помощью только русской литеры. Я попробовала, у меня прописные и заглавные буквы не сохраняются.
|
13.10.2008, 00:09 | #16 |
The IT Crowd
Пользователь
Регистрация: 10.10.2008
Сообщений: 41
|
Друзья, товарищи, программисты. Стыдновато ведь уже 4-й курс как я программист и тут помощи просить, но всё же(тем более хочу нормально всё понять и разбираться). Помогите разобраться, в следующем коде, который описан пользователем Maslan. Как я понял, это код для шифрования и расшифровывания 256 символов, но а если мне необходимо только русс. алфавит, не уже ли просто сменить цифру "256" на "33"?!
Если не затруднит с объяснениями.
"Одни наслаждаются дождём, другие просто промокают." - Роджер Миллер
|
13.10.2008, 18:56 | #17 |
The IT Crowd
Пользователь
Регистрация: 10.10.2008
Сообщений: 41
|
У меня есть шифр Цезаря, и он чем-то похож на Виженера(имеется ввиду код), но я не могу понять, что в коде нужно изменить... в шифре Виженера всмысле.
"Одни наслаждаются дождём, другие просто промокают." - Роджер Миллер
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Метод вижинера | Ghost_Dante | Помощь студентам | 12 | 01.12.2011 21:58 |
Метод Гаусса | IgorKr | Помощь студентам | 10 | 03.02.2008 11:28 |