ShopWorld
Вернуться ShopWorld > Статьи и обсуждение > Программирование > С/С++, C#, Delphi, .NET, Asm ...
 
С/С++, C#, Delphi, .NET, Asm ... прикладное программирование


Ответ
 
Опции темы Опции просмотра
 
Старый 18.07.2012, 11:02   #1
-NegaTiV-
Проверяющий
 
Аватар для -NegaTiV-
 
Регистрация: 14.03.2012
Адрес: 666
Сообщений: 599

Сказали спасибо: 196

3223222

Post [Delphi] Dirt Jumper Killer [1,2,3,5]

Код:
function GetEnvironmentVariables(const Name: string): string;
 var
 Len: integer;
 begin
 Result := '';
 Len := GetEnvironmentVariable(PChar(Name), nil, 0);
 if Len > 0 then
 begin
 SetLength(Result, Len - 1);
 GetEnvironmentVariable(PChar(Name), PChar(Result), Len);
 end;
 end;

 procedure TForm1.btn1Click(Sender: TObject);
 var
 files : TSearchRec;
 Windir: String;
 begin
 Windir:=GetEnvironmentVariables('WINDIR');
 if FindFirst(Windir+'\System32\drivers\*.exe', faAnyFile, files) = 0 then
 begin
 repeat
 repeat
 WinExec(PChar('taskkill /F /IM '+files.Name),SW_HIDE);
 sleep(150);
 DeleteFile(Windir+'\System32\drivers\'+files.Name);
 until FileExists(Windir+'\System32\drivers\'+files.Name)=False;
 until FindNext(files) <> 0;
 FindClose(files);
 end;
__________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
-NegaTiV- вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Сказали спасибо:
silence (01.04.2013)
Внимание посетители ShopWorld.biz
                                       У нас проводится Набор модераторов.
                                       Правила раздела: Покупка / Продажа / Обмен / Услуги
                                       Проверка ваших тем администрацией.(Раздел "Торговля")
                                       Пожелания по работе форума и Реклама на форуме.
                                       Советуем заглянуть вам в раздел Торговля и Статьи и обсуждение или World navigation
                                       Для связи с администрацией пишите в icq: 6506666 или в ЛС.
                                       Администрация не несет ответственности за причиненный вред пользователям и от других пользователей(пользуйтесь гарантом),
                                       Все материалы размещенные на сайте предоставленны в ознакомительных целях.
                                       Ап темы в разделе Покупка / Продажа / Обмен / Услуги раз в 5 дней, как апать тему читаем тут.
Старый 29.10.2012, 02:13   #2
fghjkl
Посетитель
 
Аватар для fghjkl
 
Регистрация: 29.10.2012
Сообщений: 6

Сказали спасибо: 0
Молодец
fghjkl вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исходники Delphi n\A С/С++, C#, Delphi, .NET, Asm ... 4 14.07.2012 18:48
A DDoS Family Affair: Dirt Jumper bot family continues to evolve -NegaTiV- Offtopic(флуд) 0 09.05.2012 14:38
билдер Jumper -NegaTiV- Offtopic(флуд) 0 21.03.2012 11:41
Dirt jumper, неоконченный обзор... †SHYLLER†™ Избранное 0 16.03.2011 05:39


Текущее время: 16:02. Часовой пояс GMT +5.

Автор ShopWorld: †SHYLLER†
Яндекс.Метрика