Программируем вместе сознание и алгоритмы.

Система OpenGL взгляд на 3D графику...

2014-05-27T17:54:00.000+04:00

Система OpenGL взгляд на 3D графику...

Итак все начинается с того что мы хотим чего то нарисовать или отобразить на экране, может это игра, или график функции а может это полноценный 3д редактор или какая то отдельная его часть нуу полет фантазий понятен ;)

С чего начать и куда копать? Помимо того что необходимо изучить новую не известную вам графическую систему, так еще требуется желательно большой опыт в программировании, вспомнить или хорошо знать школьную геометрию и немного математики не помешает.

Думаю для начала стоит написать тестовый инструмент, наглядный инструмент который поможет быстрее понять графику изнутри:

Будем писать на C# MS VS 2012 но можно и на С++ позднее опишу тонкости кстати использовать буду библиотеку Tao framework 2.2 можно использовать и Glut, FreeGlut,ClanLib и много чего еще другого, но пока что нужно ознакомится с основами.

Мы должны понять что такое проекция, как рисовать графические примитивы, как устроена координатная система, как перемещать фигуры, вращать но попробую по порядку.

Рисовать мы будем в декартовой системе координат и тут самое интересное что оси х, у, z могут быть направлены как угодно и куда угодно все это мы задаем сами или используем установки по умолчанию. Ось Z не будем использовать это как позже выясним будет глубина или как говорят художники перспектива.

Что такое проекция?

Посмотрим на рисунки их бывает две (ну есть еще третья изометрическая но не будем трогать ее) прямоугольная и пирамидальная

пирамидальная проекция

и прямоугольная

Между ближней плоскостью и дальней мы как раз и рисуем нашу графическую сцену если слишком близко к ближней плоскости выведем к примеру куб то часть куба будет урезана - отсечена аналогично и с дальней границей, куда важней не промахнутся при "рисовании" 3д фигур т.к мы можем выйти из проекции и никогда не увидим на экране наш результат, так что с этим осторожнее ;)

Свойства данных проекций как и + и - можно лишь увидеть на практике изменяя параметры и видя как они влияют на отображение сцены.

Пока что перейдем к С++ я использовал MS VS 2010 но вообще конечно не критично использовать какой либо язык, критично будет когда нужно выпустить конечный продукт и там будут конкретные требования и условия которые ваш выбранный язык может не обеспечить так что выбирать вам. И последнее использовал на данном примере я GLUT

Вот главная функция :

int main ( int argc, char** argv)
{
glutInit(&argc, argv);
glutInitDisplayMode(GLUT_DOUBLE|GLUT_RGB|GLUT_DEPTH|GLUT_RGBA);
glutTimerFunc(500,glutTimer,1); - фу-ия таймера
glutInitWindowSize( w, h ); - инициализируем окно с размерами w,h
glutInitWindowPosition(50,50); - позиция окна на экране
glutCreateWindow("OpenGL 3D System"); - само окно и заголовок к нему
InitGL(); - здесь задаем некоторые надстройки
glutDisplayFunc(Draw); - указуем что фу-ия Draw будет рисовать
glutSpecialFunc(getkeys_down); - обработка клавиатуры
glutReshapeFunc(reshape); - изменение размеров окна и соответственно проекции
glutMouseFunc(mouseFunc); обрабатываем мышь
glutPassiveMotionFunc(moveMouse);
glutMainLoop(); глобальное зацикливание

return 0;
}

Создаете консольное приложение и прописуем данный код

void Draw()
{
glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
очищаем экран - сцену рассмотрим в теме буферов

glLoadIdentity();
сброс матрицы это будем разбирать в теме матриц

glBegin(GL_LINE_STRIP); рисуем связанные линии - 2д оси графика

glColor3f( 0.0, 1.0, 0.0 ); цвет в формате float чисел
glVertex3f(0.9f, -0.9f, -0.9f); задаем вершины прямых тот же формат

glColor3f( 1.0, 0.0, 0.0 );
glVertex3f( -0.9f, -0.9f, -0.9f);

glVertex3f( -0.9f, 0.9f, -0.9f);

glEnd(); заканчиваем рисовать
glFlush(); не замедлительно нарисовать

glutSwapBuffers(); переключаем буферы для отображения нарисованного на экране

}

void reshape (int w, int h)

{
если случайно размеры окна станут 0 то сделаем их по 100
if ( w == 0 && h == 0) { w = 100; h = 100; }
if ( w == 0 || h == 0 ) { w = 100; h = 100; }

glMatrixMode(GL_PROJECTION); режим матрицы проекций
glLoadIdentity(); матрицу проекций в 0 иначе будет каша на экране
матрицы имеют свойство накапливать результат

glViewport(0,0,GLsizei(w),GLsizei(h)); размер окна где будем рисовать
glMatrixMode(GL_MODELVIEW); а здесь матрица отображения фигур
glLoadIdentity();

}

создаем заголовки функций не возвращающих результата - void прописанных в main смотрим заголовки gl.h glut.h

void getkeys_down()
void glutTimer()
смотрим входящие аргументы там же

Не забываем подключать либы *.lib и заголовки *.h
я делаю это так

#pragma comment(lib,"glut32.lib")

Что бы уменьшить время копания что и где не работает из-за чего и почему попробуем идти путем наименьшего сопротивления:

для этого изменим цвет фона экрана если это произойдет то система OpenGL GLUT инициализирована правильно и будем рисовать если нет то будем копать почему не работает

glClearColor( 0, 0, 0.0, 0.0 );формат rgbA А это альфа канал как в фотошопе ))) прозрачность короче говоря пока что лучше не изменять а ставить 0.

Еще чуть-чуть отвлечемся и посмотрим как мы можем задавать в каком формате цвет и вершины

glColor3i -число обозначает количество компонент цвета а буква после числа формат здесь int
т.е как обычно glColor3i(123,34,12);

glColorvi(@clr); укажем массив цвета

Остальное открываем заголовки и смотрим все описанные фу-ии.
Если цвет экрана изменился то отлично начинаем рисовать,
самый простой способ через

glBegin(
GL_POINT - рисуем точки
а так изменим размер точки glPointSize(10) );
GL_LINE - естественно линии
GL_POLYGON - многоугольники

glEnd();

проще показать рисунок чем описывать

Позже продолжим изучать и рисовать и понимать все моменты графики...

Чуть не забыл )))
по умолчанию у нас вот такие координаты

и в InitGL задаем проекцию

void InitGL()
{
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
gluPerspective(45.0f,(GLfloat)w/(GLfloat)h, 0.1 ,15000.0);
glViewport(0,0,w,h);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();

}

и последнее w and h это у нас размеры окна
int w = 800;
int h = 600;

Переходим на C++, C#

2014-05-27T15:41:00.000+04:00

Переходим на C++, C#

Попробую написать заметки о переходе с делфи на MS VS C++, C# это было связано с 3D графикой на платформе OpenGL под паскаль существует конечно много всего но это много переделанно и требуется много изворотов, вместо этого можно перейти на стандарт в графике, игростроении на C++ а сейчас уже Си шарп.

Я попробую описать систему OpenGL как я ее увидел, что в ней меня удивило, что понравилось, свое мировозрение на данную графическую систему, конечно все началось с желания написать небольшую игрушку а закончилось ( ну надеюсь еще не закончилось ))) геометрией, математикой и прочими смежными задачами без которых дальнейшее продвижение практически не возможно.

Поиск самого себя или запутался в себе

2013-02-10T17:25:00.000+04:00

Поиск самого себя или запутался в себе...

Хочу предложить выводы по этому поводу как многие заблуждаются, если они думают иначе то это их путь развития ни кого не хочу осуждать.

В чем заключаются заблуждения?

Проведя более недели в поисках ответов различными методиками, эксперементируя над собой прикасаясь к психологии и к обществу делаю вывод над извечным вопросом который многие себе задают "Для чего я живу, Кто я есть? Как мне найти самого себя? Что делать и куда двигаться? "

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

Туман который застилает нам глаза дабы оттолкнуть нас от истинной причины которая конечно же прячется внутри нас. В качестве этого тумана выступает государство вот оно такое и такое то и из-за него все проблемы, или вот моя подруга или жена такая ... и такая то что проблема вот в ней а не во мне ну и многие другие не буду их озвучивать.

Что это за причина? Конечна у каждого она своя так сказать индивидуальна по другому и не может быть. Эта причина защищает нашу психику от изменений ( ведь все мы любим стабильность и не любим что-то менять) это и хорошо и плохо. Эта причина закрывает другую более мощную или более высокую проблему личностного характера,своего Я и т.п. Если это мешает можно попробывать разобраться и если это возможно то удалить, конечно без адской работы здесь не обойтись здесь не будет магических заклинаний после прочтения которых мы искореним нашу проблему нет конечно, нужно что-то изменять в себе что бы что то получить.

Насчет заблуждений или тупиков или безвыходных положений назовите как нравится.

