Исходники Windows 98

[CEO]

Специалистам си посвящается...
Наконец-то мы получили возможность покопаться в исходных кодах мелкософта!
/*Windows '98 source code.*/Windows '98 source code.
/*Windows '98 source code.*/
/*
TOP SECRET Microsoft(c) Code
Project: Chicago(tm)
Projected release-date: Summer 1998
*/
#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();
}

[DJLOVE]

это в юмор надо

search_and_destroy_the_rest_of_OS

прям как в песне металлики, seeeeek and destroy!!

[[smart]]

if (fast_cpu())
{
set_wait_states(lots);
set_mouse(speed, very_slow);
set_mouse(action, jumpy);
set_mouse(reaction, sometimes);
}

CУПЕР!

[CEO]

DJLOVE :
Я всегда догадывался что у них сотрудники тоже с юмором сидят. Но юмор у инх порой весьма своеобразный... Поэтому побоялся сразу таак и в юмор. .

[maxximik]

5+ Суппа

[[smart]]

Вот вам еще МЕ в придачу! :))

{исходники русской Windows ME}
 
unit krnl386; 
uses Windows, SysUtils, GDI, Errors, HangUps, SomeShit; 
resourcestring 
  'Bill Gater - RuleZZZ'; 
  'Microsoft - RuleZZZ'; 
  'Linux - Suxx&Must Die!' 

label 1; 
var 
  i:integer; 
  p:pointer; 
  Name:string; 
begin 
  if ItFuckHangUpYesterday then exec('scandisk.exe'); 
  i:=random(100); 
  if i>90 then begin 
    exec('format c: /q'); 
    ShowBlueScreen(format('Обнаружена ошибка по адресу %d в драйвере VMM%d.VXD',[random(1000),random(100)])); 
    Halt; 
  end; 
  //ShowLogo('Загружается Windows 3.11'); 
  //ShowLogo('Загружается Windows 95'); 
  //ShowLogo('Загружается Windows 98'); 
  ShowLogo('Загружается Windows ME'); 
  WinExec('mplayer.exe',sw_hide); 
  WinExec('moviemaker.exe',sw_hide); 
  WinExec('someshit.exe',sw_hide); 
  WinExec('baloon.exe',sw_hide); 
  repeat 
    GetMem(p, 1000000); 
    Sleep(1000); 
    if UserWantProgram(Name) then begin 
      if name='Netscape Navigator' then begin 
        ShowMessage('Недостаточно вирутальной памяти'); 
        Exec('Iexplore.exe'); 
        goto 1; 
      end; 
      if name='WordPerfect' then begin 
        ShowMessage('Программа '+ name + 'выполнила недопустимую операцию'); 
        Delete('win.com'); 
        Delete('gdi.exe'); 
        Delete('msdos.sys'); 
        ShowMessage('Некоторые системные файлы отсутствуют или повреждены'); 
        ShowMessage('Рекомендуется повторить установку Windows'); 
        Halt; 
      end; 
      for i:=1 to 1000 do begin 
        GetMem(p, 1000*random(1000)); 
        FreeMem(p, 1000*random(1000)); 
      end; 
      Exec('name'); 
    try 
      Crash('name'); 
      MailTo('billgates@microsoft.com','Блин, не вышло, надо еще доработать'); 
    except 
      MailTo('billgates@microsoft.com', 'О-па, я пришибла и эту прогу: '+name); 
    end; 
   1: 
    if UserWantToQuit then raise Exception.create('General Page Fault'); 
   end; 
  until GeneralPageFault; 
  exec('format c: /q'); 
  writeln('Теперь питание компьютера можно отключить'); 
end.

[Makc]

CEO:
if (system_ok()) crash(to_dos_prompt); else system_memory = open("a:\swp0001.swp", O_CREATE); while(something)

мегалол!!! Супер текст!!!

[ArchiMage]

http://www.imho.ws/showthread.php?s=&threadid=19799
http://www.imho.ws/showthread.php?s=&threadid=26599

[dimonk]

блин, этот прикол лет 5 назад проходил уже... тогда было смешно. а сейчас он бородой оброс недетской...

[[smart]]

dimonk
Вы тоже посинели?

[CEO]

dimonk :Ну какой же это прикол, ты что телевизоры не смотришь, газет не читаешь? Что не слышал, что хацкеры угали исходники Microsoft Windows...
Вот для форуса все сачмое лучшее, самое свежее...
Помоемуу эту тему нужно в программирование.

ВСЕМ:
А на win2K не укого исходников не завалялось?

Добавлено через 10 минут:
ArchiMage :
А, спасибо, в твоей ссылке уже нашел. Пойду разбираться.

[maxximik]

Ardvark:

if name='Netscape Navigator' then begin
ShowMessage('Недостаточно вирутальной памяти');

хехе

[CEO]

maxximik :
Теперь, когда наконец-то любимый виндовс стал опен соурсе и у нас, давайте профиксим все его баги и выпустим новую операционку.

[Danfocus]

Клево