хотелось бы купить ваш сайт ****.ru
напишите стоимость, если продаёте.

Я ответил, что домен этот не продается, и теперь попал в щепетильную ситуацию..((

Дело в том, что моя почта организованна таким образом: сообщение может быть отправлено на любой адрес перед собакой, а после собаки соответственно имя моего домена. Это называется мультиящик, и пользоваться этим очень удобно! Например, на всех сайтах я регистрируюсь исключительно на адрес ИмяСайтаНаКоторомРегистрируюсь@МойПочтовыйДомен.ру, что позволяет мне сразу понимать, какой сайт сливает спамерам базы своих клиентов, и организовать удобную сортировку почты. Вся пришедшая почта падает в единый электронный ящик, из которого я и забираю письма.

Адрес этого ящика я старался держать в секрете и нигде его не указывал, так как вся сортировка моей почты осуществляется исключительно по полю Кому. При отправке же почты из этого ящика, к письмам добавляется поле ОБРАТНЫЙ АДРЕС, где указан специальный адрес дающий мне возможность понять при каких условиях я отправлял письмо.

Теперь же в течении недели мне приходят горы спама на главный ящик, который я так берег. Так же приходят сообщения с различных почтовых серверов, с отчётами об ошибках, так как рассылка производится яко бы из моего ящика! Представляете, поле От в огромном количестве спама содержит мой секретный адрес!

Пытаясь разобраться, что же произошло, начал поиск.. и вот нашёл – спамерами идёт набор живых адресов, ответил на письмо, попал в базу под названием «Владельцы сайтов»..

Будьте бдительны.. всегда!

P.S. Кстати, так я узнал, что крупнейший сайт job.ru либо был взломан, либо владельцы его очень не порядочные люди! Спам на указанный при регистрации на этом сайте адрес не останавливается ни на мгновение!

В Новой Зеландии есть автономная республика Токелау, состоящая из 3х коралловых рифов расположенных в тихом океане. Живёт там всего 1500 жителей, занимающихся по большому счёту натуральным хозяйством.

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

На сайте dot.tk на всех основных языках предоставляется возможность зарегистрировать бесплатно домен. НО! Есть некоторые ограничения в работе с этими доменами:

• Домен будет работать как редирект для любого URL, это значит, что длинную ссылку можно укоротить с помощью этого сервиса (например ссылку на Ваш сайт на бесплатном хостинге);
• Права на зарегистрированное имя будут оставаться за регистратором;
• Домен будет аннулирован, если в течении 90 дней на него зайдёт менее двадцати пяти (25) человек;
• Почтовые ящики могут работать только в режиме переадресации (проброс почты на другой электронной ящик);

Если Вы хотите использовать домен полноценно, если есть необходимость назначать нейм-сервера, организовать полноценную работу с электронной почтой, если не хотите задумываться о количестве посетителей – придётся потратиться. Минимальный срок аренды – 2 года, вот порядок цен:

Очевидно, что регистрировать выгодно от 3-х лет!

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

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

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

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

Смена кадра.

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

Смена кадра. Автомобиль героя выезжает на шоссе (МКАД). Яркое солнечное утро. Из очешника водитель вынимает необычные солнцезащитные очки (зелёные, например). Камера снимает через лобовое стекло солнечную забитую транспортом дорогу, далее эффект – на камеру надевают очки, последующие кадры – от первого лица!

Дорога представлена в тёмном, зелёном цвете. Дорога без перекрёстков (!).

Закадровый мужской голос: «В России за первый квартал ХХХХ года в ДТП погибло …… человек из-за превышения скорости дорожного движения, …… человек из-за несоблюдения правил безопасности в местах съезда..»

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

Закадровый голос завершает чтение текста.

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

На мгновение экран быстро гаснет. Загорается с тем же эффектом, что в очках, только более тёмная съёмка.

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

Закадровый голос: «Ты нужен близким. Не подведи их!»

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

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

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

Процедура вызывается с параметром MsSleep, который соответствует времени в миллисекундах, на которое необходимо увести монитор в нужное нам состояние).

Так CreateSleepMon (10000); отключит монитор на 10 сек.

Итак, вот и сам код:

procedure CreateSleepMon (MsSleep: Cardinal); //MsSleep =  1 CEK x 1000
// Включение Монитора
 procedure SleepUp;
   begin
    SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
   end;
// Выключение Монитора
 procedure SleepDown;
   begin
    SendMessage (Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
   end;
 
 procedure TopWnd(Self: TForm; Sender: TObject);
   begin
    with Self do
     SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height,
                      SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
   end;
 
 procedure SleepClick(Self: TForm; Sender: TObject);
   begin
    if Sender is TForm then
     Begin
      SleepUp;
      Self.Close();
     End;
   end;
 
 procedure SlKeyDown(Self: TForm; Sender: TObject; var Key: Word; Shift: TShiftState);
   Begin
     SleepClick(Self, Sender);
   End;
 
 procedure SlMouseMove(Self: TForm; Sender: TObject; Shift: TShiftState; X, Y: Integer);
   Begin
     If Self.Tag = -1 Then
      Begin
       Self.Tag := X;
       Self.Hint := IntToStr(Y);
      End Else If (X > Self.Tag + 10) or (X < Self.Tag - 10) or
                  (Y > StrToInt(Self.Hint) + 10) or (Y < StrToInt(Self.Hint) - 10) Then SleepClick(Self, Sender);
   End;
 
 procedure TimerStorageEvent(Self: TForm; Sender: TObject);
   begin
    SleepDown;
   end;
 
 procedure TimerEvent(Self: TForm; Sender: TObject);
   begin
    SleepUp;
    If Sender is TTimer Then
      Begin
       TTimer(Sender).Enabled := False;
       SleepClick(Self, TTimer(Sender).Owner);
      End;
   end;
 
var
  SleepForm: TForm;
  slMouseMove_proc, slKeyDown_proc, slClick_proc, slWakeUp_proc, slWakeDw_proc, slTopWnd_proc: TMethod;
  WakeUp, WakeDown: TTimer;
begin
  Application.CreateForm(TForm, SleepForm);
  With SleepForm do
   begin
     Caption:='SleepMonitor from http://fedoseev.eu';
     BorderIcons:=[biSystemMenu];
     BorderStyle := bsNone;
     Hint := '-1';
     Tag := -1;
     Left := 0;
     Top := 0;
     Height := Screen.DesktopRect.Bottom;
     Width := Screen.DesktopRect.Right;
     Color := clBlack;
// Обработка клика
     slClick_proc.Code := @SleepClick;
     slClick_proc.Data := Pointer(SleepForm);
     OnClick := TNotifyEvent(slClick_proc);
// Обработка нажатий клавишь
     slKeyDown_proc.Code := @SlKeyDown;
     slKeyDown_proc.Data := Pointer(SleepForm);
     OnKeyDown := TKeyEvent(slKeyDown_proc);
// Обработка на движение мыши
     slMouseMove_proc.Code := @SlMouseMove;
     slMouseMove_proc.Data := Pointer(SleepForm);
     OnMouseMove := TMouseMoveEvent(slMouseMove_proc);
 
// Поверх всех окон
     slTopWnd_proc.Code := @TopWnd;
     slTopWnd_proc.Data := Pointer(SleepForm);
     OnShow := TNotifyEvent(slTopWnd_proc);
   End;
 
// Активация таймера, проверяющего сон
  WakeDown := TTimer.Create(SleepForm);
  With WakeDown do
    begin
     Enabled := True;
     Interval := 30000; // проверка каждые пол минуты
// Обработка событий по таймеру
     slWakeDw_proc.Code := @TimerStorageEvent;
     slWakeDw_proc.Data := Pointer(SleepForm);
     OnTimer := TNotifyEvent(slWakeDw_proc);
    End;
 
// Активация таймера, выводящего из процедуры
  WakeUp := TTimer.Create(SleepForm);
  With WakeUp do
    begin
     Enabled := True;
     Interval := MsSleep;
// Обработка событий по таймеру
     slWakeUp_proc.Code := @TimerEvent;
     slWakeUp_proc.Data := Pointer(SleepForm);
     OnTimer := TNotifyEvent(slWakeUp_proc);
    End;
  SleepDown;
  SleepForm.ShowModal;
  SleepForm.Free;
End;

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

P.S. Для работы таймеров в список подключаемых модулей не забудьте добавить ExtCtrls, иначе приложение не откомпилируется!

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

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

Знакомьтесь – MaxiVista (на момент публикации версия 3.0.28) и её бесплатная для домашнего использования альтернатива – ZoneScreen (Build 1.0.9.0). Лично я воспользовался первой, так как увидел много рекомендаций. Итак, на главной машине устанавливаем Maxivista_Setup_PrimaryPC.exe, а на дополнительной Maxivista_Setup_SecondaryPC.exe.

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

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

procedure FormClone(form : TForm; Disp: byte) ;
//form - копируемая форма; Disp - № дисплея для вывода
 
var
   ms : TMemoryStream;
   clone : TForm;
begin
   ms := TMemoryStream.Create;
   try
     ms.WriteComponent(form) ;
     ms.Position := 0;
     clone := TFormClass(form.ClassType).CreateNew(Application) ;
     ms.ReadComponent(clone) ;
 
//   Центрируем форму на выводимом дисплее
     clone.Left := (Screen.Monitors[Disp].Width - form.Width) div 2;
     clone.Top := (Screen.Monitors[Disp].Height - form.Height) div 2;
     clone.Show;
   finally
     ms.Free;
   end;
end;

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

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 Application.Terminate;
end;

И повесил обработчик на создание формы, что бы после старта копия окна выводилась на всех дисплеях:

procedure TForm1.FormCreate(Sender: TObject);
Var i: integer;
begin
  if Screen.MonitorCount > 1 Then
    For i := 0 to Screen.MonitorCount-1 do
     FormClone(Self, i);
end;

На мой взгляд решение получилось достаточно элегантно и лаконично!

P.S. Для тестирования работоспособности приложения я использовал очень интересный софт! Рекомендую прочитать!

В этом посте расскажу и выложу ссылки на основное оружие по борьбе с заразой! Для лечения и чистки своего инфицированного ПК рекомендую использовать следующие приложения:

Во-первых, бесплатную утилиту от Dr.Web - CureIt!

Во-вторых, так же бесплатный сканер от лаборатории Касперского (Kaspersky Virus Removal Tool 7.0)

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

Как понять, что произошло заражение сети или компьютера?

При наличии зараженных компьютеров в локальной сети повышается объем сетевого трафика, поскольку с этих компьютеров начинается сетевая атака. Антивирусные приложения с активным сетевым экраном сообщают об атаке Intrusion.Win.NETAPI.buffer-overflow.exploit.

Если вы подозреваете заражение своего компьютера, попробуйте открыть браузер и перейти на произвольную страничку любимого поискового движка. Если страница открылась — попытайтесь загрузить www.kaspersky.com или www.microsoft.com. Если этого сделать не удалось — то доступ к сайтам, скорее всего. блокирует вредоносная программа. Полный список ресурсов, заблокированных Kido, можно увидеть, например, здесь: http://www.viruslist.com/ru/viruses/encyclopedia?virusid=21782725.

Я – администратор локальной сети. Как мне быстрее и удобнее всего локализовать проблему?

Удаление сетевого вредоносной программы производится с помощью специальной утилиты KKiller.exe. С целью предохранения от заражения на всех рабочих станциях и серверах сети необходимо провести следующий комплекс мер:

1. Установить патчи, закрывающие уязвимости MS08-067, MS08-068, MS09-001.
2. Удостовериться, что пароль учетной записи локального администратора устойчив ко взлому – пароль должен содержать не менее шести символов, с использованием разных регистров и/или цифр.
3. Отключить автозапуск исполняемых файлов со съемных носителей.
4. Остановить службу Task Scheduler (Планировщик Задач) в Windows.

Удаление вредоносной программы Kido утилитой KKiller.exe необходимо производить локально на зараженном компьютере.

Как бороться с Kido обычному пользователю домашнего компьютера?

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

Если на компьютере, на котором запускается утилита KKiller.exe , установлен Agnitum Outpost Firewall, то по окончании работы утилиты обязательно перезагрузите компьютер.

Если по приведенным выше ссылкам скачать не получается (возможно страницы не будут открываться, т.к. некоторые вирусы блокируют доступ на сайты авторов антивирусного ПО), то обозначенные программы можно скачать с моего сайта:  Dr.Web CureIt! и Kaspersky Virus Removal Tool, KidoKiller.
Специально для друзей выкладываю Антивирус Касперского 6.0.3.837! Не забудьте обновить базы!;)