12 respuestas en este tema

[escafandra]

Aprovechando el código que escribí para contestar esta pregunta se me ha ocurrido realizar una broma trampa. El código simula una rara y maligna BSOD. Si cambiamos el escritorio activo y el del proceso, la app parecerá una verdadera BSOD. El Botón "Windows" no funcionará, aunque si Ctl-Alt-Sup. No tomaremos el control hasta que cerremos la sesión, apaguemos o se termine la app trampa. 
 

delphi

program Trampa;
 
 
uses
  Windows,
  Messages,
  SysUtils;
 
var
  WScreen, HScreen: integer;
  Text: String;
  TextRect: TRect;
  TextSize: TSize;
  Font1, Font2: HFONT;
 
// Encuentra el tamaño de la caja que envuelve un texto multilínea
procedure GetTextExtentML(DC: HDC; Msg: PCHAR; Len: integer; var Size: TSize);
var
  Ancho, Alto, nLines: integer;
  C, Ini: PCHAR;
begin
  Ancho:= 0; Alto:= 0; nLines:= 0;
  C:= Msg; Ini:= Msg;
  repeat
    if ((C+1)^ = #13) or ((C+1)^ = #0) then
    begin
      GetTextExtentPoint32(DC, Ini, DWORD(C)-DWORD(Ini)+1, Size);
      if Ancho < Size.cx then Ancho:= Size.cx;
      if Alto  < Size.cy then Alto:=  Size.cy;
      Ini:= C;
      inc(nLines);
    end;
    inc(C);
  until C^ = #0;
  Size.cx:= Ancho;
  Size.cy:= Alto*nLines;
end;
 
// La función de tratamiento de mensajes
function WindowProc(Wnd: HWND; uMsg: Cardinal; wParam, lParam: Integer): Integer; stdcall;
var
  ps: PAINTSTRUCT;
  DC: HDC;
  Brush: HBRUSH;
  Rect: TRect;
begin
  Result := 0;
  case uMsg of
    WM_PAINT:
    begin
      DC:= BeginPaint(Wnd, ps);          //Comenzamos
      GetWindowRect(Wnd, Rect);
      Brush:= CreateSolidBrush($FF2525); //brocha azul
      SelectObject(DC, Brush);
      Rectangle(DC, 0, 0, Rect.right, Rect.bottom); //Pintamos un rectángulo
      SetTextColor(DC, $FFFFFF);        // Escribimos un Texto
      SetBkMode(DC, TRANSPARENT);
      SelectObject(DC, Font2);
      GetTextExtentPoint32(DC, 'HH', 2, TextSize);
      TextOut(DC, TextSize.cx+(WScreen-TextSize.cx) div 2, TextSize.cy div 2, '}:(', 3);
      SelectObject(DC, Font1);
      DrawText(DC, PCHAR(Text), Length(Text), TextRect, DT_CENTER);
      DeleteObject(Brush);              //Destruimos la brocha
      EndPaint(Wnd, ps);
    end;
    WM_CLOSE:
      DestroyWindow(Wnd);
    WM_DESTROY:
      PostQuitMessage(0);               //Destruimos la ventana
    else
      // Función por defecto de tratamiento de mensajes.
      Result:= DefWindowProc(Wnd, uMsg, wParam, lParam);
  end;
end;
 
// El programa principal
var
  Msg: TMsg;
  WinClass: WNDCLASS;
  DC: HDC;
  Desktop: HWND;
begin
  // Cambiamos de escritorio
  Desktop:= CreateDesktop('OtherDesktop', 0, 0, 0, DESKTOP_CREATEWINDOW or DESKTOP_SWITCHDESKTOP, 0);
  SetThreadDesktop(Desktop);
  SwitchDesktop(Desktop);
  ShowCursor(False);
 
  // Preparando la pantalla
  WScreen:= GetSystemMetrics(SM_CXSCREEN);
  HScreen:= GetSystemMetrics(SM_CYSCREEN);
 
  // Preparando fuentes y mensaje de texto
  DC:= GetDC(0);
  Font1:= CreateFont(48,0,0,0,FW_BOLD,0,0,0,DEFAULT_CHARSET,OUT_OUTLINE_PRECIS,
                    CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY, VARIABLE_PITCH, 'Arial Rounded MT Bold');
  Font2:= CreateFont(300,0,-900,0,FW_BOLD,0,0,0,DEFAULT_CHARSET,OUT_OUTLINE_PRECIS,
                    CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY, VARIABLE_PITCH, 'Arial Rounded MT Bold');
  Text:= 'HAS SIDO INTERCEPTADO COMO UN SER MALIGNO'+#13+'VAS A SER BLOQUEADO COMO UN VULGAR TERRORISTA'+#13+'TUS ENSERES SERÁN CONFISCADOS';
  SelectObject(DC, Font1);
  GetTextExtentML(DC, PCHAR(Text), Length(Text), TextSize);
  ReleaseDC(0, DC);
  TextRect.Left:= (WScreen - TextSize.cx) div 2;
  TextRect.Right:= TextRect.Left + TextSize.cx;
  TextRect.Top:= (HScreen - TextSize.cy) div 2;
  TextRect.Bottom:= TextRect.Top + TextSize.cy;
 
  // Preparando la ventana
  ZeroMemory(@WinClass, sizeof(WinClass));
  WinClass.lpfnWndProc:= @WindowProc;
  WinClass.lpszClassName:= 'BSOD';
 
  Windows.RegisterClass(WinClass);
  CreateWindowEx(0, WinClass.lpszClassName, '', WS_VISIBLE + WS_POPUP,
                 0, 0, WScreen, HScreen, HWND_DESKTOP, 0, 0, nil);
 
  // El bucle de mensajes
  repeat GetMessage(Msg, 0, 0, 0);
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  until (Msg.Message = WM_QUIT);
 
  // Retornando al escritorio por defecto
  SwitchDesktop(OpenDesktop('Default', 0, true, DESKTOP_SWITCHDESKTOP));
  ShowCursor(true);
 
  // Lipiando
  DeleteObject(Font1);
  DeleteObject(Font2);
  CloseHandle(Desktop);
end.

Tranquilos, el programita termina con Alt-F4 pero podríamos eliminarlo. JeJe


Saludos.

Archivos adjuntos

•  Trampa.rar   21,62KB   6 descargas

[egostar]

Ahora recuerdo una broma que hizo cHackAll en CD jajajaja

 

Saludos

[escafandra]

Ahora recuerdo una broma que hizo cHackAll en CD jajajaja

 

Saludos

 No recuerdo esa broma, ¿tienes el enlace? Tratándose de cHackAll seguro que fue buenísima.

 

Saludos.

[sir.dev.a.lot]

Me recuerda a este Señor

Chad Z. Hower aka Kudzu,

Saludos!

[escafandra]

Me recuerda a este Señor

Chad Z. Hower aka Kudzu,

Saludos!

 

cHackAll nada tiene que ver con él.

 

 

Saludos.

[Delphius]

Creo recordar que la broma hacía esto mismo o algo muy parecido y que bloqueaba algunas combinaciones de teclas. Si recuerdo que en ese entonces Emilio se enojó por la inocentada, y ponía como excusa que se mandó a cagar el servidor y andaba con ganas de empezar una baneada colectiva. Lo cierto es que podía matarse el proceso con el Ctrl+Alt+Supr (aunque no recuerdo si también valía el Alt+F4)

Esa fue quizá la 1ra señal de que los ánimos estaban caldeados en CD, y fue entre otras cosas lo que llevo a la existencia de DA. El resto de la historia la conoces

 

Por cierto, se extraña la presencia del maestro Javier. Sabía que hace un tiempo exploraba las aguas de C# pero vaya a saber que será hoy de él.

 

Saludos,

[egostar]

Creo recordar que la broma hacía esto mismo o algo muy parecido y que bloqueaba algunas combinaciones de teclas. Si recuerdo que en ese entonces Emilio se enojó por la inocentada, y ponía como excusa que se mandó a cagar el servidor y andaba con ganas de empezar una baneada colectiva. Lo cierto es que podía matarse el proceso con el Ctrl+Alt+Supr (aunque no recuerdo si también valía el Alt+F4)

Esa fue quizá la 1ra señal de que los ánimos estaban caldeados en CD, y fue entre otras cosas lo que llevo a la existencia de DA. El resto de la historia la conoces

 

Por cierto, se extraña la presencia del maestro Javier. Sabía que hace un tiempo exploraba las aguas de C# pero vaya a saber que será hoy de él.

 

Saludos,

 

Está bien, de vez en cuando charlo con él y le comento que se le extraña, pero se autoexilió de toda comunidad.

 

Saludos

[egostar]

 No recuerdo esa broma, ¿tienes el enlace? Tratándose de cHackAll seguro que fue buenísima.

 

Saludos.

 

Fue un intento de festejar a roman haciendo que todas las ventanas dijeran su nombre

 

Pero nunca dijo como se quitaba y muchos terminaron por dar botonazo y reiniciar la computadora. Voy a buscar el hilo y les paso la URL.

 

Saludos

[egostar]

Bueno, haciendo gala de la fama que me hicieron en CD (egopolice) aquí está el hilo, aunque parece que borraron el programa

 

http://clubdelphi.co...licidades roman

 

Saludos

 

PD: el mensaje #40 es el que comenta Delphius

[escafandra]

Ya encontré la broma, aunque no el hilo donde se hizo.

 

 

Saludos.

[Delphius]

Que mal mi memoria que ya no recordaba bien de a como era la broma y como era para matarlo.

 

Saludos,

[escafandra]

Pues lo he ejecutado (después de analizar el código   ) y si que tiene gracia .

 

Saludos.

[egostar]

Pues lo he ejecutado (después de analizar el código   ) y si que tiene gracia .

 

Saludos.

 

Pero no les hizo gracias en ese momento

 

Saludos