[Crack502]

Скажите, программа шутка считается вирусом?
Если я попрошу помощи мне ответят?

[Лунтик-Некрофил]

Смотря что она в себя включает... Советую почитать Фленов Delphi глазами хакера, там все неплохо описанно.

[Crack502]

У меня есть эта книга, читал...
Например: при запуске сначало тухнет монитор(если потеребить мышку, опять заработает), далее все иконки потихоньку убигают влево за предел экрана, и исчезает пуск... короче остается одна заставка на раб. столе. После перезагрузки всё становится в норму. Что думаешь, Лунтик?

[Лунтик-Некрофил]

Чесно говоря не знаю... Хотя если бы я словил такое у себя - я бы тебя по судам затаскал бы=) Читай УК РФ.

[Crack502]

Ха-Ха... Хочешь исходник скину? Прикольнешся над кем-нибудь.

[Лунтик-Некрофил]

Мне такого не надо, руки есть, и сам написать могу.
Ты мне лучше объясни как рандомно раскидать 4 числа без повторений...)

[Страдалецъ]

Шуткой это было-бы если-бы она работала как скринсейвер, а так это вредительство.

[Страдалецъ]

Сообщение от Лунтик-Некрофил

Мне такого не надо, руки есть, и сам написать могу.
Ты мне лучше объясни как рандомно раскидать 4 числа без повторений...)

Если не ошибаюсь, вам уже давали алгоритм.

[Crack502]

Сообщение от Страдалецъ

Шуткой это было-бы если-бы она работала как скринсейвер, а так это вредительство.

Какое вредительство? Только нервов юзера, а компу не вредит...

[Лунтик-Некрофил]

Страдалецъ, да, но проблема в написании запоминалки уже полученных значений и исключений их в дальнейшем.

[malekskv]

Сообщение от Лунтик-Некрофил

Мне такого не надо, руки есть, и сам написать могу.
Ты мне лучше объясни как рандомно раскидать 4 числа без повторений...)

Код:

uses .... Math;

Var 
i,Shuffle, R1,R2:integer;
a:array[1..4] of Integer;
...

procedure (создание формы)
begin
for i:=1 to 4 do begin
a[i]:=i;
end;
for i:=1 to 4 do begin
R1:=RandomRange(1,5);
R2:=RandomRange(1,5);
Shuffle:=a[R1];
a[R1]:=a[R2];
a[R2]:=Shuffle;
end;
end;

Думаю в объяснении не нуждается

[NIch]

Компью́терный ви́рус — разновидность компьютерных программ, отличительной особенностью которой является способность к размножению (саморепликация).

Избыточная информация
http://ru.wikipedia.org/wiki/Компьютерный_вирус