DevProg: Блог для программистов

Секреты программирования. Примеры разработки. Обзоры программёрского софта, блогов и форумов и просто полезные советы!

Archive for the ‘Новичку’ Category

Урок PHP — Как отправить электронное письмо с адресом чужого e-mail ящика?!

Posted by devprog на Март 19, 2011

Урок PHP — Как отправить электронное письмо с адресом чужого e-mail ящика?!

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

1. Начинаем кодить, открывайте свой любимый редактор кода и записывайте аккуратно команды одну за другой (лично я пользуюсь Notepad++, скачать актуальную русскую версию редактора можно отсюда):

Как видите, только что, написанный нами скрипт, позволяет не только отправлять электронные письма от чужого адреса,  но и еще зафлудживать электронный ящик жертвы (параметр, равен количеству отправляемых сообщений $amount = 1;).

И если есть желание или цель зафлудить, можно конечно задать параметру $amount ,числовое значение равное 100 и тем самым зафлудить чужой мыльник. При этом, не стоит забывать, что отправка проводиться средствами PHP, так что полноценного спама не получиться. J

После того как написали и отредактировали под свои настройки скрипт, необходимо выбрать сервер, с которого мы и будет его запускать.  Если цель, отправить 1 сообщение с поддельным чужым электронным адресом, вполне достаточно будет зарегистрироваться на бесплатных хостингах с поддержкой пхп, а таких немало, к примеру holm.ru , 110mb.com и т.п. Обычно они разрешают отправку писем, со своих доменов, но с большим временем ожидания (может доходить до 1 минуты). Но а если нужен продолжительный и суровый флуд, то тут уже нужен полноценный хостинг, или вдс-ка с обязательным наличием PHP и Sendmail. Остается только отредактировать скрипт под свои настройки и залить его на хостинг/сервер/вдс и запустить через браузер.

Скачать готовый скрипт из урока можно отсюда (исходники sender.php)

Реклама

Posted in Новичку, Советы, Хитрости, PHP | Отмечено: , | 10 комментариев »

Обзор бесплатного софта pdf to word converter

Posted by devprog на Март 11, 2011

На данный момент у пользователей ПК возникают  потребности в конвертировании PDF-файлов в Word. Большой проблемы в этом нет, но есть один нюанс — программ для конвертации достаточно много. Вот в этом мы как раз и попробуем разобраться.

 

pdf to word converter

 

Выбор программы будет основан на том, какую именно цель вы преследуете. Если вам нужно сохранить первоначальную структуру файла, лучшим решением будет найти специальный софт – конвертер PDF. Подойдут небольшие утилиты или универсальные конвертеры с достаточным количеством настроек. Из последних отличным выбором будут  Smart PDF Converter Pro и ABBYY PDF Transformer. Также, хорошие показатели в конвертировании PDF в DOC показали такие программы как VeryPDF. При конвертировании DVG в PDF достойно выглядела BlueLabelSoft.

Но, если вам необходимо конвертировать лишь пару абзацев, то оптимальным выбором будет Adobe Reader и Foxit Reader.

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

Также, для конвертации еще существует масса онлайн-сайтов. Но они вам подойдут если у вас есть доступ к интернету. Один из сайтов, предоставляющих данную услугу является www.adobe.com.

Ссылки:

http://www.freepdfconvert.com

http://www.adobe.com

Скачать:

Pdf в Doc — http://www.hellopdf.com/download.php

BlueLabelSoft — http://www.brothersoft.com/publisher/blue-label-soft.html

ABBYY PDF Transformer — http://www.softportal.com/software-3210-abbyy-pdf-transformer.html

Solid Converter PDF   — http://www.softportal.com/software-4129-solid-converter-pdf.html

Posted in Новичку, Обзоры, Советы | 2 комментария »

Урок Delphi – Учимся подключать .INI файлы в свои Delphi-приложения.

Posted by devprog на Июль 25, 2010

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

<название параметра> = < его значение>

Работать с .INI файлами в Delphi очень просто. Основной базовый класс для работы с ними это TIniFile, который позволяет производить над ними все операции записи и считывания, перезаписи пользовательских настроек.  Есть еще класс TMemIniFile, который  отличается и первого TIniFile, тем, что все данные записываются в оперативную память компьютера, и сохраняются на диске только в момент вызова UpdateFile метода. Оба этих класса содержаться в модуле IniFile и для того, чтобы мы смогли использовать  .INI файлы и работать с этими классами в ваших приложениях, вы должны добавить  модуль IniFiles в секцию Uses.

Создать  объект класса TIniFile или TMemIniFile очень просто, для этого нужно передать конструктору имя .INI файла. В случае, если данного файла не существует, он создается автоматически. Для чтения/записи  из/в .INI файл пользовательских значений программно существуют методы

ReadSrting/WriteString;

ReadDate/WriteDate;

ReadInteger/WriteInteger;

ReadBool/WriteBool;

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

