Вопрос № 116049: Преведствую Вас уважаемые эксперты, спасибо Вам огромно за помощь мне в решении одной проблемы, но теперь у меня вылезла другая штука. А дело всё в том, что хочу сделать вот такую чтуку, чтоб она у меня шифровала слова, например: "яма" - &q...Вопрос № 116052: Здравствуйте,уважаемые эксперты!Помогите пожалуйста с кодом.Мне нужно зашифровать строку(файл) методом xor, т.е. ввожу в edit1 строку "мама мыла раму",
в edit2 ввожу слово,которое будет являться ключом- с помощью которого буду зашифровывать...Вопрос № 116074: Добрый день.
Мне надо сделать окно настроек, примерно как в делфи "Options", то есть слева будут разные кнопки категорий, а справа область, где в зависимости от выбраной категории будет отображаться определенный набор контролов (метки, ...
Вопрос № 116.049
Преведствую Вас уважаемые эксперты, спасибо Вам огромно за помощь мне в решении одной проблемы, но теперь у меня вылезла другая штука. А дело всё в том, что хочу сделать вот такую чтуку, чтоб она у меня шифровала слова, например: "яма" - "вть".......как-нибудь так.... Подскажите пожалуйста, можно ли так сделать как-нибудь. Заранее огромное спасибо! С уважением sefiros.
Отправлен: 26.12.2007, 14:24
Вопрос задал: Sefiros (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Raptor3
Здравствуйте, Sefiros!
Шифрует слово в случайный набор букв(кирилица)
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 3-ий класс)
Ответ отправлен: 26.12.2007, 14:36
Отвечает: Дегтярев Антон Александрович
Здравствуйте, Sefiros!
Уважаемый. Продумайте свой алгоритм шифрования, а затем можно сделать следующее беретё требуемую строчку или читаете файл построчно записываете строку в переменную. Определяете длину строки перебираете строку посимвольно и изменяете символ на требуемый, по алгоритму.
вот примет
Var
S: string;
i,j : integer;
c: char;
si : integer;
ne : string;
begin
s := edit1.text;
ne := '';
i := length(s);
for j:=0 to i do
begin
c := s[j];
si := ord(c);
si := si+10;
ne := ne+char(si);
end;
edit2.text := ne;
end;
S: string;
i,j : integer;
c: char;
si : integer;
ne : string;
begin
s := edit1.text;
ne := '';
i := length(s);
for j:=0 to i do
begin
c := s[j];
si := ord(c);
si := si+10;
ne := ne+char(si);
end;
edit2.text := ne;
end;
--------- Знаете для чего нужен Яndex? для проверки работы интернета
Здравствуйте,уважаемые эксперты!Помогите пожалуйста с кодом.Мне нужно зашифровать строку(файл) методом xor, т.е. ввожу в edit1 строку "мама мыла раму", в edit2 ввожу слово,которое будет являться ключом- с помощью которого буду зашифровывать,например "молоко", а в edit3 получаю зашифрованную строчку(типа бвгколфжщу тсоаов). у меня работает только если в качестве ключа ввожу цифры. Или xor не предназначен для ключа состоящего из букв?
Отправлен: 26.12.2007, 15:06
Вопрос задала: Cholito (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 7)
Отвечает: Drbear
Здравствуйте, Cholito!
в одном из старых приложений я использовал примерно такой код:
на форме 4 TEdit:
-строка
-ключ
-рез. закодированный
-рез. разкодированный
и 2 кнопки:
-закодировать
-разкодировать
function XorCodec(Input, Key: pchar): PAnsiChar;
var
i, j: integer;
tmps, text: string;
begin
text := Input;
for i := 1 to length(text) do
begin
if i > length(key) then
j := i mod length(key)
else
j := i;
tmps := tmps + chr((ord(text[i])) xor (ord(key[j])));
end;
result := pchar(tmps);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text := XorCodec(PAnsiChar(Edit1.Text), PAnsiChar(Edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit4.Text := XorCodec(PAnsiChar(Edit3.Text), PAnsiChar(Edit2.Text));
end;
Ответ отправил: Drbear (статус: 3-ий класс)
Ответ отправлен: 26.12.2007, 15:35 Оценка за ответ: 4
Вопрос № 116.074
Добрый день.
Мне надо сделать окно настроек, примерно как в делфи "Options", то есть слева будут разные кнопки категорий, а справа область, где в зависимости от выбраной категории будет отображаться определенный набор контролов (метки, едиты, комбобоксы и тд). И вот собственно как такое сделать? Видимо этото чтото типа PageControl-а, только мне нужно без вкладок наверху.
Отправлен: 26.12.2007, 18:11
Вопрос задал: Red Spirit (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Виктор Пырлик
Здравствуйте, Red Spirit!
используйте TpageControl – создавайте вкладки сколько вам надо. У самих вкладок (TtabSheet) делайте свойство TabVisible = False. таким образом, у вас не будет видно что вы используйте панель вкладок, а управляя - PageControl1.ActivePageIndex := n; где n – нужный номер вкладки (счет идет с 0), вы создадите эффект сменяющихся форм... т.е. в соответствии с логикой, можно менять активную в текущий момент вкладку. Аналогичное можно сделать с помощью фрэймов – но так гораздо проще
и удобнее в управлении.
PS: на стадии разработки формы - рекомендую сделать вкладки видимыми. А при старте формы - делать их не видимыми с установкой после цикла активной вкладки.
--------- Если ничего не помогло - надо читать инструкцию
Ответ отправил: Виктор Пырлик (статус: Специалист)
Ответ отправлен: 26.12.2007, 18:36 Оценка за ответ: 5 Комментарий оценки: Отлично! Большое спасибо.