Если вы находитесь в таком состоянии то нужен лист бумаги, клочек газеты, блокнот, компьютерный редактор вообщем любая вещь в которой можно сделать записи.

Это трудная вещь но если другого выхода нет то попробуйте этот, не получится значит нет, а если получится? Нужно задавать себе вопросы и пытаться на них отвечать честно и добросовестно, перед этим вероятно нужно очистить разум от мыслей, сделать физические упражнения (буквально нужно измотать себя физиологически) короче говоря отключить разум и не вести внутренний диалог, как это сделать это отдельная тема, самое "простое" это смотреть на один предмет стараясь ни о чем не думать, можно попробывать считать от 100 до 1 или от 1000 кому сколько надо времени )))

Нужно расслабится как физически так и умственно. После этого велика вероятность положительного исхода нашего теста. Задаем себе вопрос в чем моя проблема? что я хочу добиться в моем случае излагаете вашу ситуацию, для чего это я делаю.

И тут мы приходим к одной очень важной вещи это чужие цели,намерения,стремления,желания и свои собственные. Свои собственные можно отличить если думая о них мы испытываем что-то положительное в душе, в теле иначе это не наше, а если не наше зачем это нам? Это внушение друзей,окружения,соседей, рекламы,общества и т.д Это они потребители, а вы действуете для их них целей. Для чего это вам?

Итак забрели мы глубоко будем выбираться. Все безвыходные ситуации заключены в ПРОТИВОРЕЧИИ и в не видении выхода. Как разрешить противоречия? Здесь просто необходимо отделить свои цели от чужих и установить приоритеты важности. Это действительно важно вам? и с привязкой ко времени тот же вопрос Это нужно мне будет завтра? и для чего и т.д

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

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

Приведу пример приходит мой друг и начинает фактически жаловаться на своего начальника что вот он сегодня злой какой то, ну как собака кидается на всех включая и его, и перечисляет,перечисляет и не может понять что там такое случилось с начальником (ну это еще хорошо) в более тяжелых случаях скажем мой друг принимает нападки начальника на себя всерьез ну мол вот он объявил меня неспособным, не умелым ,ленивым и т.д список продолжается.

Мораль такова начальник получил неудовлетворение своих желаний или ему передали подобное как он передает сотрудникам, вариантов может быть много но суть в одном человек чего то не получил (внимание от своей жены или любви как физической так и душевной) и вот он испускает пар. Если ему это дать или дать что-то похожее то он конечно начнет успокаиваться постепенно,но это мы уже зашли не в ту степь не будем решать проблему оставим это в стороне.

Вот она и модель другого виденья проблемы, можно часами искать почему он придирается, почему он такой злой, почему не справедливый и т.д и т.п

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

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

Как выучить английский

2013-02-02T01:15:00.000+04:00

Совсем недавно узнал как быстро выучить английский язык есть такая методика как метод Ильи Франка вот пару сайтов которые я посетил Книги и Метод. Данная технология очень проста и следовательно очень эффективна! вы скачиваете любую интересную вам книгу специально обработанную в которой после каждого предложения имеется перевод не только самого предложения но и значения конкретных слов в контексте данного предложения далее идет оригинальный текст на английском дабы потренироваться. Посмотрите эту эффективную методику.

Также посоветую посмотреть курс "Полиглот изучаем английский за 16 уроков" данный курс проходил по тв каналу культура в данный момент идет такой же курс но только французского можно посмотреть на ютубе вот ссылочка Английский за 16 уроков либо можете сами найти по названию курса.

Тип личности

2013-02-02T00:53:00.001+04:00

Если вы еще не опредились кто вы по характеру то вот вам стоящая книга Основные типы личности.

Психологические лекции

2013-02-02T00:50:00.001+04:00

Натолкнулся недавно на одного очень интересного человека вот его видео Интересные видео.

Посмотрите стоящие просмотра так сказать мини лекции и заставляют о многом задуматься.

Стихи-проза :)

2013-01-07T00:55:00.003+04:00

++++

Я знаю... жизнь описую годами
В стремлениях к свободе... и любви
Мы обретаем и теряем сами
Не успевая получать... что ждем внутри
Но посуди... ведь мы изгнанники, своего же рая
О чем желеем? И о чем грустим?
Быстрей хотим, а время не охотно отдавая
Скорбим о том чего не получая
А суть ведь в том, что нужно жить играя
Не в просьбах и молитвах увядаяя
А просто брать, взамен надежд
Мечты увянут и надежды сгинут
А тело превратится в прах
Мы страстно, все годы желаем
В фантазиях долго блуждаем
Реальность сменив, на сказочный сон
А утро опять же встречаем
В разбитых надеждах
В осколках от сна
Мы вновь пелену на себя одеваем
И тяжко шагаем на встречу судьбе
Очнись от фантазий
Уйди от внушений
Годами накопленных
Тяжких цепей
Взгляни по другому
На жалости дней
Уйди от сплетений
Моралей и страхов
Ты очень силен
И свобода в тебе
Проблема в внушеньях мира сего
Не поддавайся системе кнутов
Не стоит бежать за стадом быков

***
Ты говоришь себе
Что одинок?
Но что ты знаешь
Приводя свой довод?
Мне говорят что одинок
В душе ты сам
Когда не в силах
Обуздать все чувства
Всему виной эмоции и чувства
Куда без них ответит мне глупец
Нет я не стал с годами всех мудрей
Я просто отыскал одну лишь мудрость
Шагай вперед и думай о своем
Когда терпение превысит чащу грусти
Ты не сомненно обретешь
То что, так сильно, в этой жизни ждешь

Потоки и вирусы

2013-01-05T20:57:00.001+04:00

Выявление вирусов через потоки

Итак приступим к действиям выявления вредоносных "программ" с основных понятий без которых ну ни как не обойтись.

Мы должны четко и ясно разделять две вещи:

1. процессы они же программы могут работать на низком привелигированном уровне ( User mode - 3 ring - пользовательский режим - 3 кольцо процессора )
2. процессы работающие на высоком уровне доступа к ОСи (Kernel mode - 0 ring - ядерный режим нулевое кольцо процессора) ядерный в смысле ядро ОСи

Для простоты будем рассматривать ядерные процессы или структуры если не указаны они значит мы обсуждаем пользовательский режим.

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

Можно даже смело сказать что серьезные вирусные вещи забыли что такое файл и процесс. Почему это так я объсню.

С далеких времен пошло что внедрятся в чужой процесс вирусам намного легче и менее заметно чем устаревшие технологии заражения файлов или что еще хуже создавать свой файл как бы он не назывался не суть важно. Заражение чужих процессов такое как внедрение библиотеки *.dll или внедрение вирусного потока threads в потоки законной программы это сегоднящний уровень развития малвари ( малварь будет короче и звучнее вирусов )

Итак что мы имеем? Имеется программа к примеру винамп лежит себе спокойно на любом известном нам носителе и никого не трогает. Все изменяется при запуске винампа
а что происходит при запуске винампа? да то что и при запуске любой программы - происходит проэцирование файла программы в оперативку ОСи фактически можно сказать что ОСь копирует файл с диска в память это будет конечно не правильно с точки зрения программиста, ну да мы сейчас не об этом ведем речь.

Проэцируясь в память программа переходит на новый этап создавая процесс в системе. Процесс имеет код, ресурсы, потоки и многое другое. Код это конечно сам алгоритм программы выраженный в машинных кодах ресурсы это данные над которыми работает программа включая различные необходимые вещи как иконки курсоры картинки строки и пр.

Все это понятно, но что такое поток? Многие из нас слышали про многопоточные программы к примеру брутофорсеры. Понятие потока заводит нас в тему однозадачных и многозадачных ОСей в первом случае это ms dos во втором win98 и все остальные. В однозадачных системах в любой момент времени выполнялась всего лишь одна задача и не более, если нужно было к примеру подсчитать что нибудь математическое то требовалось закрыть текстовый редактор а потом открыть калькулятор, выполнив вычисления закрыть программу и открыть снова редактор дабы продолжить записывать то с чем мы работали.

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

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

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

В таком случае приходят к многопоточности которую нужно реализовать в программе. Не вдаваясь в технические подробности как писать потоки и как их реализовать в своем софте можно смело сказать что поток это подпрограмма и не более того. В таком случае выходит что система мало того что переключает процессы и каждому выделяет квант времени да к тому же еще переключает и потоки процесса. Ну да мы слегка отвлеклись вернемся к тому как же выявить чужеродный поток в законном процессе.

Открыв карту памяти любого процесса ( к примеру это можно сделать в любом вам известном отладчике, а тем кому это не известно используем отладчик OllyDbg) в ольке ))) OllyDebuger хорошо сейчас опишу по проше.

Открываем отладчик шагаем в file -> attache запускаем блокнот notepad.exe или что вам хочется эт по вкусу и выбираем блокнот в списке процессов нажав атач.
Дальше не обращая внимание на все окна в программе смело шагаем в меню view->Memory и вот перед нами открывает карта процесса блокнота.