Открываем Delphi,  помещаем на форму компоненты Edit(поле ввода) и Button(обычная кнопка). Будем обрабатывать события компонента Form, главной формы  при создании OnCreate и закрытии OnClose, а  также события нажатия на кнопку Button OnClick.

Добавляем в секцию подключаемых модулей Uses модуль IniFile, в котором содержится класс TIniFile, с которым наше приложение будет работать.

В самом начале работы программы (в теле обработчика события создания формы OnCreate) мы попробуем прочитать данные из .INI файла. Чтобы это реализовать, создадим объект класса TIniFile, вызвав его конструктор, с именем нужного файла.  Имя файла мы получим из имени исполняемого файла приложения Application.ExeName, изменив его расширение на “ini” с помощью функции ChangeFileExt.

Извлекать из .INI файла отдельные значения мы будем с помощью методов: ReadInteger, ReadString и ReadBool. Эти функции имеют 3 аргумента

  1. Read/Write*(имя типа данных Integer, String или Bool)*  ( 1N , 2N, 3N ) ;
  2. 1N  — первый аргумент, имя секции, в нашем случае это будет Form
  3. 2N —  второй аргумент, имя параметра (Top, Left, Text и т.п.)
  4. 3N – третий аргумент, указывает значение по умолчанию(100, 200, 300 и т.п.) если используется Read* чтение, в случае Write* записи, это будет записываемое значение.

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

procedure TForm1.FormCreate(Sender: TObject);
var
IniSoub: TIniFile;
begin
Caption := ‘*.INI’;
Button1.Caption := ‘&Сохранить»
Edit1.Text := »;
//создаем объект класса TIniFile
IniSoub := TIniFile.Create(ChangeFileExt(Application.ExeName, ‘.ini’));
try // пробуем прочитать данные
Edit1.Text := IniSoub.ReadString(‘Edit’, ‘Text’, »);
Top := IniSoub.ReadInteger(‘Form’, ‘Top’, 100);
Left := IniSoub.ReadInteger(‘Form’, ‘Left’, 100);
Height := IniSoub.ReadInteger(‘Form’, ‘Height’, 100);
Width := IniSoub.ReadInteger(‘Form’, ‘Wedth’, 147);
IF IniSoub.ReadBool(‘Form’, ‘Maximized’, false) then
WindowState := wsMaximized
else
WindowState := wsNormal;
finally
IniSoub.Free; //освобождаем память
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

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

WriteString()
WriteInteger()
WriteBool()

Мы их рассмотрели выше, в Write* все тоже,  что и в Read*, кроме последнего 3 аргумента, который записывает  .INI файл какое-то числовое значение.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
IniSoub: TIniFile;
begin
//создаем обьект класса TIniFile
IniSoub := TIniFile.Create(ChangeFileExt(Application.ExeName, ‘.ini’));
try // пытаемся записать данные в наш .INI файл
IniSoub.WriteString(‘Edit’, ‘Text’, Edit1.Text);
IniSoub.WriteInteger(‘Form’, ‘Top’, Top);
IniSoub.WriteInteger(‘Form’, ‘Left’, Left);
IniSoub.WriteInteger(‘Form’, ‘Height’, Height);
IniSoub.WriteInteger(‘Form’, ‘Width’, Width);
IniSoub.WriteBool(‘Form’, ‘Maximized’, WindowState = wsMaximized);
finally
IniSoub.Free; // освободим память
end;
end;

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

Вот его листинг

[Edit]

Text= Привет

[Form]

Top=100

Left=100

Height=200

Width=440

Не забывайте при редактировании .INI файла вручную указывать имена секций в квадратные скобки  [….], а все остальные строки файла, должны иметь формат <переменная>=<значение>

Если хотите предусмотреть возможность редактирования .INI файлов через саму программу, можно использовать компонент ValueListEditor, находящийся на вкладке Additional.

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

Posted in Delphi, Новичку | Отмечено: | Leave a Comment »

Пишем алгоритм простого шифрования текста на Delphi

Posted by devprog на Июль 21, 2010

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

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

Шифровать будем элементарным алгоритмом. Каждый символ будет заменятся на следующий за ним в таблице ASCII значений.

В дельфи выбираете следующие компоненты и перетаскиваете их на форму мышкой.

  1. Edit
  2. Button
  3. Label

Нам потребуется, обрабатывать следующие события вышеперечисленных компонентов :

  • Form1: OnCreate
  • Edit1: OnKeyPress
  • Button1: OnClick

Немного расскажу о наших событиях. Когда вы нажимаете на символьной клавише на клавиатуре, генерируется событие OnKeyPress, и когда это событие произошло в атрибуты этого события заноситься ASCII-код символа  нажатой клавиши. И таким образом, если мы перехватим это событие, еще до его завершения, то мы сможем заменить и код символа этой клавиши на наш, который и отобразиться у нас в поле ввода.

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

procedure  TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

//Заменяем перехваченный символ на следующий по порядку
Key := Chr(Ord(Key) + 1)
end;

procedure TForm1.Button1Click( Sender: TObject);
var

Ret: AnsiString; //Тип данных  — ANSI строка(массив символов)
I: Integer; // Тип данные — целые числа
begin
//копируем то что находиться в поле ввода во вспомогательную строку
//и заменяем каждый символ в строке на предыдущий по таблице ASCII

Ret := Edit1.Text;
for I := 1 to Length(Ret) do
Ret[I] := Chr(Ord(Ret[I]) — 1)
//копируем результат обратно в поле ввода по нажатию на кнопку
Edit1.Text := Ret;
end;

После чего скомпилируем нажав (Run |>) и можете протестировать :)

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

Posted in 5минутные утилиты, Delphi, Новичку | Отмечено: | 9 комментариев »

Как скопировать каждый элемент чужого ListBox в свой ListBox ?

Posted by devprog на Февраль 4, 2009

Вот небольшой пример на чистом WinAPI, показывающий то, как этого можно достичь:

procedure TForm1.Button1Click(Sender: TObject);
var
h:DWORD;
i,k:integer;
buffer:array [0..20] of char;
begin
h:=FindWindow(nil,’WTF??? Катлета!’); // Ищем главное окно
 h:=FindWindowEx(h,0,’TListBox’,nil); // ищем дочернее окно класса TListBox
  i:=SendMessage(h,LB_GETCOUNT,0,0); //берём колво элементов
   for k:=0 to i-1 do begin //цикл от 0 до колва элементов
    SendMessage(h,LB_GETTEXT,k,integer(@buffer)); // берём текст ячейки
    ListBox1.Items.Add(string(buffer)); // кладём его в свой ListBox
   end
end;

В данном примере, класс, который мы ищем среди дочерних окон – называется TListBox. В вашем случае, класс может называться подругому. Класс можно посмотреть такими программами как SPYXX.EXE из пакеты Visual Studio или программой Sign of Misery от CyberManiac.

Прилагаю исходные коды: lb.rar

Posted in Delphi, Новичку | Leave a Comment »

Блин ну вот это нафиг дааа… Или как просят помощи на форумах по программированию…

Posted by devprog на Февраль 2, 2009

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

Пишет девушка-украинка:

Тема: 6 задач на турбо паскали

1.Дано натуральное число. Установить, является ли последовательность его цифр при просмотре их справа на лево упорядоченной по возрастанию. Например, для числа 5321 ответ положительный, для чисел 7820 и 9663 — отрицательный и т. п.

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

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

И всё! Это означало, что типа:

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

Поймите студенты! Никто за вас не обязан ничего решать! Мы не виноваты, что вы не понимаете, прогуливали, или просто вам лень! Если уж действительно, не даётся вам программирование, то хотябы цену предлагайте, которой вы готовы поделиться за решение.

Так это ладно! Верх наглости – это когда человек пишет свою задачу, ждёт минут 10, а потом опять пишет слова типа:

Ну чё!? Неужели никто ничего не может решить???

Да могут, просто время своё тратить на это никто не хочет, ибо время – самый ценный товар, после знаний!!!

Или, Блиин пацаны, я вообще не шарю в программировании, решите а…

Да это не наши проблемы, что ты не шаришь! Нада было выбрать другую профессию, или хотябы на все лекции ходить – преподы это любят и могут в конце тебе тройку нарисовать. А погулять на улочке мы сами любим, так и чё ты думаешь мы выберем, пойти пива с девками попить, или будем задачи твои решать?

Что можно посоветовать таким людям? А вот что:

• Если вы пытались решить задачу, но у вас не получается, то хотябы покажите свой вариант попытки решения! А так, типа решите, век вас не забуду итд – не катит!

• Если вам действительно завтра сдавать работу, а знаний (времени\усидчивости\или просто не хочу) не хватает, то берите 1000 рубликов, идите в магазин и положите их себе на кашелёк. И просто купите готовое решение.

• Если у вас есть и знание и усидчивость, но вы застопорились на каком либо моменте – то это хорошо. Попросите просто указать вам нужное направление решения задачи. Не просите решить за вас, чтобы вы сделали по аналогии.

Вот и всё собственно… Наболело… Привет всем, жду комментариев, если кто не согласен – пишите…

 

 

Posted in Новичку | 18 комментариев »

Школа программирования на Delphi для новичков

Posted by devprog на Январь 31, 2009

Привет. Рад видеть тебя снова на блоге для программистов. Итак, сначала несколько новостей:

1) К нашей комманде присоеденился новый автор – Tevton. Отличный человек, специалист по БД и по языкам программирования. Автор множества статей по программированию и просто хороший человек, который готов помочь по мере своих возможностей.

2) Решено было открыть школу начинающих программистов на языке Delphi. Пока составляется план уроков и выбирается стиль повествования, вы можете подписаться на RSS новости, чтобы получать новые записи блога незамедлительно. Так же, вы можете получать RSS ленту на почту.

Posted in Delphi, Новичку | Leave a Comment »