Компьютерные от NikSite.
Поиск:
случайно вперед>>
по популярности | по умолчанию
4
 +  - 1. Исходник Виндовс'98

/*
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();
}

2. Исходник Micro$oft Internet Explorer 4.0

(с) Stanley 2:465/174.2@fidonet

(*
Top secret! MSIE!
Written on Pasquile, coz dunno ozer langwidzez :(
MSIE 2.1 by Billa Gajtza
*)

program MSIE; { like this? }
uses billrulz,crt,dos,system,printer,graph;

{$I e:\my\secret\other\sources\netscape\nn2_1.inc}
{$I e:\my\secret\other\sources\netscape\nn2_5.inc}
{$I e:\my\secret\other\sources\netscape\nn3_0.inc}
{$I e:\pic\viewer\source\picview.pas}

{$I e:\my\usefull\var.inc} {i like this variables :)}

{const version = '3.1';}
{const version = '4.5';}
const version = '4.0';
inet = 'f:\my\pic\collect\inet\';

label label1;

begin

installtype:=hidden;
install(Netscape Navigator 3.0);
change(icons,buttons,NN3,MSIE4);

dosomestuff;
error:=setvideomode(max);
case error of
1: message('No videocard');
2: message('Need 1600x1200 mode only');
else goto label1;
dosomestuff;
crashsystem(likealways);

label1:
makeswap(50000000);
message('Please wait while MSIE',version,' initializes');
delay(5000);
dosomestuff;

registerMSIE;
if registered then
begin
message('Eh, `ya KeWl Ha(KaZ!');
registernumber:=random('999999999999999');
dosomestuff;
end

if userstartsprog then
begin
message('Quit all other applications and restart MSIE4.0');
dosomestuff;
killregisterdata;
end;

detectmodem:=random(2);
if detectmodem=0 then
begin
message('No modem was detected!');
crashsystem(hardly);
crashsystem(badly);
end
else
begin
dosomestuff;
end;

address:=inputinetaddress(user);
purgeuseraddress;
dosomestuff;
connectto('http://www.microsoft.com');
if cannotconnect then crashsystem(owveryhardly);

address:=inputinetaddress(user);
message('Connecting to ',address,' ...');
createswap(Random(100000000)+50000000);
dosomestuff;

maketrojan(getlogin&pass);
if trojan=failed then crashsystem(blowupsystem)
else sendtntrojandata(2billyzhome);

if useralive then address:=inputinetaddress(user)
else halt(0);
message('Connected!');
showpics(inet+'*.*');
dosomestuff;

if date='Dec 31 1998' then
begin
message('Your copy of MSIE',version,' has expired.');
erase(MSIE4.0,Plus!,Windows*);
crashsystem(hdd);
end;

if CPS>3000 then makenoisesinphoneline;
if CPS>6000 then crashsystem(modem);

if minutesconnected>=random(5) then
begin
disconnect;
message('Cannot reach the server: ',address);
createswap(lots'o'temps);
dosomestuff;
end;

if attempttouninstall then
begin
message('You cannot uninstall MSIE, cause
it's very important component!');
dosomestuff;
end

run(Netscape Navigator 3.0);

end.


3. Исходники MS-Plus!

(с) Stanley 2:465/174.2@fidonet

10 REM My favourite langwidz!
20 REM Want to wrote c00l prog & get lots'o'$
30 REM MS-Plus!
40 GO SUB 200
50 IF %a=1 THEN GOTO 100
60 GO SUB crashsystem
70 a$="Cannot install"
80 GO SUB message

90 REM work
100 GO SUB slowdownsystemby50
110 GO SUB makesomthwithfonts
120 GO SUB slowdragwindows
130 GO SUB iconslookhorrible
140 GO TO 100

200 REM install
210 CALL #00230AFC
220 LET crashsystem=300
230 LET message=400
240 LET slowdownsystemby50=500
250 LET makesomthwithfonts=600
260 LET slowdragwindows=700
270 LET iconslookhorrible=800
280 RETURN

300 REM crash
310 CALL #00000000
320 RETURN
400 REM message
410 PRINT a$
420 PAUSE RND(50)
430 RETURN

500 REM slow
510 LET systempriority=-5
520 RETURN

600 REM font smooth
610 LET fontsize=fontsize*1.5
620 RETURN

700 REM show contents while dragging
710 REM ?
720 RETURN

800 REM icons in 256 colors
810 LET colors=wierd
820 RETURN

случайно вперед>>