Не спешите разбиратся что здесь к чему это отдельная тема нам нужна всего лишь одна колонка Type т.е тип памяти. Каждая область памяти имеет атрубуты :

только для чтения, выполнение и другие это похоже на файловые атрибуты. Важно понять что атрибуты эти указывают права для данного участка памяти т.е либо на страницу памяти стоит запрет на запись и тогда при попытке записать что-то либо произойдет исключение аля критическая ошибка.

Так вот код программы должен находится в секции памяти с типом Image ( Imag 0100 лично у меня так отображает отладчик ) если он код программы находится в приватном типе Priv то это очень подозрительно и так не должно быть. Есть еше один тип Map это мэппирование файлов ( читай проэцирование больших объемных файлов в память ) по этому поводу листай темы по функциям CreateFileMapping(); Mapviewoffile(); конечно же это не принципиально важно в делфи в си или си++ вы будете писать, структуры и апи одни и теже разница только в оформлении и синтаксисе вашего языка программирования.

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

Вы спросите меня причем здесь внедренный код в память процесса ? когда я собирался говорить о потоках.
Да здесь я немножко виноват забыв описать одну технологию внедрения кода малвари во все процессы к примеру проэцирование кода малварной библиотечки.

Имеется такая функция VirtualAlloc(Ex) которая может выделить из кучи памяти необходимый вам буфер нужного вам размера потом с помощью WriteProcessMemory мы внедряем вирусный код. Вот для этого я и описывал эту технологию.

А теперь шагаем дальше и посмотрим потоки блокнота view->Threads не знаю как у вас у меня их обнаружилось всего лишь два ну да ничего это не страшно два или десять )))

Что бы понять что поток наш а не внедренный вирусом необходимо все таки поднатаскатся опыта либо взламывания программ ( www.exelab.ru вам в помощь ) либо практика программирования системы плюс ко всему необходимо хотя бы минимальное знание ассемблера - машинного кода который отображает нам отладчик только тогда будет понятно что делает код потока или процесса.

Диспетчер задач Марка Руссиновича показывает довольно подробные сведенья о потоках можно по надеятся на аномальные показатели в количестве потоков в процессе или очень большое время процессор выделяет какому либо процессу ну и как следствие потоку или потокам но это как говорится как повезет 50 на 50 по крайней мере знать об этом полезно, но в большинстве случаев необходимо разбиратся с кодом и смотреть что он делает и что может сделать.

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

Еще стоит нам рассмотреть такую тему как чем же отличается получение списка процессов в 3м кольце со списком процессов в нулевом кольце?

В нулевом кольце аля ядре системы имеется двусвязный список - замкнутый кольцевой список в этом списке и имеются все процессы ОСи.
Стоит сравнить результаты получения списка процессов в пользовательском режиме и в ядерном и будет сразу видно скрытые процессы - руткиты или поточнее скрытый процесс малвари использующей руткитные технологии. С уровня пользователя мы не сможем увидеть все скрытые процессы ( если конечно малварь закрепилась в ядре ОС) только нырнув глубже ближе к ядру ОС теплее )))

И в ядре малварь может себя скрыть, но там это будет легко узнать,а вот с высоты пользовательского режима это сделать не возможно.
Доступ к ядру имеют драйверы поэтому диспетчер задач если будете писать его должен использовать драйвер для перехода в режим ядра либо в другой какой нибудь антивирусной утилитке. Ну про это как нибудь напишу в другой раз.

Ну и для закрепления всей описанной мной теории стоит попрактиковатся и посмотреть кто есть кто
советую почитать книгу по руткитам вирусам Олега Зайцева автора антивируса AVZ

вот пример который взят из его книги это по поводу внедрения дллки в процесс.

1.Собираем библиотечку test_td в делфи
2.собираем программу код ее ниже и запускаем ее смотрим как происходит это на практике

Если не знаете как это делать то значит пока еще рано к этому переходить начните с азов, а для тех кто в силах провести испытание
сразу предупреждаю что код я не тестировал просто валялся в далеком уголке винта и я решил добавить его сюда, если есть страх "заражения" то лучше
не пробуйте это на практике. Сама суть этой же практике довольно подробно описана у Зайцева читайте.

И еще изучайте ассемблер,программируйте побольше и конечно же приобретите навыки крякера будет полезно в любом случае. Удачи вам в борьбе добра со злом :)

=============================== Код самой дллки ================================

library test_td;

uses
wintypes,
winprocs,
messages;

var HookHandle :hHook;

function HookProc(ncode:integer;wparam:word; lparam:longint):longint;stdcall

begin
result:=callnexthookex(hookhandle,ncode,wparam,lparam);
end;

function sethook(hookhandle:hhook):hhook;stdcall;
begin
if hookhandle=0 then
result:=setwindowshookex(wh_getmessage,@hookproc,hinstance,0);
end;

procedure DelHook;stdcall;
begin
if HookHandle<>0 then begin
UnHookWindowsHookEx(HookHandle);
HookHandle:=0;
end;
end;

exports SetHook,DelHook;

begin
HookHandle:=0;
end.

================================= конец дллки =============================

================================= код программы инжектора =================
unit Loader_Injecter;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
SetHook1: TMenuItem;
DelHook1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure SetHook1Click(Sender: TObject);
procedure DelHook1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const
MyHookDllName='test_td.dll';
function SetHook:LongInt;stdcall;external MyHookDllName;
function DelHook:LongInt;stdcall;external MyHookDllName;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
popupmenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);

end;

procedure TForm1.SetHook1Click(Sender: TObject);
var recipients:dword;
begin

sethook;

recipients:=bsm_allcomponents;
BroadCastSystemMessage(bsf_forceifhung or bsf_ignorecurrenttask,@recipients,wm_null,0,0);

end;

procedure TForm1.DelHook1Click(Sender: TObject);
begin

delhook;
end;

procedure TForm1.FormCreate(Sender: TObject);
var hlib:cardinal;
begin
hLib:=loadlibrary(pchar('test_td.dll'));
if hLib=0 then begin showmessage('Library is not found');exit;end;
end;

end.

================================ Конец инжектора ))) ==============================

Диспетчер задач руткиты,вирусы и многое другое

2013-01-05T13:32:00.001+04:00

Диспетчер задач руткиты,вирусы и многое другое

Я покажу как написать на паскале аля делфи диспетчер задач как с помощью него искать руткиты (скрытые вредоносные процессы) используя проверку процессов в ядре ОСи и как на основе статистики о потоках процессов можно выявить внедренный "вирусный" код инжектированный поток adware,spyware etc конечно одним диспетчером задач мы не обойдемся и прийдется использовать отладчик фактически любой как вариант OllyDbg

Напишем банальный калькулятор

2013-01-05T13:24:00.000+04:00

Обычный калькулятор на Паскале.

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

Для начинающих думаю сгодится хотя бы даже как пример как не стоит писать калькулятор.
Код ниже а не понятные места возможно я разберу в следующей статье

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls,Math, Menus;

type
TForm1 = class(TForm)
Edit1: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
plus,minus,del,umnoj:boolean;
a,b:real;
st:string;
r:real; //result operation
kn:tspeedbutton;
memory:string;//закинем в память

Procedure GetOp;
var str:string;
i:integer;
pos_op:integer;
a_,b_:string;
begin
With Form1 do
begin
str:=edit1.Text;
For i:=0 to Length(str) do
begin
if str[i]='+' then
plus:=true;
if str[i]='-' then
minus:=true;
if str[i]='*' then
umnoj:=true;
if str[i]='/' then
del:=true;
end;

if plus then
pos_op:=pos('+',str);
if minus then
pos_op:=pos('-',str);
if del then
pos_op:=pos('/',str);
if umnoj then
pos_op:=pos('*',str);

a_:=copy(str,1,pos_op-1);
b_:=copy(str,pos_op+1,length(str));

a:=strtofloat(a_);
b:=strtofloat(b_);

end;
end;

Procedure Calc;
begin

if plus then
r:=a+b;
if minus then
r:=a-b;
if del then
begin
if b=0 then
form1.Edit1.Text:='del na zero!'
else
r:=a / b;
end;
if umnoj then
r:=a * b;

end;

Procedure FormatEnter;
var buffer,buffer2:string;
i:integer;
d:string;
begin
d:=form1.Edit1.Text;
if length(d)=3 then
buffer:=d;
if length(d)=6 then
buffer2:=d;
if buffer2='' then
r:=strtofloat(buffer)
else r:=strtofloat(buffer+''+buffer2);

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
close;
end;

procedure TForm1.SpeedButton16Click(Sender: TObject);
var c:integer;
buffer,buffer2 :string;
i,j:integer;
dec:array of real;
res,s:string;
begin
getop;
calc;
edit1.Clear;
setlength(dec,20);
s:=floattostr(r);

//res:=(buffer+''+buffer2);
edit1.Text:=buffer+''+buffer2;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'+';

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'-';
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'*';
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'/';
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'0';
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'1';

end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'2';
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'3';
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'4';
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'5';
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'6';
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'7';
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'8';
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
if edit1.Text <> '' then
st:=edit1.Text;
edit1.Text:=st+'9';
end;

procedure TForm1.SpeedButton17Click(Sender: TObject);
begin
edit1.Clear;
st:='';
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
var q:real;
begin
q:=strtofloat(edit1.Text);
if q=0 then exit
else
q:= sqr(q);
edit1.Clear;
edit1.Text:=floattostr(q);
end;

procedure TForm1.SpeedButton19Click(Sender: TObject);
var q:real;
begin
q:=strtofloat(edit1.Text);
if q=0 then exit
else
q:= sqrt(q);
edit1.Clear;
edit1.Text:=floattostr(q);
end;

procedure TForm1.SpeedButton20Click(Sender: TObject);
begin
memory:=edit1.text;
speedbutton20.Flat:=false;
end;

procedure TForm1.SpeedButton21Click(Sender: TObject);
begin
edit1.Text:=memory;
speedbutton20.Flat:=true;
end;

procedure TForm1.SpeedButton22Click(Sender: TObject);
begin
memory:='';
speedbutton20.Flat:=false;
end;

procedure TForm1.SpeedButton23Click(Sender: TObject);
begin
edit1.Text:='3,1415926535897932384626433832795';
end;

procedure TForm1.N1Click(Sender: TObject);
begin
edit1.SelectAll;
edit1.CopyToClipboard;

end;

end.

2012-10-10T00:24:00.003+04:00

Взлом шифра Цезаря часть 2.
Итак приступим компилируем наш "кодировщик" Crypt запускаем и вводим любой текст для шифрования,я взял к примеру фразу "Our world is abstraction" и ключ key=26 вот что у нас выходит:

}C@ EY@ZV [E WPEFDSUF_]X

Откроем файл result.txt где сохранили шифротекст и будем думать как его взломать,а долго не будем думать а лучше прочитаем

"Прикладную криптографию" Брюса Шнайера.

Не буду выдумывать и перефразировывать Брюса Шнайера а просто его процитирую:

"Предположим,что открытый текст использует английский язык.Более того,пусть длина ключа любое небольшое число байт.Ниже описано,как взломать этот шифр:

1.Определим длину ключа с помощью процедуры,известной как ПОДСЧЕТ СОВПАДЕНИЙ.
Применим операцию XOR к шифротексту,используя в качестве ключа сам шифротекст с различными смещениями,и подсчитаем совпадающие байты. Если величина смещения кратна длине ключа,то совпадет свыше 6 процентов байтов. Если нет,то будут совпадать меньше чем 0.4 процента( считая,что обычный ASCII текст кодируется случайным ключом,для других типов открытых текстов числа будут другими). Это называется показателем совпадений. Минимальное смещение от одного значения,кратного длине ключа,к другому и есть длина ключа.

2. Сместим шифротекст на эту длину и проведем операцию XOR для смещенного и оригинального шифротекстов.Результатом операции будет удаление ключа и получение открытого текста,подвергнутого операции XOR с самим собой,смещенным на длину ключа. Так как в английском языке на один байт приходится 1.3 бита действительной информации,существующая значительная избыточность позволяет определить способ шифрования."

После многочисленных экспериментов я обнаружил одну маааленькую "неточность" которая делала эксперименты не совсем объективными.
Дело в том что просматривая различные проекты различных авторов находим все возможные модификации шифра цезаря,которые как можно понять
ограничиваются только фантазией и задумкой автора. Возможно я и ошибаюсь но мне кажется что в древней системе шифрования врят ли было допустимо использование
спецвимволов ]{_ + псевдографические символы эпохи ms-dos как в этом шифротексте }C@ EY@ZV [E WPEFDSUF_]X .
Проще говоря захотелось мне использовать только буквы алфавита и ничего более.

Вот к примеру посмотрим на не точность (которая вкралась в программу Crypt) которая искажает стандартный
шифр Цезаря вместо ключа key=3 ключ получается равным 3333333... исправим эту не точность

удалим этот цикл:

for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;

а внутри другого цикла исправим longkey на кey
toto := chr((ord(text[i]) XOR ord(key[i])))

Проверяем и опять получаем туже ситуацию хоть и поменьше,что бы понять в чем "ошибка" посмотрим на таблицу всех символов и их кодов
для этого напишем маленькую программку

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils, classes, windows;

var s:tstringlist; st:string; i:integer;

begin
s:=tstringlist.Create; // Создаем список строк

for i:=1 to 1000 do

st:=st+' '+inttostr(i)+'= '+char(ord(i))+#13; // пишем в одну строку код символа = символ+перенос на следующую строку

s.Add(st); // добавляем строку в список

s.SaveToFile('c:\chars.txt'); // сохраняем список в файл

s.Free; // уничтожаем список

winexec(pchar('c:\windows\notepad.exe c:\chars.txt'),sw_show); // что бы вручную не открывать сделаем это автоматически
end.

Желательно прописывать блокнот который поддерживает форматирование,а то выйдет не читабельно.
И вот что мы получаем большие символы английского начинаются с 65 по 90 малые с 97...122 русские с 128...175 и 224...239
Все остальные находящиеся в промежутках нужно вырезать т.е делать обработку после шифрования или что еще лучше внести в код
поправку которая будет не принимать лишний мусор.

На практике запускаем Crypt берем строчку из шифра и применяем ее в качестве пароля к целому шифротексту смотрим на результат
небольшая поправочка что бы программа не затерла шифротекст внесем еще изменения (либо просто переименуйте файл result.txt)

удалим вот эти строки из кода они нам уже не понадобятся

if c in ['Y','y'] then begin
AssignFile(F,'result.txt');
Rewrite(F);

Напишим новые

if fileexists(f) then renamefile(oldname,oldname);

Можно придумать любую модификацию имени,добавлять к имени result порядковый номер
или время ну или конечно свой вариант какой прийдет в голову.

Теперь у нас будет масса файлов что тоже не хорошо,винт заваливать лучше уж дописывать в один файл(append в помощь).
Делать все вручную согласитесь не очень то приятное занятие (и как раньше ученые обходились только карандашем и бумагой )))
Писать целую программу тоже не хочется,по двум причинам первая это лень а вторая как же вы тогда научитесь думать и решать?
если все за вас сделаю я :) Это не интересно и к тому же вредно )))

Итак продолжим "Если величина смещения кратна длине ключа,то совпадет свыше 6 процентов байтов"
следовательно нужно написать фу-ию или процедуру ( хватит уже отдельные программы писать пора писать одну цельную )))
по подсчетам одинаковых байтов и получить процентное отношение.
Логика проста если больше либо равно 6% то переходим к пункту 2.
Можно конечно написать в фу-ии перебор всех возможных длин текста но если подумать здраво то зачем нам пароль длинной с сам текст
или даже половина его это не разумно возьмем к примеру 20 символов длину ключа от 3х до 20ти думаю это стоит учесть в будущей фу-ии.

Алгоритм следующий берем строку из шифрованного текста и накладываем на шифротекст получаем ответ вызываем фу-ию подсчета одинаковых символов
если фу-ия возвращает свыше 6% совпадение то пункт 2 иначе продолжаем цикл до конца текста.
Это домашним заданием будет для вас.

Минимальное смещение я думаю вы уже догадались как можно будет считать ну а 2ой пункт тем более понятен.
Желаю удачи и побольше эксперементируйте не доверяйте теории лучше ее проверяйте, сомневайтесь во всем, истина только в практических результатах.

Как взломать шифр Цезаря?

2012-09-06T10:39:00.000+04:00

Мы вместе научимся как создавать простейший блочный шифр он же шифр Цезаря и как его программным путем взломать.

Данная система шифрования является моноалфавитной подстановкой. Что это значит? это значит что алфавит применяется один в отличии от полиалфавитной подстановки. Алфавит всего лишь сдвигается на число K (которое является ключем) т.е если ключ 3 и алфавит английский то бука С=А D=B E=C и всего лишь.

Насколько мы помним в английском алфавите 26 символов(не считая 26 заглавных если конечно мы их будем учитывать в шифре,учитывать регистр букв) а ключ является просто числом. То возникает вопрос а что будет если ключ превысит число 26 ?

Очень интересный вопрос :) Ответ найдем в коде программы. Данный шифр имеет одну особенность он симметричный т.е операция шифрования и дешифрования одна и таже XOR.
Если брать стандартный метод взлома шифра те что использовали ранее криптоаналитики
то мы увидим что они следовали протоптанной тропой а точнее брали очень большой текст - книгу энциклопедию из английского репертуара (если шифр написан на английском) и совершали обряд :) подсчета одинаковых символов во всем тексте дабы выяснить какие буквы в алфавите самые часто употребляемые.

Для нетерпеливых скажу что это t,h,e - the в русском это гласные а,и,е если не ошибаюсь проверьте сами посмотрев таблицу или написав программу для подсчета буковок.
Дальнейшее действие какое? У нас есть таблица алфавита основного языка шифрования (на каком языке зашифрованно) и теперь мы составляем вторую таблицу делая такой же поиск одинаковых символов в шифре. Далее просто действуем путем подстановки самый часто употребляемый символ в шифре Цезаря должен быть тем самым что в первой таблице
достаточно пару букв представить и если получается осмысленный текст то дело в шляпе,
иначе у нас либо мало шифрованного текста либо это не шифр Цезаря либо что-то с чем то (модификация данного шифра,да и вообще кто вам сказал что это шифр Цезаря? ))))

Теперь перейдем к другому методу т.к операция шифрования по сути является XOR то
посмотрим как здесь обстоит дело с расшифровкой.

Не буду лить воду а опишу всю поднаготную.Берем части- кусочки шифра и налаживаем на сам шифр берем от 3х символов кода до длинны всего шифра и смотрим что получается,длину ключа мы определим когда разница между двумя кусочками шифра будет минимальна.
Зная длину ключа-пароля мы просто начнем сдвигать алфавит и проверять.

Может объяснил сумбурно и не понятно,но надеюсь в коде будет все понятно и мы вместе разберемся. А пока приведу код самого шифра,а точнее это будут две программы одна шифрует другая расшифровывает по традиции они будут консольными, ничего не стоит их переписать под "окошный" вид.

program Crypt;
{$APPTYPE CONSOLE}
uses Windows,sysutils;

var key, text, longkey, result : string;
i : integer;
toto, c : char;
F : TextFile;
begin

writeln('Enter the key:');
readln(key);
writeln('Enter text:');
readln(text);
for i := 0 to (length(text) div length(key)) do
longkey := longkey + key;

for i := 1 to length(text) do begin
toto := chr((ord(text[i]) XOR ord(longkey[i]))); // XOR algorithm
result := result + toto;
end;
writeln('The crypted text is:');
writeln(result);
write('Should i save it to result.txt ?');
read(c);
if c in ['Y','y'] then begin
AssignFile(F,'result.txt');
Rewrite(F);
Writeln(F,result);
CloseFile(F);
end;
end.

И программа расшифровки

program Decrypt;
{$APPTYPE CONSOLE}
uses Windows;

var key, c_text, longkey, result : string;
i : integer;
toto : char;
F : TextFile;
begin
writeln('Enter the key:');
readln(key);
writeln('Please make sure you have the file "result.txt" in the current directory');
// it takes the output file from Crypt.exe
AssignFile(F,'result.txt');
Reset(F);
Readln(F,c_text);
CloseFile(F);

for i := 0 to (length(c_text) div length(key)) do
longkey := longkey + key;

for i := 1 to length(c_text) do begin
toto := chr((ord(c_text[i]) XOR ord(longkey[i]))); // XOR algorithm
result := result + toto;
end;
writeln('The decrypted text is:');
writeln(result);
readln;
end.

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

В ближайшее время появятся уроки по фотошопу

2012-06-15T18:08:00.002+04:00

Покажу какие нибудь интересные вещи которые можно сделать в фотошопе

Что-то хочется написать,а что не знаю )))

2012-06-03T02:44:00.000+04:00

Размышления по поводу программирования

И что бы такое рассказать?

Давай рассмотрим структуры данных, везде и всюду про них говорят и говорят.

Что же это такое? если не вдаваться в технические подробности то это можно сказать скелет программы, кости программы на которых будут держаться код,логика,алгоритм программы.

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

А как нам уже известно данные мы можем хранить в переменных, в массивах,в записях, в классах, в файлах,в списках и т.д

Для этого много придуманно структур данных, так как простейшие можно сказать примитивы массивы и переменные нам не всегда могут помочь решить задачу,а точнее не всегда помогут правильно хранить данные.

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

поливай с ведра,хочешь насосом,хочешь вообще построй авто систему поливки и все остальное в таком же духе.

Вопрос как правильно хранить данные не совсем будет правильным,он будет правильным если мы укажем конкретную ситуацию и конкретную задачу, если это программа архивации данных то здесь уместно работать с двоичными деревьями,списками и т.п

Если это программа для поиска строк то тут нам пригодятся массивы,теже списки и любой тип данных в зависимости от ситуации сколько будет строк обрабатываться 1 млн, 500 000 или вообще громадный объем в гигабайтах.

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

Это тот момент когда программист должен ясно и четко себе представить как и в чем он будет хранить все данные использующиеся в программе включая конечно и промежуточные данные их тоже не стоит упускать из виду.

Что здесь можно посоветовать?

Посоветовать можно многое,а вот это многое поможет ли вам в вашей ситуации или нет,на 99% нет если не думать самому,а применять чужие решения и советы, без практики и опыта, это путь в никуда, с точки зрения развития самого программиста,делай как я приведет только к результату,если все конечно правильно сделать и добиться его, в другом случае начинающий или не думающий программист начнет опять искать чужое, и так будет просто копирование,шаблонный метод без личного размышления,ну каждый конечно выбирает свой метод.

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

Пример очень простой взять хотя бы сравнение строк на не допустимые символы (будем фильтровать спец символ !"#$ ) когда я был не знаком со множествами (a: set of char) приходилось делать тупое сравнение в цикле со счетчиком если это не допустимый символ удалить,да можно было конечно использовать и встроенные фу-ии в списках TStingList и многое другое, но на данный момент я знал лишь массивы,записи и различные циклы,самое простое и самое примитивное, какое же было озарение и радость когда познал множества,

код программы практически стал ясным и понятным без всяких комментариев и кучи не нужных строк кода были выкинуты в мусорку, всего лишь одна операция со множеством

показала красоту решения и изящность кода эта операция проверки входит ли данный символ

в разрешенный или это спец символ,все просто и понятно.

Я бы мог еще привести примеры правильных и не правильных структур данных,но в целом думаю понятно из всех моих слов в чем задача программиста, ЧЕМ ЯСНЕЕ АЛГОРИТМ и понятнее на бумаге,тем проще и изящней код самой программы,и самое главное конечно что бы алгоритм помещался в голове пищущего программу,иначе не избежать путаницы и не разберихи,а еще ужаснее будет отладка и тестирование такой программы.

Сюда еще можно приплести принцип юниксоидов и их идеальный подход к программированию, если код используется повторно хотя бы в двух местах программы,напиши фу-ию,если код используется хотя бы двумя программами напиши библиотеку (*.dll) и вынеси ее в папку что бы ее смогли использовать другие программы. Да это тоже верно в каких то случаях это применимо в каких то не стоит так добиваться идеальности.

Идеальность стоит искать в модели программы в модели структуры данных.

С фотографией можно работать на разных уровнях,на одном уровне можно работать с пикселами,на другом с графическими распознанными образами, на еще одном уровне можно работать с яркостью, с частотной состовляющей (дискретно косинусное преобразование ) и таких вариантов множество,включая их комбинации,и не созданные новые модели.

Желаю вам открыть свои модели,структуры,алгоритмы, на своем опыте и на своих ошибках,ведь это действительно очень тяжелый путь,путь исследователя,но и в тоже время самый лучший и полезный и практичный.

Меллируем волосы

2012-05-30T20:42:00.001+04:00

Подготовка к покраске :)

Хватаем кисть в фотошопе перед этим открыв фото девушки, выбираем в контекстном меню мягкую кисть, подбираем размер кисти и в перед :)

вроде как результат... не супер но пойдет как пример

Создаем как всегда дублирующий слой главного фото,потом создаем новый слой и просто рисуем кистью волосы,повторяя контуры волос героини, нарисовали готово, теперь этот слой с новыми волосами размоем, применим гаусовское размытие и будем повторять его Ctrl+F до тех пор пока нам не понравится их вид,что бы не слишком было видно что это рисунок.

Если что-то нельзя размыть лучше стереть и сделать копию слоя, потом трансформация Ctrl+T и отобразить по горизонтали или по вертикали (смотря как у вас и что за ситуация) или вообще развернуть как хочется. Можно применить слой-маску это такой значек внизу панели слоев

а вот и сама слой-маска

Жмем его и появляется со слоем слой-маска берем черную кисть (ей мы будем стирать ошибки,а белой возвращать назад стертое) и убираем лишние моменты и прочее,далее правой кнопкой мышки и выбираем применить слой маску.

Полезно как всегда экспериментировать создавать парочку дубликатов слоев в одном из них что-то изменять например подтереть часть волос,применить тень или еще какой нибудь эффект (фильтр-галлерея фильтров в помощь) потом начинать смешивать эти два слоя меняя прозрачность, и режимы наложения,потом смещиваем слои Ctrl+E если результат устраивает.

Далее как только волосы стали похожи на что-то реальное вызываем окошко насыщенности Ctrl+U ставим галочку тонировать и начинаем подбирать цвет перемещая бегунки, добавляя яркость если не слишком видно или насыщенность регулируя всю эту красоту.

Можно поступить проще создаем слой пустой, берем заливку G выбираем цвет и заливаем полностью весь слой, ставим его сверху волос, и выбираем режим наложения цветность, волосы должны стать цветом первого слоя,далее опять можем применить слой маску стирая лишний цвет оставляя его только на волосах.

В принципе как всегда ничего сложного нет, просто нужно проявлять фантазию и чувствовать свободу действий а эт от теории и практики зависит

В следующий раз покажу как покрасить девушке волосы без ее спроса в фотошопе конечно :)

2012-05-25T04:58:00.000+04:00

Как очистить фото от лишних надписей или ненужных элементов

2012-05-25T04:47:00.000+04:00

Удаление лишних элементов на фото

Если вы не хотите что бы дата на фото не маячила глаза,или вообще стереть лишний предмет который как вам кажется мешает общей композиции

ну или по любой другой причине тогда
будем использовать инструмент фотошопа штамп жмем S правда есть еше один штамп с узорами он нам не нужен выбираем простой штамп,дальше зажимаем Alt и появляется курсор в виде прицела,теперь укажем место откуда нам брать копирующие пикселы образцы,которые заменят нашу дату или что-то еще, обычно следует брать рядом образец,отпускаем альт и уже зарисовываем не понравившееся место.

была дата

упс и нету :)

упс и фонарик исчез :)

Вот к примеру я стер один фонарь,все бы хорошо когда смотреть из далека но если увеличить то можно увидеть изъяны :) (без мышки на ноуте не порисуешь сильно ))) просто здесь нужно очень долго работать над таким сложным фоном,меняя диаметр штампа,постоянно сменяя копируемые пикселы,и вообще надо рисовать,

а не водить как будто красите забор :) ведь эти мазки налаживаются на друг друга,так что здесь нужно чувство изящности,дизайнерства так сказать, вообщем показал как это выглядит а как должно и как получится это время практики покажет ничего сложного в этой процедуре нет,так что практика и все у вас получится.

Эффект радиального размытия

2012-05-25T04:27:00.000+04:00

Используем эффект радиального размытия

Открываем фото в фотошопе и выделяем девушку на фото в режиме быстрой маски как это сделать

потом делаем очистку,растушевку и делаем новый слой с девушкой отдельно от главного фото

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

Вот пример программы для проверки сжатия от Bad_guy

2012-05-25T03:59:00.000+04:00

Вот пример программы для проверки сжатия от Bad_guy

можете скачать с сайта или собрать из этой страницы

А это дерево ссылок (теория графов) из такой хорошей программы IDA самого лучшего дизассемблера и отладчика и вообще это целая лаборатория для исследователя и взломщика

Компоненты все известные вам,компонент xp manifest можно не ставить если не найдете его в делфи,да и вообще он ненужен это настройка визуальности,короче применение тем.

{SpectroByte IX
---
Автор: Bad_guy [CRACKL@B Team]
Сайты: www.cracklab.ru, www.clteam.net

О программе
---
Программа предназначена для построения "спектра" файла. То есть программа
считает количество каждого байта (от 0 до FFh) в файле и строит график
зависимости количества байт от их номинала. Это может быть полезно для
визуального анализа сжимаемости файла (его энтропии). Для файлов, имеющих много
одних байт и очень мало других, присутствует возможность отобразить график в
логарифмическом масштабе. Также программа вычисляет интеграл (площадь)
полученной функции. Исходники на Delphi прилагаются.}

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, math, XPMan;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Opn: TOpenDialog;
Edit1: TEdit;
Edit2: TEdit;
CheckBox1: TCheckBox;
Shape1: TShape;
XPManifest1: TXPManifest;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a, k: array [0..255] of longint;
r: trect;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var f: file of byte;
Buf: array[0..4095] of byte;
b, b1: byte;
c, ReadBytes, x: longint;
S: TFileStream;
begin
//Initialize
c := 0;
r.Left := 0;
r.Top := 0;
r.Bottom := Image1.Height;
r.Right := Image1.Width;
ZeroMemory(@a, SizeOf(a));
Image1.Canvas.Brush.Color := $A28A89;
Image1.Canvas.FillRect(r);
// Open file
if Opn.Execute then
begin
S := TFileStream.Create(Opn.Filename, fmOpenRead);
try
S.Seek(0, soFromBeginning);
repeat
ReadBytes := S.read(Buf, SizeOf(Buf));
for c := 0 to ReadBytes - 1 do
begin
b := Buf[c];
inc(a[b]);
end;
until ReadBytes <> SizeOf(Buf);
finally
S.Free;
end;

CheckBox1Click(Sender);

end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Edit1.Text := IntToStr(x);
Edit2.Text := IntToStr(Image1.height - y);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
var
b, b1: byte;
c, x: longint;
begin
// Log
if CheckBox1.Checked then
for b := 0 to 255 do
k[b] := Round(Log10(a[b] + 1) * 100)
else
for b := 0 to 255 do
k[b] := a[b];

// Normzlize;
c := 0;
x := 0;
for b := 0 to 255 do
c := Max(c, k[b]);
if c = 0 then c := 1;

for b := 0 to 255 do
k[b] := Round(k[b] / c * 100);

for b := 0 to 255 do
x := x + k[b];
x := Round(x / 256);
Label2.Caption := IntToStr(x) + '%';

// Erase Picture
r.Left := 0;
r.Top := 0;
r.Bottom := Image1.Height;
r.Right := Image1.Width;
Image1.Canvas.Brush.Color := $A28A89;
Image1.Canvas.FillRect(r);

// Draw;
for b := 0 to 255 do
for b1 := 1 to k[b] do
begin
Image1.Canvas.Pixels[b, 101 - b1] := $052068;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Erase Picture
r.Left := 0;
r.Top := 0;
r.Bottom := Image1.Height;
r.Right := Image1.Width;
Image1.Canvas.Brush.Color := $A28A89;
Image1.Canvas.FillRect(r);
end;

end.

Исследование неизвестных форматов файлов...

2012-05-25T03:15:00.001+04:00

Исследование неизвестных форматов файлов

Есть такая серия игр Максима Хорина вот здесь можете посмотреть всякие там пятнашки,карты,логические и прочие эротического содержания выигрываем переходим на следующий уровень,получаем раздетую девушку по частям :)

Так вот захотелось не играть а просто просмотреть все фото и все :) ну я и раньше так играл
в простые игры,скачивал какую нибудь простую игрушку,открывал в reshacker и вытягивал все фото из ресурсов программы,прога выкидывалась,так как уже была взломана и интереса больше не представляла, так и началось исследование неизвестных форматов файлов

Но вот попались игры Максима Хорина,и тут я зубы обламал, так как не сломать регистрацию и не разобраться в формате хранимых фото.

Если мы заглянем в папку где игрушка наша лежит то находим странные файлы *.sgdt

Привожу свои размышления на счет ковыряния в этом формате

Открываем в тотале любой файл такого формата F3-3 что бы видеть в хекс виде или в любом хекс редакторе советую WinHex в нем жмем F2 и можем посмотреть энтропию (сжат файл или нет)

Индикатор сжатия

Идут сжатые данные

А этот блок без сжатия

2010005.sgdt
==============
И так мы знаем что данный файл это набор фото до 10 штук максимус
в среднем 5..6 фото

со смещения 00001750 начинаются упакованные или зашифрованные данные
возможно и то и другое вместе и/или вариант X(неизвестный алгоритм).

==============================================
Разделим файл на несколько логических блоков объединненых
каким либо общим свойством
==============================================
1.Если бегло просмотреть весь файл то мы и увидим все эти блоки.
Друг от друга они отличаются графически (ну псевдографически)

1.1 Желательно бы написать программу которая будет выделять разные
блоки разными цветами.Для начала можно пользователю доверить
что и каким цветом выделять.

Вариант первый это сделать пару скриншотов,обрезать лишнее и подать
программе(ну возьмем фотошоп).Открываем в фотошопе,включаем сетку
далее настраиваем клетки сетки под размер байта.
Находим хотя бы одну строчку с одинаковыми байтами (0x00 or 0xFF or etc)
Закрашиваем эту строчку каким либо светлым цветом.

Программа в идеале конечно должна сама искать одинаковые строки
по заданным шаблонам(маски пользователя) и конечно сама перебирать
различные варианты.Но оставим это реализацию для домашнего задания.

Второй вариант это использование компонента RichEdit или любого другого удобного для изменения подсветки в тексте.Так даже
проще и легче.Программа ишет строку из n байт равных 0х00 или 0хFF как самый простой вариант.
Далее изменяет цвет данной строки(подкрашивает её).Вот и все.

Мы немного отвлеклись от главной темы.Продолжим.И так что же нам дает это разделение на блоки?

Это дает нам информацию из чего же состоит данный файл.Из каких частей он смастерен.
Хорошо к примеру мы нашли 10 крупных блоков при беглом осмотре файла (утопили клавишу вниз и отмечали маркером нужные места)
и n-ое кол-во мелких блоков.Что мы можем с них получить? Как они подведут к тому что же они хранят и что с них можно практического получить?

Ответ прост нужно начинать анализ каждого отдельного блока.Забегая вперед скажу что необходимо найти ссылки(links offset's) с одного блока на другой
это можно сделать используя теорию графов (да конечно это целый раздел математики,но мы будем использовать малую долю которая применяется только в программировании
минуя лишнюю теорию и громоздкие непонятные формулы).

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

Первое что мы можем отыскать в блоке это конечно же текст.Используя различные кодировки мы можем прогнать данный блок через такой анализатор кодировок ( конечно и его
необходимо написать) анализатор будет просто сменять одну кодировку на другую и ждать действий пользователя (пользователь увидел осмысленный текст,пускай даже
не зная языка на котором он написан,но все же).Не забываем про такие техники как кодировка base-64 uue и т.п.

Итак текст мы получили.Дальше проведем такую проверку как сжат ли блок.Все тоже просто используем чужой или свой анализатор-сканер,сканер проверяет энтропию файла
Уравнение энтропии простое и найти его можно в любом поисковике ну так уж и быть вот оно: ent=-log2P где p=f(s) это фу-ия вероятности появления символа в данном блоке(либо в файле),подсчитуется кол-во одинаковых символов и делим на размер файла или блока(смотря что мы берем).Если энтропия больше 1 тогда нет сжатия иначе есть.Сканируем и получаем результат файл сжат или нет.Другой вопрос если сжат то чем?

Это пожалуй самая волнующая тема,которую только можно открыть.Опять же возвращаемся к тому с чего и начинали.Нужно брать несколько известных алгоритмов сжатия
и шаблонным путем пытаться находить закономерности используя все теже графы и теорию автоматов и кучу других прибамбасов по вкусу.

Шагаем дальше.Как отличить зашифрованный файл от запакованного? Размышляем логически,запакованный файл становится меньше чем был.А вот шифрованный файл может остаться
таким каким и был,а может даже стать большим чем есть (используя тот же мусор,к тому же криптографический алгоритм сам в своей идеи может нести "эффект" увеличения размера

это нечто похожее на форматирование типов данных,например пароль должен быть 14 символов,а пользователь ввел только 10,программа сама добавляет 4 недостающих символа).
Одно можно сказать точно.Это то что
- во-первых делая частотный анализ блока или файла мы не найдем избыточную информацию(она присутствовала только в старых блочных шифрах)
- во-вторых не будет ни какой!!! закономерности в соседних байтах,словах,даже строчках и т.п это практически просто хаос-мусор

Вот мы и пришли к тому как узнать запакован или зашифрован.Если в файле часто повторяются некие символы,байты,находятся закономерности увеличения или другие подобные
то файл либо запакован,либо находится в чисто девственном виде.Если ничего подобного не обнаружили значит файл шифрован.

Самый простой шифр который мы можем взломать это xor (логическая операция ислючающее ИЛИ) ну и конечно различные примитивные шифры:шифр Вижинера,шифр Цезаря,и другие
подобные шифры использующие подстановку,замену,моноалфавитную и полиалфавитную,короче говоря блочные синхронные шифры.Ну а ксор само просто ломать технология такая:
Из ксоренного файла мы выбираем блоки различной длинны начиная от байта и до вкючая пол файла или более.Этот блок мы используем в качестве ключа,подавая на вход программе

расшифровки как только мы находим на выходе закономерность читаемость некоторых слов(слогов) то продолжаем менять размер блока.Длина ключа будет равна
разности двух блоков которые дают читабельность текста.Далее зная длину ключа.Мы просто используем цикл от 1 до n длины ключа.И начинаем прогонять весь шифр,
беря из него уже строчку нужной длины и в конце концов мы найдем сам ключ или даже расшифруем без ключа.Вот и все.

Дальнейший анализ уводит нас в глубь информатики.Нам просто необходимо выяснить как блок хранит в себе информацию.Т.е каким способом он это делает.
А делать он это может только используя стандартные типы данных которые имеются в любом языке программирования.Это byte,word,dword,integer,string,char etc
это что касает паскаля.Начнем форматировать блок в начале по байтам,потом по словам и т.д.Смотря на результат.

Результат может быть таким, блок изначально мы форматировали по байтно,а после использования по словам мы увидели текст (Unicode использует 2 байта для одной буквы
вместо старых кодировок используюших по байту на символ).Или будет видно что появилась новая псевдо графика.

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

Если вернуться с небес на землю.То мы сразу видим огромный блок сжатый по самые яйца и кучу мелких блоков.Теперь нам надо разжать этот блок чтобы получить
n-ое кол-во фоток.Как мы будем действовать.Для начала необходимо прогнать на хоr по простейшим цифровым ключам 000 111 222 и т.п. и заново взглянуть на блоки
может и поможет.

Далее читаем метод кодирования хафмена и создаем такое же дерево разбора(это уже мы лезем к спискам,графам и различным деревьям,их обходам,но когда
то же надо начинать) получая промежуточные данные и так далее пока не получим расжатое изображение.Как мы узнаем что расжали? Да очень просто
посмотрим на любую фоту и увидим как она изменяется и строится.

Ключ для разгадки лежит конечно в смежных пикселах,грубо говоря соседние пикселы не начинают
резко изменять свои цвета(в нашем случае этот так) цвета не могут резко скакать иначе это будет не фото а пожеванное фото.Знающие люди конечно скажут что просто так
ничего не получится в jpg используется Дискретно Косинусное Преобразование (ДКС) матрицы квантования и т.д.Да это все там есть,но я и не даю конкретных решений,
я всего лишь размышляю,и сам являюсь бестолковым двоишником :) Описываю всего лишь множества идей может даже и не верных.

Для этого нам нужен архиватор jpg ну или кодировщик/декодировщик.Мы просто подадим ему целый блок и посмотрим что выйдет,изменяя размеры блока мы должны
получить целое фото вот и все.Нам повезет если этот блок не будет вначале шифрован а после сжат,тогда уж без великого опыта программирования и чтения кучи
томов высшей математики мы ничего не сможем сделать,кроме как позвать на помощь других опытных и знающих людей и конечно же можно использовать чужой софт
с открытыми исходниками,различные примеры сжатия и т.п. И помните что отклоняться от примеров не только не возбраняется,а даже приветствуется.

Удачи в исследовании.

Хватит ломать будем строить

2012-05-20T14:46:00.001+04:00

Ломать не строить...

Скоро продолжим путь строительства программ,постараюсь дать теорию которая поможет самостоятельности в написании программ и алгоритмов,ожидайте новых статей

Обходной путь взлома программ...

2012-05-17T21:33:00.001+04:00

Обход защиты

Расскажу не совсем про взлом,скорее это обход защиты чем взлом,но все же это можно использовать.

Кто-то может знает такой видео конвертер как ImToo не помню какой версии я тестировал,но была довольно старая версия сейчас проверял вот на этой ImToo video converter ultimate 6.0.15 build-1110.

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

Запускаем стандартный диспетчер задач или у кого какой есть (никак не поставлю себе нормальный диспетчер :( и смотрим при нажатии конвертировать видим новый процес avc.exe это и есть сам конвертщик (консольная программа ),а сама программа это обложка визуальная оболочка для передачи параметров преобразования файлов, как же эти параметры передаются программе конвертору? Да очень просто для этого существует коммандная строка не cmd.exe а такой аргумент который можно задать перед запуском программы,не только консольно но и обычной.

Для того что бы увидеть эту строку заходим в диспетчере вид-выбрать столбцы и там коммандная строка растягиваем ее как можем на весь экран,и делаем скриншот,потом можно запихнуть его в какую либо распознавалку текста или переписать с фото кому как нравится.Теперь переходим в папку конвертера и вызываем cmd.exe я вызываю с панели тотала командера,у кого нет тотала то пуск-выпонить или кнопычку виндовс+R и пишем cmd.exe enter потом переходим в папку командой cd c:\... только не забываем что длинные пути не воспринимаются не более 6 символов

Это пережиток прошлого делается так после 6 символов идет ~1\imtoo\ и так далее гемморой конечно а что сделаешь,может и существуют другие методы но мне они не знакомы в тотале это не надо делать там все автоматом присваивается,ну да продолжим в консоли пишем avc.ece и копируем коммандную строку,только стоит убрать -t 180 это как раз ограничение на время кодирования без него видео или аудио будет кодироваться полностью. Вот и все дела.

Скажу только что чуть ли не с первой версии это сохраняется,и думаю и по сей день это работает,если не сменили там чего нибудь на новое,но это врятли. К чему я это пишу,сейчас да большинство программ поставляются и пропатченные и с кряками и с чем только не комплектуются,но думаю это интересно,хоть и кажется что возиться долго,но это на первых порах,даже возникала идея сделать свою обложку и через нее выбирать что хочу конвертнуть,
ну так эта идея и осталась на этапе не завершения проекта.

А рассказываю это для того что бы было понятно,что многие вещи какими бы не были защищенными все равно можно обойти и проще чем ломать защиту,зачем лезть через каменный забор с колючей проволкой если на углу есть трещина в стене или яма под забором ))) Взять хотя бы программы которые ограничивают вывод фото на экран все сделал создал к примеру скрин а печатать нельзя это фото или сохранить нельзя ну и фиг с ним,если фото(если результат работы программы выводится на экран,звук можно прослушать,текст просмотреть) то это можно скопировать себе
только вот не совсем простым способом. В большинстве достаточно снять дамп (копирование участка памяти с нашим фото,текстом или еще с чем то там), для этого можно использовать хекс редактор такой как WinHex

Выбираем Tools-Open RAM выбираем нужный нам процесс в примере я выбрал оперу браузер и отыскал там фото
по сигнатуре jpg про сигнатуру я еще расскажу, это всего лишь маркеры-байты указывающие на принадлежность к какому либо формату.

Diamond Puzzle v1.0

2012-05-16T15:04:00.001+04:00

Удалим срок годности в игре...

В прошлой статье я обещал продолжение и вот оно :)

Давным давно поставил себе такую игрушку от безделия и заметил как-то что на диске с появился новый драйвер лежал себе спокойно в корне диска и конечно же привлек мое внимание df.sys во-первых странно что драйвер лежит не на своем месте в системной папке а во-вторых еще странней это драйвер в 4 !!! байта F3 в тотале и все стало ясно не какой это не драйвер а счетчик триала (кол-во дней,в нашем случае кол-во запусков). Выглядит так 14 00 00 00 переводим 14 из хекс вида в десятичный получаем 20 не правда ли совпадение? :)

Не долго думая я пишу "загрузчик" (Loader) это такая микро программулька которая вначале подготавливает место для шароварной программы (shareware soft) удаляет ключи триала из реестра,с винта,подчищает их или исправляет а потом уже запускает саму программу.

Принцип простой так что код думаю не стоит приводить удаляем файл или изменяем в нем число на 14 и все,запускаем программку. Будет снова 20 новых запусков.

Это конечно простая защита от дураков,а вот касаемо регистрации то тут я так и не смог разобраться в ней.

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

Скажу почему мы не будем рассматривать сегоднящние программы для взлома, дело в том что 90% сегоднящних программ имеют защиту либо антиотладку (борьба против отладчика) шифрование, применение архиваторов-пакеров(которые сжимают программу дабы мы не смогли изучить код в дизассемблере,отладчик тот же дизассемблер с той лишь разницей что он может пошагово запускать программу и показывать результаты,дизассемблер просто показывает код) при запуске пакер находящийся внутри программы сам начинает постепенно распаковывать или расшифровывать код возможно порциями(дабы мы не смогли сделать дамп-копию программы в памяти) возможно целиком.

Так что пока нам рано такими системами защиты заниматься. Конечно скажу что изредка ну покрайней мере не очень часто выпускаются автоматические распаковщики,расшифровщики, но

в 99% появляются статьи реверсеров(исследователи кода,более опытные крякеры если можно так назвать их) в которых описано как самому вручную распаковать программу,но требуется большой опыт и знания для чтения таких статей. Многое можете узнать на сайте cracklab.ru сегодня он был переименован в другой ну думаю без проблем найдете его.

А пока я поищу простую программу без упаковки дабы показать как ломать защиту.

Делаем патч

2012-05-13T14:57:00.001+04:00

Патч patch в программе...

Итак начнем тренироваться ломать программы,и начнем конечно же со своей так проще и так будет понятней

создаем консольное приложение и пишем такой простейший код:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const pas='password';
var pass:string;
begin

writeln('Enter code');
readln(pass);
if pass=pas then writeln('Welcom to the system...')
else writeln('Code is wrong...');

end.

Все просто и понятно если пароль введенный пользователем не совпадает с константой pas то не судьба иначе
нас приветсвуют в системе.

Написали сохранили,скомпилировали и запустили. Попробуйте и правильный вариант
и не правильный,все работает. Теперь как же нам исправить программу что бы она при ЛЮБОМ!!! пароле давала положительный результат?

Для этого прийдется зайти в инструментарий крякера и обзавестись отладчиком я использую OllyDbg v1.10
можно и поновее и постарее,в принципе не важно какой использовать отладчик,но пока что на стадии обучения лучше
следовать моим советам,а дальше сами уже выберите чем лучше пользоватся.

Что такое отладчик? Это программа которая позволяет отлаживать код нашей программы,искать ошибки в только что написанной программе,с той лишь разницей что у нас нет исходника *.pas для паскаля или вообще с++ есть результат компиляции т.е просто исполнимый файл.Так вот отладчик позволяет не только найти ошибку но и исправлять прямо в *.exe . Но не пугайтесь если увидете не тот код который вы хотели увидеть,это машинный код - ассемблер. этот язык сложен и красив по своему, ассемблер готов уже для переваривания процессором.

Пока что не будем учить ассемблер,сейчас другая задача,да может и вообще не стоит его учить :)
Я покажу самые частые команды которые потребуются для взлома.

Итак открывает отладчик и открываем в нем нашу тестовую программу,и вот что мы видим в окне отладчика а точнее в окнах.

конструкция if pass=pas then... превращается в JNE address это переход на данный адресс если срабатывает другое условие ИНАЧЕ else writeln('Code is wrong'); просто сотрем это условие в ассемблере это NOP (0x90 в шестнадцатеричном редакторе) отладчик автоматически добавляет два нопа для "выравнивания" кода иначе будет фатальная ошибка,не будем сейчас залезать
в дебри ассемблера,скажу что это очень важно соблюдать количество исправленных байт.

Итак исправляем и сохраняем все запускаем и проверяем все работает на ура.
Просто подходим к строке где надо исправить и давим пробел,вводим NOP и ок

В версии 1.10 это выглядит так в контекстном меню, скопируем все исправления в программе
в новую экзешку

А вот в более новой версии: (у меня почему то не получилось,программа падает как раз с фатальной ошибкой,не стал разбираться в чем дело в настройках,просто использовал старую версию)

Это был всего лишь патч patch исправление нескольких байт для получения хорошего результата.
Порой этого бывает достаточно для домашнего использования :) бывает так что проше и легче исправить код
чем выяснять сложный алгоритм генерации проверочного кода.

Ведь это только у нас в тестовой программе хранился сам код (раньше так и было в 99% программ ) который можно было бы просто подсмотреть вытянув все текстовые строки из программы и введя правильный вариант даже не ломая программы,но это время уже давно ушло и сегодня код регистрации вычисляется динамически,

в одном случае просто считывает имя машины и на основе его к примеру XORится каким либо ключем или используется моноалфавитная подстановка - шифр цезаря или что-то простое в этом духе, в другом случае считывается серийный номер винта или любого другого компонента компа и на основе него вычисляется код,поразному бывают разные навороты алгоритмов.

чаще всего используется имя пользователя записанного в ОСи или же введенного в окне регистрации и с этим именем тоже происходит какая либо обработка, потом происходит сравнение кода введеного пользователем с кодом сгенерированным программой если совпадает то все ок иначе нет регистрации.

По поводу демо программ бывает такое что ломаешь ломаешь а ломать то там и нечего в программе действительно
отсутствует нужный код (к примеру распечать результат программы на принтере, или нет больше 3х уровней в игре и т.д и т.п) здесь все чаще программисты,а точнее те кто пытается заработать на таких программах (шароваршики) приходят к такому выводу что лучше выпустить действительно демо версию в которой будут работать пару функций а остальные будут в полнофункциональной версии за деньги,иначе взломщики часто ломают демо версии и включают все функции(которых по заверениям авторов там нет).

Вся суть взлома сводится к изменению условия проверки кода на обратные или делается безусловный переход на место удачной регистрации. Но об этом я еще подробно опищу,а пока что давайте поломаем реальную программу...

Будем исправлять триал (ограниченное время работы программы,или количество запусков,или дней и т.п) в игре
Diamond Puzzle v1.0 именно эту версию незнаю сможете ли вы отыскать эту старую версию,я даже не в курсе есть ли новые версии.

В новых версиях на 90% будет совершенно другой алгоритм защиты,так что постарайтесь найти версию 1.0 или просто поверьте на слово в крайнем случае, хотя я подумаю и вероятно выложу для скачивания данную игрушку дабы потренироваться во взломе.

Но это будет уже в другой статье...

Ожидается

2012-05-12T04:46:00.000+04:00

Ожидается описание двух моментов первый это применение какого либо спецэффекта в фотошопе и показать как же взломщики ломают программы и делают кряки патчи и генераторы ключей,и конечно же суть взлома программ, супер сжатую теорию так сказать самые сливки