IMHO.WS - Исходники Windows 98

IMHO.WS (http://www.imho.ws/index.php)

- Флейм (http://www.imho.ws/forumdisplay.php?f=26)

- - Исходники Windows 98 (http://www.imho.ws/showthread.php?t=51232)

Исходники Windows 98

Специалистам си посвящается...
Наконец-то мы получили возможность покопаться в исходных кодах мелкософта!
/*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();
}

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

search_and_destroy_the_rest_of_OS

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

Цитата:

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

:biggrin: :biggrin: :biggrin: CУПЕР! :yees:

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

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

Код:

{исходники русской 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.

Цитата:

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

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

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

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

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

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

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

Цитата:

Ardvark:

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

хехе :)

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