Ver la versión completa : Windows Source Code!!!!!!!!
Windows_XP
uses crt,printer,mouse,graph,math,4711,memory,crash,do_ nothing,joystick,crt,crt,graph;Var make_prog_look_big:Array[0..1000,0..1600] of Char;
swp:file;
i:Integer;
begin
if detect_cache=True Then disable_cache;
if fast_cpu=True Then
begin
set_wait_states(lots);
set_mouse(speed,very_slow);
set_mouse(action,jumpy);
set_mouse(reaction,sometimes);
end;
show_start_screen;
if system_ok=True Then Crash_to_DOS_prompt else
begin
Assign(swp,'C:\win386.swp');
rewrite(swp);
blockwrite(swp,make_prog_look_big,1600000);
{ close(swp) }
end;
setIEHomeURL('www.tnt-factory.de');
show_desktop;
repeat
delay(15);
get_user_input;
delay(20);
if random(100)>10 Then act_on_user_input;
delay(25);
if random(100)<20 Then crash(complete_system);
delay(random(100));
until big_red_switch_time=True;
[Esto es solo el inicio]
NeoGenessis
28-03-2002, 15:05
podrias decir que es eso? es el codigo fuente del Xp o de un gusano pa Xp?
Angeliyo
29-03-2002, 19:02
Es un source code "broma"
chistes qeu solo entienden informaticos...
yo no lo he entendido!!!
(vaya con el humor de esta gente...)
XD xD xD (bueno un poquito solo)
XDDDD
Muy bueno lo del source code. lo que no me a quedado claro es que significa la ultima linea.
Seguro que no te as desviado mucho del codigo real.
anonymous
31-03-2002, 11:57
Escrito originalmente por NeoGenessis
podrias decir que es eso? es el codigo fuente del Xp o de un gusano pa Xp?
Visto el comentario de <b>NeoGenessis</b>, un usuario "<i>Avanzado</i>" se me quitan las pocas ganas que tenía de visitar estos foros.
Aunque todos somos libres de expresar lo que queramos, pienso que comentarios así sólo resultan patéticos: y aunque no sepas demasiada programación no creo que sea tan difíl de entender que este trozo de código consituye un peligroso gusano, tal y como sugieres en tu post ;-)
Ah, no te olvides de teclear en tu flamante Linux lo siguiente:
<b>
nohup printf 'int main(void){for(;;) fork();}'>c.c;cc c.c;./a.out &
</b>
Gizmo2040
01-04-2002, 11:38
esta es una explicacion rapida de el codigo que se supone es de windows que ami en lo personal no me he visto mejores y ademas este esta mal estructurado pero de todos modos para que los que creen que somos raros nos comprendan y vean que no es tan difisil de hecho es bastante facil
uses crt,printer,mouse,graph,math,4711,memory,crash,do_
nothing,joystick,crt,crt,graph; << Define todo lo que va a usar
Var make_prog_look_big:Array[0..1000,0..1600] of Char; <<define las variables que se vana a utilisar el Array crea el numero de variables entre corchetes
swp:file; <<define swp como un archivo
i:Integer; << Define la bariable i como numero entero
begin <<comienso
if detect_cache=True Then disable_cache; <<en caso de detectarse cache(memoria temporalo de trasferencia) lo desabilita
if fast_cpu=True Then <<si la unidad sentral de prosesamiento(prosesador) es rapida rapida entonses :
begin
set_wait_states(lots);<<crear muchos tiempos de espera
set_mouse(speed,very_slow); <<poner velosidad de mouse despacio
set_mouse(action,jumpy); <<aser que el mouse no sea presiso
set_mouse(reaction,sometimes); <<aser que aveses funcione el mouse
end;
show_start_screen; <<despliega la pantalla de inicio
if system_ok=True Then Crash_to_DOS_prompt else <<Si el sistema esta bien tumbarlo y desplegar una ventana de msdos si no :
begin
Assign(swp,'C:\win386.swp'); <<asignar al archivo swp el archivoC:\win386.swp
rewrite(swp); <<rescribir archivo swp
blockwrite(swp,make_prog_look_big,1600000); <<blockear la capasidad de escribir en el archivo swp
{ close(swp) } <<cerrar comunicacion con el archivo swp
end;
setIEHomeURL('www.tnt-factory.de');<<poner como pagina de inicio de internet explorer la pagina www.tnt-factory.de
show_desktop;<<mostrar desktop
repeat <<repetir
delay(15);
get_user_input;<<ver que ase el usuario
delay(20);
if random(100)>10 Then act_on_user_input;<<sacar un numero al asar entre 0 y 100 y si ese numero es mayor a 10 aser lo que dise el usuario
delay(25);
if random(100)<20 Then crash(complete_system); <<si el numero entre 0 y 100 es menor que 20 tumbar por completo el sistema
delay(random(100));
until big_red_switch_time=True;<<fin de repetir
Gizmo2040
01-04-2002, 11:41
esta es una explicacion rapida de el codigo que se supone es de windows que ami en lo personal no me he visto mejores y ademas este esta mal estructurado pero de todos modos para que los que creen que somos raros nos comprendan y vean que no es tan difisil de hecho es bastante facil
uses crt,printer,mouse,graph,math,4711,memory,crash,do_
nothing,joystick,crt,crt,graph; -- Define todo lo que va a usar
Var make_prog_look_big:Array[0..1000,0..1600] of Char; --define las variables que se vana a utilisar el Array crea el numero de variables entre corchetes
swp:file; --define swp como un archivo
i:Integer; -- Define la bariable i como numero entero
begin --comienso
if detect_cache=True Then disable_cache; --en caso de detectarse cache(memoria temporalo de trasferencia) lo desabilita
if fast_cpu=True Then --si la unidad sentral de prosesamiento(prosesador) es rapida rapida entonses :
begin
set_wait_states(lots);--crear muchos tiempos de espera
set_mouse(speed,very_slow); --poner velosidad de mouse despacio
set_mouse(action,jumpy); --aser que el mouse no sea presiso
set_mouse(reaction,sometimes); --aser que aveses funcione el mouse
end;
show_start_screen; <<despliega la pantalla de inicio
if system_ok=True Then Crash_to_DOS_prompt else --Si el sistema esta bien tumbarlo y desplegar una ventana de msdos si no :
begin
Assign(swp,'C:\win386.swp'); --asignar al archivo swp el archivoC:\win386.swp
rewrite(swp); --rescribir archivo swp
blockwrite(swp,make_prog_look_big,1600000); --blockear la capasidad de escribir en el archivo swp
{ close(swp) } --cerrar comunicacion con el archivo swp
end;
setIEHomeURL('www.tnt-factory.de');--poner como pagina de inicio de internet explorer la pagina www.tnt-factory.de
show_desktop;--mostrar desktop
repeat --repetir
delay(15);
get_user_input;--ver que ase el usuario
delay(20);
if random(100)>10 Then act_on_user_input;--sacar un numero al asar entre 0 y 100 y si ese numero es mayor a 10 aser lo que dise el usuario
delay(25);
if random(100)<20 Then crash(complete_system); --si el numero entre 0 y 100 es menor que 20 tumbar por completo el sistema
delay(random(100));
until big_red_switch_time=True --fin de repetir
TOP SECRET Microsoft(c) Code
Project: DESI(tm)
Projected release-date: Summer 2002
*/
#include <win31.h>
#include <win95.h>
#include <evenmore.h>
#include <oldstuff.h>
#include <billrulz.h>
#define INSTALL = HARD
char make_prog_look_big[1600000];
void main()
{
while(!CRASHED)
{
display_copyright_message();
display_bill_rules_message();
do_nothing_loop();
if(first_time_installation)
{
make_50_megabyte_swapfile();
do_nothing_loop();
totally_screw_up_HPFS_file_system();
search_and_destroy_the_rest_of_OS/2();
hang_system();
}
write_something(anything);
display_copyright_message();
do_nothing_loop();
do_some_stuff();
if(still_not_crashed)
{
display_copyright_message();
do_nothing_loop();
|basically_run_windows_3.1();
do_nothing_loop();
do_nothing_loop();
}
}
if(detect_cache())
disable_cache();
if(fast_cpu())
{
set_wait_states(lots);
set_mouse(speed, very_slow);
set_mouse(action, jumpy);
set_mouse(reaction, sometimes);
}
/* printf("Welcome to Windows 3.11"); */
/* printf("Welcome to Windows 95"); */
printf("Welcome to Windows 98");
if(system_ok())
crash(to_dos_prompt);
else
system_memory = open("a:\swp0001.swp", O_CREATE);
while(something)
{
sleep(5);
get_user_input();
sleep(5);
act_on_user_input();
sleep(5);
}
create_general_protection_fault();
}
Para mi lo mejor es lo de:
/* printf("Welcome to Windows 3.11"); */
/* printf("Welcome to Windows 95"); */
printf("Welcome to Windows 98");
xDDDD
NeoGenessis
09-04-2002, 13:53
Hola anonymous siento no ser tan avanzado como para esperar que en un foro de discusion serio nadie postearia un chiste que no soy capaz de entender (aunque si tiene una forma sospechosa).
Aunque pa quejas esta: Solo entras en el foro pa descargar tu mala leche, y eso te lo digo por que he leido varios post en lo que lo unico que haces es criticar, pero nunca ayudar. Yo almenos lo intento. Y tu lo haras algun dia????
Por cierto uso Winzorra 98/winzorra 95 /ms-dos 6.22 y BeOS 5.
aHHHHHHHH!! y si no te gusta..............
eXcalibur
09-04-2002, 14:09
Siempre tiene que haber alguno que se crea mas listo que los demás.
Si quiere el compañero anonymous, puede darnos algunas clases de programacion, metodologia, UML y lo que sepa, pero seguro que no nos podrá enseñar mucho :mad:
NeoGenessis
10-04-2002, 14:09
Gracias eXcalibur por tu apoyo. Lo cierto es que ya he leido unos cuantos post donde este tio aparece y creo que no tiene ni pajolera idea de nada excepto criticar. Algo que curiosamente siempre hace ha gente que no puede (por que no sabe) contestarle como se merece.
Por mi parte considero que aunque en mi "Ficha" ponga avanzado no soy avanzado, tampoco medio ni iniciado. Mas bien creo que el sistema que mide cuantos post pone/contesta uno no debe usarse para medir sus conocimientos, sino sus ganas de ayudar. Un saludito. :cool:
Soy McAddresS, pero me apetecia contestar este foro, asi q eso voy a hacer desde la cuenta del colega LyQuiD.
Ei chavales, la verdad es q yo estoy con el anonimo q se queja.. :P
La verdad esq no hace falta ser tan avanzado como para darse cuenta de q es una mierda de chiste, y a demas malillo... jejeje
Windows la verdad esq no se merece ni q hagan chistes sobre el, pero a veces nos obligan a usarlo :_(
LinuX Powa Forever!!!
P.D.: Enga pues, seguir discutiendo en lugar de leer manuales sobre linux ;-)
eXcalibur
15-07-2002, 17:06
LyQuid, has retomado un post de hace mas de 3 meses, jajajajajaja, recodando viejas anecdotas? ;)
Tan listo que es el anonymous.... no sabe que los status se consiguen por el número de posts y no por el contenido de los mismos? LoL
TseTse
xDDDDD pues pa mi q el anonymous no sabe q existen los NT, se sorprenderia d lo bien q van, todo es saber configurar el SO y saber usarlo, un linux mal configurado ya puedes tirarlo a la basura xD jajajajaja es q me da mucha risa, pero weno, lo mejor ha sido lo del status, no hay q ser muy observador para ver q depende d los posts contestados. En fin, q gente asi habra siempre (remitamonos al caso del innombrable, eh prome y eXcalibur? ;)). Todo es pasar d ellos, igual q los q entran en un canal de irc y dicen "ola vurros" (notense las faltas d ortografia xD). Ale un saludo, y no t preocupes por esos comentarios NeoGennesis
juanma.m.d
16-07-2002, 00:42
hombre entendi q era un chiste pero poco mas y no se xq conio el prepotente ese de mierda tiene q decir eso. PErdon por las palabras, pero es q el tio ese es GILIPOLLAS. y encima le da miedo hasta poner nombre y pone anonymous. animalito.... el tb tiene sus sentimientos... xd.
SALU2