памагите
у каво нибудь есть справочники/учебники по php программированию на мобильник( в txt, jar)? плиз дайте ссылки или файлы!
настроение: Любопытное
хочется: найти справочник
Виталий Кулич,
01-10-2009 23:08
(ссылка)
Перевод руководства к Pygame - пакету Python для создания игр
Для программистов на языке Python:
Перевод руководства к пакету Pygame, который предназначен для создания игр на основе библиотеки SDL. (Слегка мною не доделан, но уже вполне "руссифицирован" - как только доделаю, заменю...)
Скачать можно любому, кто заинтересован, здесь: Руководство к Pygame
Перевод руководства к пакету Pygame, который предназначен для создания игр на основе библиотеки SDL. (Слегка мною не доделан, но уже вполне "руссифицирован" - как только доделаю, заменю...)
Скачать можно любому, кто заинтересован, здесь: Руководство к Pygame
Дмитрий Иванов,
02-11-2009 14:04
(ссылка)
Сниффер своими руками за 5 минут
Любой новичок, который начал изучать программирование на С в Linux, после написания «Hello, world!» мечтает написать что нибудь более серьезное и полезное. Я попробую показать, что в этом нет ничего сложного. Человек установивший на своем компьютере Linux или другую Unix подобную систему чувствует себя немного хакером, ну а какой хакер без сниффера, основного «инструмента» анализа системы. В данной статье приведен алгоритм работы сниффера, основанного на библиотеке libpcap. Библиотека присутствует во всех дистрибутивах Linux, поэтому не буду приводить здесь процесс установки этой библиотеки и не буду расписывать все ее возможности, так как это выходит за рамки данной статьи.
Ниже приведен примерный алгоритм работы сниффера:
1.Определяем все доступные интерфейсы, для чего используем функцию pcap_findalldevs(&a, errbuf), в качестве аргументов функции передается ссылка на специальную структуру pcap_if_t и указатель на буффер errbuf[PCAP_ERRBUF_SIZE] типа char. В первую переменную заносятся сведения о всех найденных интерфейсах, во второй параметр заноситься описание ошибки,
если по каким либо причинам нам не удалось получить сведения об интерфейсах.
. . . pcap_if_t* alldevs; char errbuf[PCAP_ERRBUF_SIZE]; printf("Start capturing packets ...\n"); if (pcap_findalldevs(&alldevs, errbuf)==-1) { printf("Error in pcap_findalldevs:%s\n",errbuf); } |
2.Далее мы выбираем интерфейс с которым будем работать, следует отметить, что в списке доступных интерфейсов присутствует интерфейс с именем any, в том случае если мы будем использовать этот интерфейс, будут прослушиваться все
доступные интерфейсы.
. . . d=alldevs; if ((fp=pcap_open_live(d->name,65536,1,1000,errbuf))==NULL){ printf("\nUnable to open the adapter. \n"); return 2; } else { printf("Start sniffing on %s\n",d->name); } |
Выбор интерфейса для прослушивания аналогичен открытию файла, только для данной операции мы будем использовать
функцию pcap_open_live. Данная функция имеет четыре параметра
1. имя интерфейса, представляет собой обыкновенную переменную типа char*, как правило имя интерфейса можно получить из структуры типа pcap_if_t, что и было сделанно в нашем примере. |
||
2. Второй параметр это размер пакета, который будет захвачен, в данном случае 64К |
||
3. Третий параметр, установленный в 1 указывает на то, что интерфейс будет работать в promisc режиме. |
||
4.Четвертый параметр это тайм-аут по чтению |
||
5. Ну и последний параметр уже знакомый нам errbuf, куда будет занесено сообщение об ошибке. |
Функция возвращает указатель на структуру типа pcap_t, которая в данном случае будет аналогично дескриптору открытого
файла, либо NULL, если, что то пошло не так при открытии интерфейса.
3. Далее мы открываем файл дампа, куда будем заносить все перехваченные нами пакеты. Формат записей, которые буду
заноситься в наш файл, совпадает с форматом данных утилиты tcpdump, таким образом можно в дальнейшем, полученный
нами файл использовать с этой утилитой для анализа перехваченных пакетов. Первое что мы сделаем, это опишем
переменную, которую будем использовать как дескриптор нашего файла дампа
pcap_dumper_t *dump;
затем откроем сам файл на запись данных:
dump=pcap_dump_open(fp,"dump.log"); if (dump==NULL) { printf("Error in open file dump.log\n") ; pcap_close(fp); return 3; } |
4. И теперь, после всех проведенных предварительных действий, мы можем приступить к захвату и обработке пакетов, проходящих
через прослушиваемый нами интерфейс.
В библиотеке libpcap, как и в ее аналоге для Windows систем winpcap, существует целый набор функций, который позволяет записывать и обрабатывать полученную при прослушивании
информацию. В качестве примера воспользуемся самым примитивным
случаем. С помощью функции pcap_next будем перехватывать пакеты и обрабатывать их в цикле. в качестве
параметров функции pcap_next передается дескриптор прослушиваемого интерфейса и ссылка на специальную структуру типа pcap_pkthdr. Функция возвращает значение типа
unsigned char*.
. . . j=0; while((pkt_data=pcap_next(fp,header))!=NULL){ pcap_dump((unsigned char*)dump, header, pkt_data); ethh=(struct ether_header*) pkt_data; if (ntohs(ethh->ether_type)==ETHERTYPE_IP){ ip = (struct ip*)(pkt_data+ETH_H); if (ip->ip_p==0x06){ tcp = (struct tcphdr*)(pkt_data+ETH_H+IP_H) ; printf("TCP packet %s:%d -> ",inet_ntoa(ip->ip_src),ntohs(tcp->source)); printf("%s:%d\n\n",inet_ntoa(ip->ip_dst),ntohs(tcp->dest)); printf("%d -> Get tcp packet\n",j); } } if (j++>100) break ; } pcap_close(fp); pcap_dump_close(dump); |
Поскольку программа разрабатывалась в качестве примера, поэтому никаких особых действий она не делает. Просто в цикле
перехватывается 100 пакетов, затем они заносятся в файл. Одновременно происходит анализ заголовков нескольких уровней сетевой модели, сначала ethernet пакета, затем ip пакета и наконец tcp пакета. После чего определяется тип ip пакета и если это tcp пакет, выводиться адрес и порт источника и назначения.
В процессе написания примера были использованы:
SDK winpcap и пример из статьи в журнале "Хакер" #56 за 2003 год.
александр грузоперевозки,
30-01-2010 20:50
(ссылка)
хакерство
по базе данных кто поможет,нужна помощ.
Мая прога
Я работаю в Delphi.
Я добавил в свою прогу возможность ассоциации
файлов. При выходе имя файла сохраняеца.
При следующем запуске ListBox пустой
((((вазможность асоцыацыи -- это штобы тыкаешь файл (ну например
*.txt) У меня это LDW -- и в Лист бокс загружаются строки
(у меня список файлов)(LoadFromFile
) . Всё нормально загружается. При OnClose сохраняю имя файла
в файл (
AssignFile(f, 'n.ini');
***
Writeln(f, ListFName);
closeFile;)
При следущем OnCreate читаю из файла с именем
файла-списка, Загружаю тот файл в лист бокс, а лист бокс пустой.
))))
Я добавил в свою прогу возможность ассоциации
файлов. При выходе имя файла сохраняеца.
При следующем запуске ListBox пустой
((((вазможность асоцыацыи -- это штобы тыкаешь файл (ну например
*.txt) У меня это LDW -- и в Лист бокс загружаются строки
(у меня список файлов)(LoadFromFile
) . Всё нормально загружается. При OnClose сохраняю имя файла
в файл (
AssignFile(f, 'n.ini');
***
Writeln(f, ListFName);
closeFile;)
При следущем OnCreate читаю из файла с именем
файла-списка, Загружаю тот файл в лист бокс, а лист бокс пустой.
))))
настроение: Задумчивое
хочется: Ответа
WAP-тусовка кодеров
Привет всем!
У меня такая забавная "проблема"... :)
Короче, у меня есть свой собственный WAP-форум с достаточно небольшой посещаемостью.
Что-то вроде сообщества по интересам. :))
Но. У меня там есть специальный подфорум для программистов.
И меня очень огорчает, что используется он достаточно редко. :(
По возможности окажите содействие, пожалуйста.
Заодно и просто пообщаемся. (Форум писал не я, а кореш мой на PHP+MySQL)
Меня больше прикалывает общение в WAP...
Заходить можно с мобил или браузера Opera.
http://vorontime.ru
Если вдруг будут проблемы со входом, то
http://vorontime.unhost.ru
Есть просто некоторые проблемки с DNS... Скоро они будут решены. :)
Жду вас!
У меня такая забавная "проблема"... :)
Короче, у меня есть свой собственный WAP-форум с достаточно небольшой посещаемостью.
Что-то вроде сообщества по интересам. :))
Но. У меня там есть специальный подфорум для программистов.
И меня очень огорчает, что используется он достаточно редко. :(
По возможности окажите содействие, пожалуйста.
Заодно и просто пообщаемся. (Форум писал не я, а кореш мой на PHP+MySQL)
Меня больше прикалывает общение в WAP...
Заходить можно с мобил или браузера Opera.
http://vorontime.ru
Если вдруг будут проблемы со входом, то
http://vorontime.unhost.ru
Есть просто некоторые проблемки с DNS... Скоро они будут решены. :)
Жду вас!
настроение: Сонное, сексуальновозбуждённо
хочется: Да уже ничо не хочица, хрен его знает, блин... 7 утра...
слушаю: Всякую попсу 2001-2003 Гг. Типа, ностальгия. :)
Метки: WAP-форум, PHP, mysql, программирование
David Blbulyan,
14-12-2007 16:57
(ссылка)
Не стесняться!
Выставляем свои проекты на обсуждение! Не стесняемся
Работа с файлами в Delphi 7
Здравствуйте!
Я пишу прогу в DELPHI 7
типа базы данных, используя стандартные
функции работы с файлами типа assignfile.
При добавлении записи в базу прога должна
ессно проверять наличие такой же записи и
выводить сообщение, что запись будет заменена.
При работе проги, если заменить какую нибудь
запись, прога начинает глючить: при попытке
добавить или удалить запись выдает ошибку I/O error 32
и не добавляет/не удаляет запись, хотя замена проходит хорошо.
Что мне делать чтобы работало нормально?
Вот отрывок кода:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
r: Bool;
buff, s: string;
begin
if TitleEdit.Text = '' then ShowMessage('Не задано название элемента!')
else begin
r:=false;
if not FileExists(DBName) then begin //если базы нету
assignFile(f, DBName);
rewrite(f);
writeln(f, TitleEdit.Text);
ForceDirectories(ExtractFilePath(DBName)+'data\'+TitleEdit.Text);
DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
writeln(f, ('data\'+TitleEdit.Text+'\'+'index.rtf'));
closeFile(f);
r:=true;
end
else begin //значит база есть
assignFile(f, DBName);
reset(f);
repeat
readln(f, buff);
readln(f, s);
if Buff=TitleEdit.Text then begin //в базе есть такой элемент, заменяем его
ShowMessage('Элемент будет заменен!');
r:=true;
DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
exit;
end;
until eof(f);
closeFile(f);
end;
if (r=false) then begin
assignFile(f, DBName);
try
append(f);
except
closeFile(f);
assignFile(f, DBName);
append(f);
end;
writeln(f, TitleEdit.text);
writeln(f, ('data\'+TitleEdit.Text+'\'+'index.rtf'));
ForceDirectories(ExtractFilePath(DBName)+'data\'+TitleEdit.Text);
DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
closeFile(f);
end;
end;
if CheckBox2.Checked then BitBtn4.OnClick(BitBtn4);
end;
Я пишу прогу в DELPHI 7
типа базы данных, используя стандартные
функции работы с файлами типа assignfile.
При добавлении записи в базу прога должна
ессно проверять наличие такой же записи и
выводить сообщение, что запись будет заменена.
При работе проги, если заменить какую нибудь
запись, прога начинает глючить: при попытке
добавить или удалить запись выдает ошибку I/O error 32
и не добавляет/не удаляет запись, хотя замена проходит хорошо.
Что мне делать чтобы работало нормально?
Вот отрывок кода:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
r: Bool;
buff, s: string;
begin
if TitleEdit.Text = '' then ShowMessage('Не задано название элемента!')
else begin
r:=false;
if not FileExists(DBName) then begin //если базы нету
assignFile(f, DBName);
rewrite(f);
writeln(f, TitleEdit.Text);
ForceDirectories(ExtractFilePath(DBName)+'data\'+TitleEdit.Text);
DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
writeln(f, ('data\'+TitleEdit.Text+'\'+'index.rtf'));
closeFile(f);
r:=true;
end
else begin //значит база есть
assignFile(f, DBName);
reset(f);
repeat
readln(f, buff);
readln(f, s);
if Buff=TitleEdit.Text then begin //в базе есть такой элемент, заменяем его
ShowMessage('Элемент будет заменен!');
r:=true;
DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
exit;
end;
until eof(f);
closeFile(f);
end;
if (r=false) then begin
assignFile(f, DBName);
try
append(f);
except
closeFile(f);
assignFile(f, DBName);
append(f);
end;
writeln(f, TitleEdit.text);
writeln(f, ('data\'+TitleEdit.Text+'\'+'index.rtf'));
ForceDirectories(ExtractFilePath(DBName)+'data\'+TitleEdit.Text);
DataList.Lines.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'index.rtf');
DataPic.Picture.SaveToFile(ExtractFilePath(DBName)+'data\'+TitleEdit.Text+'\'+'pic.jpg');
closeFile(f);
end;
end;
if CheckBox2.Checked then BitBtn4.OnClick(BitBtn4);
end;
настроение: После вирусной атаки
хочется: отладить программу
слушаю: отстой
Дмитрий Притуляк,
09-02-2008 09:48
(ссылка)
Без заголовка
Подскажите ктонить, как можно на странице сообщества счётчик какой-нибудь поставить! И можь ещё какие навороты!
Дмитрий Иванов,
20-12-2007 10:45
(ссылка)
О роботах
Всем привет, увлекаюсь созданием роботов, есть здесь подобные энтузиасты, если что заходите в мой блог, советуйте, комментируйте
David Blbulyan,
02-05-2009 16:42
(ссылка)
Фак Билайн!
30 апреля с 12.00 до 13.00 интернет сообщество fuckbeeline призывает всех абонентов БИЛАЙН присоединиться к АКЦИИ ЧАС ТИШИНЫ в знак протеста против повышения оператором тарифов на свои услуги.
fuckbeeline.livejournal.com/2983.html

fuckbeeline.livejournal.com/2983.html

Всем привет!
Я только начинаю изучать Java(нужно для написания диплома, да и самому интересно).Кто пишет на(в) Java ? Дайте советы для начинающего:
настроение: Благодарное
Имя Фамилия,
24-03-2011 21:06
(ссылка)
Создание команды
Привет всем кто читает этот пост. Буду краток.))))) Предлагаю собрать 3-5 человек
(программисты, дизайнеры и пр) для создания небольшого проекта.
Цель : освоение техники работы в команде.
Область : программирование для РС, КПК, web (для пробного проекта
область не очень важна)
Навыки: предрасположенность к программированию, знание языков
приветствуется но не обязательно (было бы желание)
жду отзывов. icq 314951208 mail den1895@bk.ru
(программисты, дизайнеры и пр) для создания небольшого проекта.
Цель : освоение техники работы в команде.
Область : программирование для РС, КПК, web (для пробного проекта
область не очень важна)
Навыки: предрасположенность к программированию, знание языков
приветствуется но не обязательно (было бы желание)
жду отзывов. icq 314951208 mail den1895@bk.ru
Виталий Кулич,
29-10-2013 03:46
(ссылка)
Рускоязычная Версия D - ДИНРУС (new!)

Проведённое мною обсуждение темы создания языка Динрус на форуме для программистов, дало некоторые результаты. (

[ читать дальше → ]
ПРЕВЕД
Вот я и с вами! Приветы.
Правда, меня сложно назвать полноценным программистом. У меня в старших классах математика не пёрла вообще никак. Я гуманитарий конченный.
Ну, иногда балуюсь PHP и SQL, делаю WAP-сайты. Но особых успехов в этой области пока не достиг...
Вопрос к создатели сообщества: как вы меня нашли? ;)
Правда, меня сложно назвать полноценным программистом. У меня в старших классах математика не пёрла вообще никак. Я гуманитарий конченный.
Ну, иногда балуюсь PHP и SQL, делаю WAP-сайты. Но особых успехов в этой области пока не достиг...
Вопрос к создатели сообщества: как вы меня нашли? ;)
настроение: Мрачное
хочется: Решения всех проблем
слушаю: Тишину :))
Дмитрий Притуляк,
10-02-2008 09:30
(ссылка)
Без заголовка
Моно какнить в Viual Basic сделать так, чтобы нельзя бло вызвать меню Пуск и Деспетчер задач!
Два Ethernet-адаптера под виндами
кто-нибудь имел дело с протоколом IPX?
передать/принять пакет через (выбранный пользователем) конкретный адаптер?
Или как переключать адаптеры.
Я сейчас использую Borland C++ Builder3
P.S. и не надо мне ссылаться на route ;) чисто IPX!
передать/принять пакет через (выбранный пользователем) конкретный адаптер?
Или как переключать адаптеры.
Я сейчас использую Borland C++ Builder3
P.S. и не надо мне ссылаться на route ;) чисто IPX!
Toljan ChiMAN,
18-09-2010 11:19
(ссылка)
Как в Delphi7 добавить (удалить) пользователей Windows?
Короче работа с учётными записями пользователей средствами Delphi.
Как добавлять, удалять,отключать,менять пароль пользователей?
Желательно примеры с описаниями.
Как добавлять, удалять,отключать,менять пароль пользователей?
Желательно примеры с описаниями.
настроение: норм
хочется: ответа на вопрос
слушаю: ничего
Поощрения для программиста
Говорят, на работе играют те программисты, у которых много работы и маленькая зарплата, или большая зарплата и мало работы.
Но вот вопрос: каким Вы видите поощрение для программиста? Что может навести на мысль о работе с отдачей?
1) Участливое руководство, поощряющее инициативу и креатив.
2) Система финансовых поощрений.
3) Карьерный рост.
4) Обеспечение интересными задачами.
5) Хорошие условия труда.
6) Создание дружной атмосферы в коллективе.
7) Офисные соревнования и награды.
Возможен ли контроль за деятельностью программиста без нанесения вреда его самочувствия на работе - ведь именно оно определяет результат.
Лично я дала бы по 5 баллов 1-му, 2-му и 4-му пунктам. А Вы, может еще что подскажете?
Но вот вопрос: каким Вы видите поощрение для программиста? Что может навести на мысль о работе с отдачей?
1) Участливое руководство, поощряющее инициативу и креатив.
2) Система финансовых поощрений.
3) Карьерный рост.
4) Обеспечение интересными задачами.
5) Хорошие условия труда.
6) Создание дружной атмосферы в коллективе.
7) Офисные соревнования и награды.
Возможен ли контроль за деятельностью программиста без нанесения вреда его самочувствия на работе - ведь именно оно определяет результат.
Лично я дала бы по 5 баллов 1-му, 2-му и 4-му пунктам. А Вы, может еще что подскажете?
настроение: Рабочий день на исходе
.....
Недавно начал программировать в среде visual studio 2010 и сталкнулся с такой проблемой, не могу прописать код , чтобы программа при развёртывании развёртывалась во весь экран.Помогите.........
Почему не компилиться прога на С++???
Подскажите правильно сделал или нет и помогите исправить ошибки дана задача : Дана матрица N на M . Вывести количество строк матрицы, в которых число положительных элементов больше числа отрицательных элементов.
Вот код я написал
Вот код я написал
#include
#include
#include
#include
int main()
{
int N=3;
int M=3;
int A[N][M];
int counf = 0;
int min=0;
srand(time(0));
for(int ii = 0; ii < N; ii ++)
for (int i=0;i 0)conf++;
if ( A[i][j] < 0)min++;s++;
if(conf>min)pruntf("Polohit elementov bolhe v stroke :%d", s);
while(1);
#include
#include
#include
int main()
{
int N=3;
int M=3;
int A[N][M];
int counf = 0;
int min=0;
srand(time(0));
for(int ii = 0; ii < N; ii ++)
for (int i=0;i 0)conf++;
if ( A[i][j] < 0)min++;s++;
if(conf>min)pruntf("Polohit elementov bolhe v stroke :%d", s);
while(1);
Метки: С++
GDI в дельфи
Ребятки помогите. когда задаю
Image1.Canvas.Pen.Color:=ColorBox2.Color - перестает рисовать вобще
Image1.Canvas.Pen.Color:=clBlack а есль так то рисует как мне сделать чтоб с ColotBox работал
В этой группе, возможно, есть записи, доступные только её участникам.
Чтобы их читать, Вам нужно вступить в группу
Чтобы их читать, Вам нужно вступить в группу