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

Username:   Password: 
 RegisterRegister   
 FILE SEARCH LOOK-A-LIKE
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Boarder16




PostPosted: Sat Feb 21, 2004 2:46 pm   Post subject: FILE SEARCH LOOK-A-LIKE

I was bored and threw this virus search look-a-like program togehter... htere are two verions look at em both..thanks...oh and bits are always good:D
code:
var i, i2, i4, i6, i8, i0, tc, fn, cc : int := 0
var i1, i3, i5, i7, i9 : int := 1
var c, cf : string
colorback (black)
color (green)
for count : 1 .. 1000
    fn := fn + 1
    randint (i, 0, 1)
    randint (i1, 0, 1)
    randint (i2, 0, 1)
    randint (i3, 0, 1)
    randint (i4, 0, 1)
    randint (i5, 0, 1)
    randint (i6, 0, 1)
    randint (i7, 0, 1)
    randint (i8, 0, 1)
    randint (i9, 0, 1)
    randint (i0, 0, 1)
    randint (tc, 0, 5)
    if tc = 1 then
        color (red)
        c := "corrupt"
        cc := cc + 1
    else
        color (green)
        c := "clean"
    end if
    put i, i1, i2, i3, i4, i5, i6, i7, i8, i9, i0, "    ", i5, i2, i8, i6, i, i9, i4, i1, i3, i0, i7, "    ", i7, i3, i5, i1, i9, i, i2, i4, i6, i8, i0, "       file  ", fn, "   ", c
    delay (50)
    cls
end for
color (green)
put ""
put ""
put "Windows File Corruption Search"
put ""
put "Total Files Checked                1000"
put "Total Corrupt Files                ", cc
put "Total Clean Files                  ", (1000 - cc)
put ""
put "Clear Corrupt files?         (y/n) " ..
get cf
if cf = "y" then
    cls
    put "Corrupted files cleared"
    put "Files remaining               ", (1000 - cc)
    put ""
    put "Windows File Corruption System Complete"
else
    put ""
    put "Leaving Corrupted files on your system could damage your computer"
    put "Clear corrupted files another time to prevent damage to your computer"
end if



and the otehr one
code:
var i, i2, i4, i6, i8, i0, tc, fn, cc : int := 0
var i1, i3, i5, i7, i9 : int := 1
var c, cf : string
colorback (black)
color (green)
for count : 1 .. 1000
    fn := fn + 1
    randint (i, 0, 1)
    randint (i1, 0, 1)
    randint (i2, 0, 1)
    randint (i3, 0, 1)
    randint (i4, 0, 1)
    randint (i5, 0, 1)
    randint (i6, 0, 1)
    randint (i7, 0, 1)
    randint (i8, 0, 1)
    randint (i9, 0, 1)
    randint (i0, 0, 1)
    randint (tc, 0, 5)
    if tc = 1 then
        color (red)
        c := "corrupt"
        cc := cc + 1
    else
        color (green)
        c := "clean"
    end if
    put i, i1, i2, i3, i4, i5, i6, i7, i8, i9, i0, "    ", i5, i2, i8, i6, i, i9, i4, i1, i3, i0, i7, "    ", i7, i3, i5, i1, i9, i, i2, i4, i6, i8, i0, "       file  ", fn, "   ", c
delay(50)
end for
color (green)
put ""
put ""
put "Windows File Corruption Search"
put ""
put "Total Files Checked                1000"
put "Total Corrupt Files                ", cc
put "Total Clean Files                  ", (1000 - cc)
put ""
put "Clear Corrupt files?         (y/n) " ..
get cf
if cf = "y" then
    cls
    put "Corrupted files cleared"
    put "Files remaining               ", (1000 - cc)
    put ""
    put "Windows File Corruption System Complete"
else
    put ""
    put "Leaving Corrupted files on your system could damage your computer"
    put "Clear corrupted files another time to prevent damage to your computer"
end if
Sponsor
Sponsor
Sponsor
sponsor
Boarder16




PostPosted: Sat Feb 21, 2004 3:11 pm   Post subject: (No subject)

n/m i figured it out thanks
Paul




PostPosted: Sat Feb 21, 2004 5:16 pm   Post subject: (No subject)

Figured out what? oh I don't get this program either, is it suppose to be part of some program?
Boarder16




PostPosted: Sat Feb 21, 2004 7:35 pm   Post subject: (No subject)

no that i get it was a thign that i psoted in the wrong topic lol sorry and no liek i said i was just bored... i make weird little programs liek that that seem liek a Windows thing ..in this one it loosk lie kit searches files named with 1's nad 0's and certain oens are randomly "corrupted" and then ucan "delete" them.. its has no use but it isneat lookin and i amde it Very Happy
Cervantes




PostPosted: Sat Feb 21, 2004 8:59 pm   Post subject: (No subject)

why not learn the file commands and try to make a program that does something useful Razz
Boarder16




PostPosted: Sat Feb 21, 2004 10:17 pm   Post subject: (No subject)

because i have no 'useful' program ideas..i actually started out today thinking of a 'useful' program idea but never got one..so i was so bored i made this Surprised
Paul




PostPosted: Sat Feb 21, 2004 10:23 pm   Post subject: (No subject)

lol, 1000 files, 150 corrupt, 850 not.
After fixing problems:
files remaining: 850
haha, your virus scanner thingy deletes all corrupt files...
the_short1




PostPosted: Sat Feb 21, 2004 10:50 pm   Post subject: (No subject)

totaly useless... weird....but i guess this could... .. satisfy ur boredom...

i made a couple like this but their too stupid to post on compsci....
(Just jmump around screen... disable clicking on window... post a bunch of msgs... realy stupid... )

heres an idea for something to do... Boarder16.

Find new and cool ways to clear your screen....
(not CLS) then u could post in my topic bout" cool ways to clear screen in app under source code....


or.... just make a virus hoax... that is always fun.... "Your computer has been infected by the meliisa virus"

Formating Drive C: (number) % complete
havea loading bar

make screen SHAKE with a bad visuall FLicker then continue formating bar


and the end... say "Just sh!ting u man"


HAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHHA
Sponsor
Sponsor
Sponsor
sponsor
Boarder16




PostPosted: Sun Feb 22, 2004 10:58 am   Post subject: (No subject)

ahhhh taht is sweet... that i dea rules..hahahahahah Laughing
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  [ 9 Posts ]
Jump to:   


Style:  
Search: