|
|
| Другие темы раздела | |
| Delphi Задача на динамическое создание компонента Здравствуйте! Подскажите, как написать обработчик кнопки, чтобы при нажатии на нее на форме динамически создалась кнопка 80х30 с именем/заголовком btn1, btn2, btn3 и т д. Кнопки создаются со случайными координатами и не выходят за пределы формы. https://www.cyberforum.ru/ delphi-beginners/ thread1852202.html |
Delphi (Де)Шифрование внешних файлов Всем привет! Вот заинтересовал вопрос о шифровании и дешифровки файлов. Программа использует внешние источники. Например, wav файлы или jpg картинки, или текстовые файлы. Допустим программа воспроизводит звук (при открытии или при нажатии кнопки – не важно). Какой ни будь ‘C:\sound.wav’. Можно ли сделать так, чтобы можно было заведомо зашифровать файл sound.wav (именно зашифровать... |
|
Delphi Игра на тренировку внимательности: не работает движение частиц
https://www.cyberforum.ru/ delphi-beginners/ thread1852191.html Помогите пожалуйста, приложу весь код программы, не работает движение частиц, что-то надо с таймером сделать, реал 3 день уже не могу сделать. Помогите. Желательно переделать и скинуть сюда или куда скажете. |
Delphi Вычислить сумму бесконечного сходящегося ряда с заданной погрешностью Всем привет. может кто помочь ? delphi вообще не изучал (( S=\frac{1}{3}+\frac{1}{6}+\frac{1}{9}+\frac{1}{12}+... https://www.cyberforum.ru/ delphi-beginners/ thread1852180.html |
|
Простое, нужно по кнопке вывести значения массива в строчку Delphi procedure TForm1.Button1Click(Sender: TObject); var a:array of integer; n,i:integer; begin a:= (0,0,0,0,0,0,0,0,0,0);; for i := 1 to 10 do a:= n; Memo1.text:=IntToStr(n); |
Delphi H:String и EncodeDateTime
https://www.cyberforum.ru/ delphi-beginners/ thread1851789.html Есть h типа String, в ней хранится 2016, 11, 12, 21,00,0,0 Нужно сделать примерно так: EncodeDateTime(h) | Но если так сделать будет Incompatible types: Word and String Переменная h берётся из БД |
|
Delphi Правильно ли написан код программы нажатия клавиш в блокноте?
https://www.cyberforum.ru/ delphi-beginners/ thread1851637.html Подскажите правильно ли написан код? почему то желаемые клавиши не жмутся в блокноте procedure TForm1.Button5Click(Sender: TObject); var wnd: HWND; begin wnd:=FindWindow(nil, 'notepad++'); if wnd<>0 then begin wnd:=FindWindowEx(wnd, 0, 'notepad++', nil); SendMessage(wnd, ord('9'), 0, 0); |
Delphi Ввод строки в одно действие, а не по символам Как сделать так, чтобы строку можно было ввести в одно действие, а не по символам. Я вводил строку через цикл по символамFor i:=1 to q do Readln(A);, а хочу чтобы можно было сразу ввести всю строку. |
|
Delphi Требуется совет в реализации агоритма Диффи-Хелмана Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1851587.html Помогите пожалуйста у меня имеется код не хочет работать функция шифрования прошу помощи |
Delphi Вычисление заданной функции в каждой точке отрезка
https://www.cyberforum.ru/ delphi-beginners/ thread1851583.html С помощью циклов,а затем найти сумму полученных значений Написал вот такой код program Project2; {$APPTYPE CONSOLE} uses SysUtils; var x : integer; y, s : real; |
|
Delphi Реализация процедуры Какой командой запускается процедура внутри процедуры? if key=#106 then procedure TForm1.Button14Click(Sender: TObject); |
Delphi Поиск текста в файле Добрый вечер всем. Сижу не пойму, что делаю не так. Месяц назад делал набросок, вроде все работало, сейчас сижу вспоминаю, ищет, но не все. В общем нужно найти заданное слово в тексте. Слово в тексте находит, но только в первой строке, если в файле напишешь его во второй или любой другой, он его не находит. Подтолкните, что делаю не так? Сильно не пинайте, только учусь) Вот сама программа ... https://www.cyberforum.ru/ delphi-beginners/ thread1851548.html |
|
3 / 3 / 1
Регистрация: 20.11.2012
Сообщений: 197
|
|
| 0 | |
Как реализовать шифрование Гронсфельда - Delphi - Ответ 977639716.11.2016, 15:31. Показов 3623. Ответов 5
Метки (Все метки)
тогда сообщение "ВОСТОЧНЫЙЭКСПРЕСС" зашифруется как: "ДХТЬРЮОГЛДЛЩСЧЖЩУ". то есть буква В сдвинется на 2 символа, буква О на 7 символов, буква С на 1, буква Т на 8 и т.д. Как это сделать? Вернуться к обсуждению: Как реализовать шифрование Гронсфельда Delphi
0
|
|
Лучшие ответы (1)
| 16.11.2016, 15:31 | |
|
Готовые ответы и решения:
5
Реализовать программу шифрования/дешифрования по алгоритму Гронсфельда Как реализовать AES (128 BIT) шифрование? Шифрование текстового файла методом Гронсфельда Шифр Гронсфельда - реализовать дешифровку |
| 16.11.2016, 15:31 | |
| 16.11.2016, 15:31 | |
|
Помогаю со студенческими работами здесь
0
Как реализовать шифрование данных в БД Как реализовать шифрование решёткой?
|
Наверх