Мне понадобилось хешировать некоторый текст методом SHA1 (не будем вдаваться в подробности). Для этого я стал искать примеры реализации на Delphi. И нашел… Код я, как смог, доработал (заработал в Delphi 2010, правильный хеш пустой строки).

(читать всё…)

Проблема в том, что при открытии второго файла InFileR возникает исключение (не могу получить доступ к файлу, так как он занят другим процессом), которое я вижу в except, и после этого не выполняется FreeAndNil(InFileR);, т.е. на нем тоже возникает исключение.
Что я делаю не так? Во всех примерах в интернете с TFileStream в try выполняется create, а в finally выполняется Free. Собственно Free я тоже пробовал, результат тот же.

var
  InFileL,InFileR: TFileStream;
begin
  try
    try
      InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
      InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
  
  //действия с файлами (в частности сравнение контрольных сумм)

    except
      on E: Exception do ShowMessage(E.Message);
    end;
  finally
      FreeAndNil(InFileL);
      FreeAndNil(InFileR);
  end;

(читать всё…)

Как реализовать шифрование(алгоритм — трафарет Ришелье)?

Пример:

Ключ: 2741635; 15243; 671852493; 07;28615;943;…
Открытый текст:
LETTER SENT TO THE EMPEROR GIVING FULL DETAIL
Ключ:
(2741635) (15243) (671852493) (07) (28615)(943)(2741635)
Шифртекст:
TLRTSEE ETOTN EPOEMTHER NI LUGIG VFR TLIE SAD

(читать всё…)

Как записать информацию о файле в Memo, используя отдельно подключаемый юнит, который я нашел на просторах интернета:

unit FileInfo;

Я изучаю Delphi и мне бы хотелось вывести всю информацию о выбранном файле в memo.
Конечно, если есть варианты легче, не подключая отдельный юнит, я тоже был бы рад посмотреть.

(читать всё…)

Стоит задача случайно перемешать последовательность символов длинной около 70 млн символов. Подскажите как это проще всего реализовать?

(читать всё…)

Необходимо написать программу, которая при нажатии на кнопку удалила бы файл с рабочего стола или скопировала файл с рабочего стола и вставила его в папку, в которой лежит сама программ.Как получить путь к рабочему столу?

(читать всё…)

Как сделать динамическим обратный отсчет?
Есть функция, которая вычисляет и выводит на страницу остаток времени до определенного момента, проще сказать, таймер обратного отсчета.
Проблема в том, остаток времени вычисляется по входным параметрам функции.
Вопрос:
Как сделать самовызов функции, с передачей динамических параметров?

(читать всё…)

Уже не первую неделю ищу способ получения текста из окна браузера Google Chrome и ему подобных для последующей обработки этих данных. Пересмотрел множество тем на разных форумах, но во всех случаях обсуждение либо заканчивается ничем, либо решение уже давно не работает в современных версиях браузера: ни поиск контролов по классам, ни уж тем более DDE для извлечения текста не дают результатов.

Подскажите, пожалуйста, есть ли какой-то другой способ (желательно на C++) для получения текста с просматриваемой страницы? Или это стало невозможным из соображений безопасности?

P. S. Вариант Ctrl+A, Ctrl+C работает, конечно, но слишком раздражает.

(читать всё…)

У меня RAD Studio C++ Builder XE, ставлю компонент Image туда запихиваю файл gif, но когда запускаю проект, GIF отображается как картинка, а не анимация, почему так происходит, и встречался ли кто нибудь с подобным???

(читать всё…)

Мой вопрос о том что где то я читал что Цукерберг как программист, не очень и сейчас программисти превосходят его на несколько шагов .
Суть вопроса в том, что почему он как «не очень программист » миллиардер, а другие программисты работают на зарплатe или у них нет идей xD

(читать всё…)