joke program

[bored_hacker]

I just made a program to use as a joke on one of my friends. This program basically fakes the blue screen of death in a somewhat realistic way. It's compatible with ANY resolution. The version i gave my friend was a standalone with the icon changed. it freaked him out for about 3 seconds until he realised it wasn't fullscreen. right now I'm working on it to make it fullscreen but for now...

code:

View.Set ("graphics: max, max; nobuttonbar; nocursor; title:The Ultimate AntiVirus") const BLUE := RGB.AddColour (0, 0, 2 / 3) const title := Font.New ("serif:24") const word := Font.New ("serif:18") const size := round ((maxy div 28) / 2.15) const message := Font.New ("Lucida Console:" + intstr (size)) var space := maxy - (size * 2) var BSoD : array 1 .. 28 of string BSoD (1) := "A problem has been detected and Windows has been shut down to prevent damage to your computer." BSoD (2) := "" BSoD (3) := "" BSoD (4) := "PFN_LIST_CORRUPT" BSoD (5) := "" BSoD (6) := "If this is the first time you've seen this error screen," BSoD (7) := "restart your computer. If this screen appears again, follow" BSoD (8) := "these steps:" BSoD (9) := "" BSoD (10) := "Check to make sure any new hardware or software is properly installed." BSoD (11) := "If this is a new installation, ask your hardware or software manufacturer" BSoD (12) := "for any Windows updates you might need." BSoD (13) := "" BSoD (14) := "If problems continue, disable or remove any newly installed hardware" BSoD (15) := "or software. Disable BIOS memory options such as caching or shadowing." BSoD (16) := "If you need to use Safe Mode to remove or disable components, restart" BSoD (17) := "your computer, press F8 to select Advanced Startup Options, and then" BSoD (18) := "select Safe Mode." BSoD (19) := "" BSoD (20) := "" BSoD (21) := "Technical information:" BSoD (22) := "*** STOP: 0x0000004e (0x00000099, 0x00000000, 0x00000000, 0x00000000)" BSoD (23) := "" BSoD (24) := "" BSoD (25) := "Beginning dump of physical memory" BSoD (26) := "Physical memory dump complete." BSoD (27) := "Contact your system administrator or technical support group for further" BSoD (28) := "assistance." Draw.Text ("Your computer is infected with the following viruses:", 5, maxy - 40, title, 7) Draw.Text ("W32.NetSky.B", 5, maxy - 80, word, 7) Draw.Text ("W32.NetSky.G", 5, maxy - 120, word, 7) Draw.Text ("W32.NetSky.I", 5, maxy - 160, word, 7) Draw.Text ("W32.MyLife.A", 5, maxy - 200, word, 7) Draw.Text ("W32.MyDoom.B", 5, maxy - 240, word, 7) Draw.Text ("W32.Loxbot.A", 5, maxy - 280, word, 7) Draw.Text ("Trojan.Elitebar", 5, maxy - 320, word, 7) Draw.Text ("W97.Thus.R", 5, maxy - 360, word, 7) Draw.Text ("Hit any key to have all of the listed viruses deleted", 5, maxy - 500, word, 7) Input.Pause Draw.FillBox (0, 0, maxx, maxy, BLUE) for i : 1 .. 28     Draw.Text (BSoD (i), 5, space, message, 0)     space -= (size * 2) end for

[/code]

[Mr. T]

Someone needs to find a smaller avatar.

[beard0]

Pwned wrote:

Someone needs to find a smaller avatar.

Seconded.

[[Gandalf]]

Thirdended.

btw, you can't do full screen on Turing, only on the old dos version.

[bored_hacker]

yeah, i didn't pay attention to the dimentions of the picture. by full screen i meant playing around with the standalone and at least get rid of the frame.

[beard0]

<- Molto grazie.

I like [Gandalf]'s suggestion, although I don't think he meant to suggest it. Compile with the old DOS Turing compiler.

[[Gandalf]]

beard0 wrote:

although I don't think he meant to suggest it. Compile with the old DOS Turing compiler.

Oh didn't I?...

It certainly is capable for something like this, clickety the attachment.

[bored_hacker]

thanks gandalf, i never thought of using old dos turing.

[MysticVegeta]

In the end why dont you actually call the:

code:

If Sys.Exec("%oot/system32/shutdown.exe") then %%%%%% end if

this will be t3h 3vil

[djlenny_3000]

not a bad program

i just want to know why???