Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 joke program
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
bored_hacker




PostPosted: Wed Oct 19, 2005 5:54 pm   Post subject: joke program

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]
Sponsor
Sponsor
Sponsor
sponsor
Mr. T




PostPosted: Wed Oct 19, 2005 6:14 pm   Post subject: Alex's Opinion

Someone needs to find a smaller avatar. Wink
beard0




PostPosted: Wed Oct 19, 2005 6:30 pm   Post subject: Re: Alex's Opinion

Pwned wrote:
Someone needs to find a smaller avatar. Wink

Seconded.
[Gandalf]




PostPosted: Wed Oct 19, 2005 7:19 pm   Post subject: (No subject)

Thirdended.

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




PostPosted: Wed Oct 19, 2005 8:51 pm   Post subject: (No subject)

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




PostPosted: Wed Oct 19, 2005 9:33 pm   Post subject: (No subject)

Posted Image, might have been reduced in size. Click Image to view fullscreen. <- 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]




PostPosted: Wed Oct 19, 2005 11:28 pm   Post subject: (No subject)

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

Oh didn't I?... Smile

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



bluescreen.zip
 Description:
Blue screen

Download
 Filename:  bluescreen.zip
 Filesize:  86.33 KB
 Downloaded:  304 Time(s)

bored_hacker




PostPosted: Thu Oct 20, 2005 10:17 am   Post subject: (No subject)

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




PostPosted: Mon Oct 24, 2005 6:11 pm   Post subject: (No subject)

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




PostPosted: Tue Oct 25, 2005 8:17 am   Post subject: (No subject)

not a bad program

i just want to know why???
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 10 Posts ]
Jump to:   


Style:  
Search: