Учебник по программированию Паскаль (Pascal) "Семакин, Шестаков. Основы программирования. 2001" можно скачать там:
Программу для просмотра DjVu качать отсюда: http://windjview.sourceforge.net/ru/ (бесплатная)

Был скачан pdf с отвратным качеством. За 2 часа скану был придан нормальный вид.



Внимание: глава 4 по C пропущена!
На Андроиде можно тоже читать эту книгу скачть с маркета просмотрщик.

https://ru-delphi.livejournal.com/272383.html

Учебник по программированию Паскаль (Pascal) "Семакин, Шестаков. Основы программирования. 2001" можно скачать там:
Программу для просмотра DjVu качать отсюда: http://windjview.sourceforge.net/ru/ (бесплатная)

Был скачан pdf с отвратным качеством. За 2 часа скану был придан нормальный вид.



Внимание: глава 4 по C пропущена!
На Андроиде можно тоже читать эту книгу скачть с маркета просмотрщик.

https://ru-delphi.livejournal.com/272383.html

Может кому пригодится (искал несколько дней).

Множественная линейная регрессия (Multiple linear regression) используется для аппроксимации массива данных линейной функцией вида f(x)=b[1]*x1+b[2]*x2+b[3]*x3...+b[n]*xn+b[n+1] Т.е. когда мы имеем измерения во время эксперимента и результат эксперимента и хотим построить функцию предсказания. Регрессия часто используется в задачах классификации. В моем случае она используется для построения ансамбля слабых классификаторов из которых потом будет строиться дерево решений.

Библиотека оформлена в виде 1 юнита + dll (x32 и x64). Работает очень шустро - порядка миллиона строк обрабатывает меньше, чем за секунду. Очень проста в использовании, есть пара примеров.

Multiple linear regression 1.02 (for Delphi and FPC Pascal): http://pages.videotron.com/aminer/

На этой же странице можно найти PArchiver, библиотеку сжатия, различные очереди (потоковые), хэш-список, Быстрая параллельная сортировка и вообще всякие плюшки для работы с потоками.

https://ru-delphi.livejournal.com/272053.html

Может кому пригодится (искал несколько дней).

Множественная линейная регрессия (Multiple linear regression) используется для аппроксимации массива данных линейной функцией вида f(x)=b[1]*x1+b[2]*x2+b[3]*x3...+b[n]*xn+b[n+1] Т.е. когда мы имеем измерения во время эксперимента и результат эксперимента и хотим построить функцию предсказания. Регрессия часто используется в задачах классификации. В моем случае она используется для построения ансамбля слабых классификаторов из которых потом будет строиться дерево решений.

Библиотека оформлена в виде 1 юнита + dll (x32 и x64). Работает очень шустро - порядка миллиона строк обрабатывает меньше, чем за секунду. Очень проста в использовании, есть пара примеров.

Multiple linear regression 1.02 (for Delphi and FPC Pascal): http://pages.videotron.com/aminer/

На этой же странице можно найти PArchiver, библиотеку сжатия, различные очереди (потоковые), хэш-список, Быстрая параллельная сортировка и вообще всякие плюшки для работы с потоками.

https://ru-delphi.livejournal.com/272053.html

Может кому пригодится (искал несколько дней).

Множественная линейная регрессия (Multiple linear regression) используется для аппроксимации массива данных линейной функцией вида f(x)=b[1]*x1+b[2]*x2+b[3]*x3...+b[n]*xn+b[n+1] Т.е. когда мы имеем измерения во время эксперимента и результат эксперимента и хотим построить функцию предсказания. Регрессия часто используется в задачах классификации. В моем случае она используется для построения ансамбля слабых классификаторов из которых потом будет строиться дерево решений.

Библиотека оформлена в виде 1 юнита + dll (x32 и x64). Работает очень шустро - порядка миллиона строк обрабатывает меньше, чем за секунду. Очень проста в использовании, есть пара примеров.

Multiple linear regression 1.02 (for Delphi and FPC Pascal): http://pages.videotron.com/aminer/

На этой же странице можно найти PArchiver, библиотеку сжатия, различные очереди (потоковые), хэш-список, Быстрая параллельная сортировка и вообще всякие плюшки для работы с потоками.

https://ru-delphi.livejournal.com/272053.html

Может кому будет интересно: http://delphidabbler.com/

Есть раздел Code Snippets Database. В нем готовые функции разбиты по категориям (Массивы, Дата и время, Кодировки, Работа с файлами, Графика, Интернет, Математика, Регистр, Структуры, Система, Утилиты, Windows). В каждой категории около десятка функций. Я, к примеру, утянул пока вот эти:

function GetTempFolder: string;
// получение временной папки

function GetUserName: string;
function GetComputerName: string;

function DeleteFileWithUndo(const FileName: string): Boolean;
// delete to RecycleBin

function IntToRoman(AValue: Word): string;

function GetAvailablePhysMemory: Int64;

Есть и советы. Например, как поменять фонт для подсказок http://delphidabbler.com/tips/199 тлт "Как определить выключение Windows и помешать этому http://delphidabbler.com/tips/185

Есть раздел с программами. Например программа поиска различий и составления патча http://delphidabbler.com/software/bdiff?mid=2

https://ru-delphi.livejournal.com/271653.html

Может кому будет интересно: http://delphidabbler.com/

Есть раздел Code Snippets Database. В нем готовые функции разбиты по категориям (Массивы, Дата и время, Кодировки, Работа с файлами, Графика, Интернет, Математика, Регистр, Структуры, Система, Утилиты, Windows). В каждой категории около десятка функций. Я, к примеру, утянул пока вот эти:

function GetTempFolder: string;
// получение временной папки

function GetUserName: string;
function GetComputerName: string;

function DeleteFileWithUndo(const FileName: string): Boolean;
// delete to RecycleBin

function IntToRoman(AValue: Word): string;

function GetAvailablePhysMemory: Int64;

Есть и советы. Например, как поменять фонт для подсказок http://delphidabbler.com/tips/199 тлт "Как определить выключение Windows и помешать этому http://delphidabbler.com/tips/185

Есть раздел с программами. Например программа поиска различий и составления патча http://delphidabbler.com/software/bdiff?mid=2

https://ru-delphi.livejournal.com/271653.html

Может кому будет интересно: http://delphidabbler.com/

Есть раздел Code Snippets Database. В нем готовые функции разбиты по категориям (Массивы, Дата и время, Кодировки, Работа с файлами, Графика, Интернет, Математика, Регистр, Структуры, Система, Утилиты, Windows). В каждой категории около десятка функций. Я, к примеру, утянул пока вот эти:

function GetTempFolder: string;
// получение временной папки

function GetUserName: string;
function GetComputerName: string;

function DeleteFileWithUndo(const FileName: string): Boolean;
// delete to RecycleBin

function IntToRoman(AValue: Word): string;

function GetAvailablePhysMemory: Int64;

Есть и советы. Например, как поменять фонт для подсказок http://delphidabbler.com/tips/199 тлт "Как определить выключение Windows и помешать этому http://delphidabbler.com/tips/185

Есть раздел с программами. Например программа поиска различий и составления патча http://delphidabbler.com/software/bdiff?mid=2

https://ru-delphi.livejournal.com/271653.html

Один из самых известных ИБ-специалистов в мире Михал Залевски (Michal Zalewski) в течение 30 минут обнаружил 22 ошибки в популярной встраиваемой системе управления базами данных SQLite. Стоит отметить, что архитектура SQLite считается относительно простой и при этом достаточно безопасной.
Исправления были включены в версию SQLite 3.8.9. Залевски рекомендует обновить все версии системы.


Иногда SQLite применяется в качестве механизма обработки запросов в Web. Например, некоторые браузеры используют механизм WebDB / WebSQL, в данном случае любая уязвимость в анализаторе SQLite может позволить злоумышленникам совершить кибератаку на всю систему.

Залевски решил использовать свою технологию поиска ошибок afl-fuzz (American Fuzzy Lop) для тестирования SQLite. В случае с разными SQL-системами подобные технологии приходится настраивать под грамматику конкретной системы, однако ИБ-эксперту потребовалось 5 минут для автоматического извлечения и сортировки ключевых слов из документации SQLite. Следующим шагом стал запуск теста: create table t1(one smallint); insert into t1 values(1); select * from t1.

Залевски взял большой набор вручную написанных тестов SQLite, отсортировал их по файлам, 550 штук по 220 байт, и снова запустил программу. Данная конфигурация позволила обнаружить различные виды ошибок: неинициализированные указатели, разыменование нулевого указателя и пр.
В общей сложности поиск 22 ошибок занял у эксперта полчаса. Исправления были включены в версию SQLite 3.8.9. Залевски рекомендует обновить все версии системы.

Источник

https://ru-delphi.livejournal.com/271517.html

Один из самых известных ИБ-специалистов в мире Михал Залевски (Michal Zalewski) в течение 30 минут обнаружил 22 ошибки в популярной встраиваемой системе управления базами данных SQLite. Стоит отметить, что архитектура SQLite считается относительно простой и при этом достаточно безопасной.
Исправления были включены в версию SQLite 3.8.9. Залевски рекомендует обновить все версии системы.


Иногда SQLite применяется в качестве механизма обработки запросов в Web. Например, некоторые браузеры используют механизм WebDB / WebSQL, в данном случае любая уязвимость в анализаторе SQLite может позволить злоумышленникам совершить кибератаку на всю систему.

Залевски решил использовать свою технологию поиска ошибок afl-fuzz (American Fuzzy Lop) для тестирования SQLite. В случае с разными SQL-системами подобные технологии приходится настраивать под грамматику конкретной системы, однако ИБ-эксперту потребовалось 5 минут для автоматического извлечения и сортировки ключевых слов из документации SQLite. Следующим шагом стал запуск теста: create table t1(one smallint); insert into t1 values(1); select * from t1.

Залевски взял большой набор вручную написанных тестов SQLite, отсортировал их по файлам, 550 штук по 220 байт, и снова запустил программу. Данная конфигурация позволила обнаружить различные виды ошибок: неинициализированные указатели, разыменование нулевого указателя и пр.
В общей сложности поиск 22 ошибок занял у эксперта полчаса. Исправления были включены в версию SQLite 3.8.9. Залевски рекомендует обновить все версии системы.

Источник

https://ru-delphi.livejournal.com/271517.html

Лет n-дцать назад компьютеры пищали только встроенным динамиком. Этот динамик и сейчас есть. Только добраться до него трудно. Но возможность попищать есть и теперь.
Причем ключевые строки довольно простые:

  ioDLLInstance := LoadLibrary('inpoutx64.dll');

  if ioDLLInstance >= 32 then { if <=32 - error ! }
  begin
    @InputPort := GetProcAddress(ioDLLInstance, 'Inp32');
    @OutputPort := GetProcAddress(ioDLLInstance, 'Out32');
  end

Сначала нужно сказать, что доступ до динамика идет через порты. Что бы добраться до портов нам нужно инсталлировать InpOut32 ( В папке Drivers\Win32\находим файл InstallDriver.exe и запускаем его от имени администратора). Программа импортирует две функции (реально их чуть больше): 'Inp32' и 'Out32'. Для x64 используется inpoutx64.dll, для 32-битных систем inpout32.dll . Работает как на Win XP, так и на Win 7 x64.

А теперь сама функция писка:

procedure Beep(const Tone, Time: Integer);
var
  v, div1: Integer;
begin
  div1 := 1193180 div Tone;

  OutputPort($43, 182);

  OutputPort($42, div1 and $FF);
  OutputPort($42, (div1 shr 8) and $FF);

  v := InputPort($61);
  OutputPort($61, v or $03);

  Sleep(Time);

  v := InputPort($61);
  OutputPort($61, v and $FC);
end;

По адресу https://dl.dropboxusercontent.com/u/60542510/PcBeep.7z можно скачать рабочий пример и исходные коды. Хотелось бы увидеть (например) реализацию скайп-звонка через pc beeper (кто-то в интернете такое уже делал).

PS. не забудьте установить драйвера.

https://ru-delphi.livejournal.com/271118.html

Лет n-дцать назад компьютеры пищали только встроенным динамиком. Этот динамик и сейчас есть. Только добраться до него трудно. Но возможность попищать есть и теперь.
Причем ключевые строки довольно простые:

  ioDLLInstance := LoadLibrary('inpoutx64.dll');

  if ioDLLInstance >= 32 then { if <=32 - error ! }
  begin
    @InputPort := GetProcAddress(ioDLLInstance, 'Inp32');
    @OutputPort := GetProcAddress(ioDLLInstance, 'Out32');
  end

Сначала нужно сказать, что доступ до динамика идет через порты. Что бы добраться до портов нам нужно инсталлировать InpOut32 ( В папке Drivers\Win32\находим файл InstallDriver.exe и запускаем его от имени администратора). Программа импортирует две функции (реально их чуть больше): 'Inp32' и 'Out32'. Для x64 используется inpoutx64.dll, для 32-битных систем inpout32.dll . Работает как на Win XP, так и на Win 7 x64.

А теперь сама функция писка:

procedure Beep(const Tone, Time: Integer);
var
  v, div1: Integer;
begin
  div1 := 1193180 div Tone;

  OutputPort($43, 182);

  OutputPort($42, div1 and $FF);
  OutputPort($42, (div1 shr 8) and $FF);

  v := InputPort($61);
  OutputPort($61, v or $03);

  Sleep(Time);

  v := InputPort($61);
  OutputPort($61, v and $FC);
end;

По адресу https://dl.dropboxusercontent.com/u/60542510/PcBeep.7z можно скачать рабочий пример и исходные коды. Хотелось бы увидеть (например) реализацию скайп-звонка через pc beeper (кто-то в интернете такое уже делал).

PS. не забудьте установить драйвера.

https://ru-delphi.livejournal.com/271118.html

Лет n-дцать назад компьютеры пищали только встроенным динамиком. Этот динамик и сейчас есть. Только добраться до него трудно. Но возможность попищать есть и теперь.
Причем ключевые строки довольно простые:

  ioDLLInstance := LoadLibrary('inpoutx64.dll');

  if ioDLLInstance >= 32 then { if <=32 - error ! }
  begin
    @InputPort := GetProcAddress(ioDLLInstance, 'Inp32');
    @OutputPort := GetProcAddress(ioDLLInstance, 'Out32');
  end

Сначала нужно сказать, что доступ до динамика идет через порты. Что бы добраться до портов нам нужно инсталлировать InpOut32 ( В папке Drivers\Win32\находим файл InstallDriver.exe и запускаем его от имени администратора). Программа импортирует две функции (реально их чуть больше): 'Inp32' и 'Out32'. Для x64 используется inpoutx64.dll, для 32-битных систем inpout32.dll . Работает как на Win XP, так и на Win 7 x64.

А теперь сама функция писка:

procedure Beep(const Tone, Time: Integer);
var
  v, div1: Integer;
begin
  div1 := 1193180 div Tone;

  OutputPort($43, 182);

  OutputPort($42, div1 and $FF);
  OutputPort($42, (div1 shr 8) and $FF);

  v := InputPort($61);
  OutputPort($61, v or $03);

  Sleep(Time);

  v := InputPort($61);
  OutputPort($61, v and $FC);
end;

По адресу https://dl.dropboxusercontent.com/u/60542510/PcBeep.7z можно скачать рабочий пример и исходные коды. Хотелось бы увидеть (например) реализацию скайп-звонка через pc beeper (кто-то в интернете такое уже делал).

PS. не забудьте установить драйвера.

https://ru-delphi.livejournal.com/271118.html