Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Humor
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-03-2007
TJose TJose is offline
Miembro
 
Registrado: may 2003
Posts: 162
Poder: 23
TJose Va por buen camino
El código fuente de Windows 2003

No se de donde viene, me lo pasó un amigo, está excelente.


Código:
#include "Win30.h"
#include "Win31.h"
#include "Win95.h"
#include "Win98.h"
#include "
Win2000.h"
#include "AlgoMas.h"
#include "CodigoAntiguo.h"
#include "NormasDeBillGates.h"
#include "CosasDeRelleno.h"
#include "Monopoly.h"

#define INSTALAR TODO_SIN_EXCEPCION_Y_A_LO_BESTIA

#define CASCAR -5483021548692487811456214478251

static char Escritorio[16000000]; /* 16 Mb */
static char Accesorios[8000000]; /* 8 Mb */
static char Explorer4[4000000]; /* 4 Mb */
static char ProgramasDeUsuario[2000000]; /* 2 Mb */

static char MemoriaLibre[2000000]; /* 2 Mb */

int main() {
   while (NoCasque()) {
     MostrarMensajeCopyright();
     MostrarMensajeNormasBillGates();
     DesactivarBotonReset();
     BucleParaNoHacerNada();


     if (PRIMERA_INSTALACION) {
       while (TamanyoDiscoSwap() < ESPACIO_WIN * 5)) {
         Ocupar50MbParaDiscoDeSwap();
         BucleParaNoHacerNada();
         }

       EliminarSistemaDeArchivosHPFS();

       EliminarCualquierRastroDeOS2();
       DeshabilitarInstalacionDeNetscape();
       DeshabilitarInstalacionDeRealPlayer();

       if (QuedaAlgunRastroSospechoso()) ColgarSistema();
     }


     MostrarAlgunaCosaBonitaPeroInutil();
     MostrarMensajeCopyrightOtraVez();
     BucleParaNoHacerNada();
     HacerVerQueHaceAlgo();

     if (SigueSinCascar()) {
       MostrarMensajeCopyrightOtraVez();

       BucleParaNoHacerNada();
       EjecutarWin31();

       if (AunSigueSinCascar()) EjecutarWin30();

       BucleParaNoHacerNada_1();
       BucleParaNoHacerNada_2();
       BucleParaNoHacerNada_3();


       BucleParaNoHacerNada_Etcetera();
     }

     if (UsuarioNoAceptaWindowsComoAlgoUtil()) goto
           VETE_A_SABER_DONDE;

     if (SeHaDetectadoCache()) DeshabilitarCache();

     if (CPU_Rapida()) {

       EstablecerEstadosDeEspera(MUCHISIMOS);
       EstablecerRaton(VELOCIDAD, MUY_LENTO);
       EstablecerRaton(ACCION, DESPLAZARSE_A_SALTOS);
       EstablecerRaton(REACCION, A_VECES);
       EstablecerTeclado(VELOCIDAD_PARPADEO, MUY_LENTO);

       EstablecerTeclado(VELOCIDAD_REPETICION, LENTO);
     }

/* printf("Bienvenido a Windows 3.0"); */
/* printf("Bienvenido a Windows 3.1"); */
/* printf("Bienvenido a Windows 95"); */

/* printf("Bienvenido a Windows 98"); */
/* printf("Bienvenido a Windows 2000"); */
printf("Bienvenido a Windows 2003");

     if (CPU != INTEL) {
       DeshabilitarRaton();

       DesconfigurarTeclado();
       ColgarSistema(INDICADOR_MSDOS);
     }
     else {
       MemoriaDeSistema = open("a:\swp0001.swp", O_CREATE);

       while (NoHayaSuficienteEspacioEnDisco()) printf("Inserte nuevo

                                                 disco en la unidad A:");
     }

     while (SE_NOS_CANTEN_LOS_HUEVOS) {
       sleep(5000);
       ObtenerEntradaUsuario();
       sleep(5000);

       ReaccionarAPeticionUsuario();
     }

     if (ObtenerNumeroAlAzar() != BINGOOOO)
       GenerarErrorDeProteccionGeneral();

/* Fin de bucle principal */
}

/* Finalizar sesion */
if (AunNoHaCascadoDelTodo()) {

   if (ObtenerOtroNumeroAlAzar() != BINGOOOO) {
     MandarExplorerALaMierda();

     if (HayAlgoAbierto()) {
       Accion = MostrarMensaje("?Desea guardar los datos?");
       if (Accion == SI) GuardarDatos_JAJAJA();

       MandarloTodoAlCarajo();
     }
   }

   printf("Windows se esta cerrando");
   while (HAYA_PRISA) sleep(5000);
   if (UsuarioYaLlegaTardeDondeTeniaQueIr()) printf("Ahora puede

                                                  apagar el equipo.");
   }

return ((int)((long)((float)((double)((re double)CASCAR)))));

}
Responder Con Cita
  #2  
Antiguo 30-03-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.122
Poder: 35
dec Tiene un aura espectaculardec Tiene un aura espectacular
¡Chúpate esa Bill! ¡Desde luego tienes más dinero que todos (o era el dinero de todos...) pero lo que nos haces reír no tiene precio!

PD. El que no se conforma es porque no quiere...
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 30-03-2007
Avatar de kinobi
kinobi kinobi is offline
Miembro
 
Registrado: may 2003
Posts: 2.621
Poder: 25
kinobi Va por buen camino
Cita:
Empezado por TJose
return ((int)((long)((float)((double)((re double)CASCAR)))));
El final es apoteósico

Muy bueno.

Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Microsoft revelará el código fuente de Windows para satisfacer exigencias de la CE Chente(rMan) Noticias 8 27-01-2006 09:18:08
Desactivar windows 2003 AngelMarvin Windows 0 12-01-2005 06:06:06
El CNI tendrá acceso al código fuente de Windows ... kinobi Noticias 6 21-01-2004 21:13:35
Delphi con Windows 2003 kukinn Varios 1 06-10-2003 17:06:42
Código fuente de windows 95 SnaKe Humor 1 03-06-2003 15:49:46


La franja horaria es GMT +2. Ahora son las 09:34:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi