Fórum Ajuda com virus (somente pra aprendizado) #195153

O Seguinte no WinXP 2000 não tem como voce tirar da lista do Ctrl Alt Del
so no 9X e outra coisa se voce tiver usando o xp ou o 2000 para vc desligar a máquina tem um arquivo que chama shutdown se vc tiver a oportunidade de tar em xp vai no emulador de dos dele e digita shutdown que le vai ter dar todas as opções possiveis so que no 9X nao é assim eu estou te mandando a dica só para o 9X blz?


Não aparecer na barra e tb como não aparecer no ctr+alt+del.
Coloca isso no evento oncreate do forms

procedure Tno evento create do form .FormCreate(Sender: TObject);
type
TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall;
var
Handle: THandle;
RegisterServiceProcess: TRegisterServiceProcess;
begin
//*** Nao aparece no Ctr+Alt+Del ***********************************************
Handle := LoadLibrary(´KERNEL32.DLL´);
RegisterServiceProcess := GetProcAddress(Handle, ´RegisterServiceProcess´);
RegisterServiceProcess(GetCurrentProcessID, 1);
FreeLibrary(Handle);
//*** Nao aparece na barra ***********************************************
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);



Desligar no 9x



function ExitWindowsEx(uFlags : integer; // shutdown operation

dwReserved : word) : boolean; // reserved

external ´user32.dll´ name ´ExitWindowsEx´;

procedure Tchau;

const

EWX_LOGOFF = 0; // Dá ´logoff´ no usuário atual

EWX_SHUTDOWN = 1; // ´Shutdown´ padrão do sistema

EWX_REBOOT = 2; // Dá ´reboot´ no equipamento

EWX_FORCE = 4; // Força o término dos processos

EWX_POWEROFF = 8; // Desliga o equipamento

begin

ExitWindowsEx(EWX_FORCE, 0);

end;



espero que ajude qualquer duvida me mande um email pois faço V1RU5

Aproveitando q o colega perguntou sobre vírus, acho interessante isso, só como aprendizado, claro, porque esses vírus são umas pragas chatas.
No entanto, sempre quis saber como um vírus se anexa a outro executável, infectando. Eu tinha um exemplo em pascal bem simples, só q perdi........... :cry:

Alguem sabe sobre esse esquema de infecção de exe e tem algum exemplo??

Obrigado ae Leonardobhbr , fala seu email ae pra mim entrar em contato

e qto a duvida do amigo, tb essa eh uma duvida q eu tenho... se alguem ajudar a responder, agradeço

caso alguem saiba, poste por favor


obrigado