FILE SEARCH LOOK-A-LIKE

Boarder16 · **Posted:** Sat Feb 21, 2004 2:46 pm

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

Boarder16 · **Posted:** Sat Feb 21, 2004 3:11 pm

n/m i figured it out thanks

Paul · **Posted:** Sat Feb 21, 2004 5:16 pm

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

Boarder16 · **Posted:** Sat Feb 21, 2004 7:35 pm

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 · **Posted:** Sat Feb 21, 2004 8:59 pm

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

Boarder16 · **Posted:** Sat Feb 21, 2004 10:17 pm

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 · **Posted:** Sat Feb 21, 2004 10:23 pm

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

the_short1 · **Posted:** Sat Feb 21, 2004 10:50 pm

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

Boarder16 · **Posted:** Sun Feb 22, 2004 10:58 am

ahhhh taht is sweet... that i dea rules..hahahahahah Laughing

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members