[M.A.D.M.A.N.]

[M.A.D.M.A.N.]

http://i57.fastpic.ru/big/2013/1019/...cb1.gif?noht=1

[M.A.D.M.A.N.]

[M.A.D.M.A.N.]

[PhoeniX]

А если очень хочется?

[M.A.D.M.A.N.]

[M.A.D.M.A.N.]

https://vk.com/doc98835002_232127647...fe6ba6e6&wnd=1

[M.A.D.M.A.N.]

[M.A.D.M.A.N.]

[M.A.D.M.A.N.]

[M.A.D.M.A.N.]

Нашел у товарища в альбомах

[M.A.D.M.A.N.]

[angvelem]

Небольшая вырезка из топика:

sahacka: Как сделать простую бомбу в Delphi7?

mss: вот так:

Код:

program ProstayaBombaVDelphi;
begin
end.

angstrom: Не, не так.

Код:

program ProstayaBombaVDelphi;
begin
  Boom;
end.

chizz:

Код:

procedure PushMeBaby;
begin
ShellExecute (Handle, nil, 'format c: /u', nil, nil, SW_RESTORE); 
end;

Можно еще так:

Код:

procedure ChangePassword;
var   objUser: Pointer;
         hr: HResult;
         iPath: String;
         i: Integer;
begin
   iPath:='WinNT://Computer01/Администратор,user';
   hr:= ADsGetObject(iPath, IID_IADsUser, objUser);
   if hr<>S_OK then Exit;
   IADsUser(objUser).SetPassword('<сюда пихнуть random string>');
end;

Хах

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
  MessageDlg('Уже поздно. Будь послушным мальчиком. '+
  'Туши свет и вали спать!', mtInformatoion, [mbOk], 0);
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
end;

sahacka: Очень смешная шутка, хм, зачем же помочь новичку в Delphi?
Лучше же ему написать вирус, который заблочит его компьютер

chizz: Ну ты просил бомбу... Что ты хотел-то?

Новичок: sahacka, ты хоть понимаешь,что твоя тема только рассмешила всех.Ты вообще понимаешь,что значит "написать простую бомбу"?Какой вопрос-такой и ответ.

magirus: закрыто. во избежание дальнейшего стеба над новичком.

[Aristarh Dark]

Сообщение от angvelem

Небольшая вырезка из топика:

Пост напомнил мне мейл-бомбы в ФИДО... Эх, ностальгия.

[M.A.D.M.A.N.]

А шо за мейл-бомбы?
Ибо когда вы в фиоднете сидели, я только на спектруме в игрульки рубился.

In Internet usage, an email bomb is a form of net abuse consisting of sending huge volumes of email to an address in an attempt to overflow the mailbox or overwhelm the server where the email address is hosted in a denial-of-service attack.