Будьте добры, компельните

← →
*kolya (2004-04-18 06:52) [0]

Мастера, выручайте! Очень нужно закомпилировать код, а делфи нет под рукой. Если не трудно, скомпилируйте эт дело и скиньте мне на kae0@mail.ru
Очень нужно! Заранее большое спасибо.

program NTShutdown;

uses windows;

var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;

begin
if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege",
tkp.Privileges[0].Luid);
tkp.PrivilegeCount:=1; // one privelege to set
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;
end.

← →
хз © (2004-04-18 07:33) [1]

А может еще запустить?

← →
TUser © (2004-04-18 08:50) [2]

Новый вд трояна - запусти меня :)

← →
Anatoly Podgoretsky © (2004-04-18 11:21) [3]

Мы бедные танзанийские вирусописатели, у нас нет компьютера, пожалуйста звпустите самостоятельно.

← →
8ung © (2004-04-18 11:38) [4]

А чего вы боитесь - то?
Просто вместо F9 жмешь CTRL-F9 и все. Прога откомпилится, но не запустится...

← →
VMcL © (2004-04-18 11:44) [5]

>>8ung © (18.04.04 11:38) [4]

Потом человек с адресом mailto:kae0@mail.ru скажет огромное спасибо, когда ему пару тысяч exe-шников придет.

← →
8ung © (2004-04-18 11:45) [6]

Ну, а как - же...
Хотел совсем нахаляву компильнуть ;-))))))))

← →
DrPass © (2004-04-18 12:05) [7]

В тему:
Здравствуйте !
Я новый албанский вирус-троян и распространяюсь по интернету.
Поскольку в Албании не умеют писать нормальных вирусов приносящих вред,
Вы должны мне помочь.
Сделайте пожалуйста следующее:
1. Сотрите у себя на диске каталог c:\windows и C:\Program files
2. Отправьте это сообшение всем своим знакомым
Заранее благодарен

← →
Anatoly Podgoretsky © (2004-04-18 12:13) [8]

Вот, а то я не мог вспомнить текст этого анекдота

← →
Андрей Сенченко © (2004-04-18 12:47) [9]

DrPass © (18.04.04 12:05) [7]

Ну нету у меня на диске таких каталогов. И "Мои документы" и "Temp" тоже нет. Смени задачу, а то я сейчас в бесконечный цикл поиска упрусь пока все ресурсы ЕЭС не выжру.

← →
SergP © (2004-04-18 13:06) [10]

>Сделайте пожалуйста следующее:
>1. Сотрите у себя на диске каталог c:\windows и C:\Program files
>2. Отправьте это сообшение всем своим знакомым
>Заранее благодарен

Только пункты 1 и 2 нужно поменять местами. Иначе работать не будет...

← →
Юрий Зотов © (2004-04-18 20:16) [11]

> *kolya

А вот я сейчас и впрям скомпилирую этот код и полученный EXE действительно отправлю на указанное мыло. Но в виде программы, которая при открытии письма самоустановится в ветку команды "open EXE" - то есть, будет запускаться при попытке запуска любой другой программы.

Как, понравится тебе такая помощь, а, Коль?

← →
Рамиль © (2004-04-18 20:41) [12]

> Юрий Зотов © (18.04.04 20:16) [11]

Жестоко:)

← →
Юрий Зотов © (2004-04-18 20:58) [13]

> Рамиль © (18.04.04 20:41) [12]

Зато справедливо. И полезно.
:о)

может сделать платный web-сервис - compile-on-demand? через web-интерфейс, с выдачей ошибок компиляции. а если откомпилировалось удачно, то давать скачать результат.

как думаете, получится бабок срубить? :)

← →
uny (2004-04-18 21:06) [16]

>с оплатой по времени
ну это обязательно... :)
+ разные тарифные планы :))

2 [7]
Здрасте, Вы только что получили самый новый, самый первый, самый стршный ICQ-вирус. К сожалению в моем коде еще есть недоработки, т.к. мой создатель пока плохо умеет писать вирусы. Не-вирусы он тоже писать не умеет - ему в школе по Бейсику трояк еле натянули. Умные дяди говорят ему, что ICQ-вирус вообще не возможен. Но ему 15 лет, у него переходный взраст, поэтому плевать он хотел на умных дядей. Так что вам придется сделать за меня неготорые действия ...

Будьте добры, компельните Найти похожие ветки