« previous next »
Pages: [1] 2 3 ... 8   Go Down

Author Topic: Simple yet useful virus  (Read 29805 times)

0 Members and 2 Guests are viewing this topic.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Simple yet useful virus
« on: October 28, 2010, 04:12:27 pm »
Here is a small virus I did to help me learn TI Basic.

It's not a virus because it does NOTHING, just scares the user, try it, it won't hurt, or you may try in WabbitEmu too :)

Now, how do I set a program to be in autorun? A TI Basic program? Thanks a lot.

« Last Edit: October 28, 2010, 04:12:45 pm by ScoutDavid »
Logged

Offline squidgetx

  • Food.
  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1881
  • Rating: +503/-17
  • rawr.
    • View Profile
Re: Simple yet useful virus
« Reply #1 on: October 28, 2010, 04:15:42 pm »
porque casi todo es en espanol? my bad it's portugese. close enough.

What do you mean by autorun?
« Last Edit: October 28, 2010, 04:17:09 pm by squidgetx »
Logged

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Simple yet useful virus
« Reply #2 on: October 28, 2010, 04:16:40 pm »
Quote from: squidgetx on October 28, 2010, 04:15:42 pm
porque casi todo es en espanol?

What do you mean by autorun?

Not Spanish, Portuguese, I may do an English file in a few minutes.

Autorun: run everytime you turn the calculator on ;)

Should I use this?

http://education.ti.com/educationportal/sites/US/productDetail/us_startup_83_84.html
« Last Edit: October 28, 2010, 04:18:26 pm by ScoutDavid »
Logged

Offline Happybobjr

  • James Oldiges
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2325
  • Rating: +128/-20
  • Howdy :)
    • View Profile
Re: Simple yet useful virus
« Reply #3 on: October 28, 2010, 04:18:10 pm »
« Last Edit: October 28, 2010, 04:18:42 pm by happybobjr »
Logged
School: East Central High School
 
Axe: １.０.0
TI-84 +SE  ||| OS: 2.53 MP (patched) ||| Version: "M"
TI-Nspire    |||  Lent out, and never returned
____________________________________________________________

Offline squidgetx

  • Food.
  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1881
  • Rating: +503/-17
  • rawr.
    • View Profile
Re: Simple yet useful virus
« Reply #4 on: October 28, 2010, 04:20:59 pm »
Right.
Logged

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Simple yet useful virus
« Reply #5 on: October 28, 2010, 04:25:01 pm »
Code: [Select]
:ClrHome
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Output(1,1,".
:Output(1,2,".
:Output(1,3,".
:Output(1,4,".
:Output(1,5,".
:Output(1,6,".
:Pause
:Output(2,1,"VIRUS
:Pause
:Output(3,1,".
:Output(3,2,".
:Output(3,3,".
:Output(3,4,".
:Output(3,5,".
:Output(3,6,".
:Pause
:Output(4,1,"DELETING MEMORY...
:Pause
:Output(5,1,".
:Output(5,2,".
:Output(5,3,".
:Output(5,4,".
:Output(5,5,".
:Output(5,6,".
:Pause
:Pause
:Output(6,1,"DELETING FILES ...
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause
:Pause

English version uploaded :)

BTW, i call it game for my friends to 'play'...
Logged

Offline Happybobjr

  • James Oldiges
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2325
  • Rating: +128/-20
  • Howdy :)
    • View Profile
Re: Simple yet useful virus
« Reply #6 on: October 28, 2010, 04:38:08 pm »
optimization....

for(A,0,50
pause
end.


;)
Logged
School: East Central High School
 
Axe: １.０.0
TI-84 +SE  ||| OS: 2.53 MP (patched) ||| Version: "M"
TI-Nspire    |||  Lent out, and never returned
____________________________________________________________

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Simple yet useful virus
« Reply #7 on: October 28, 2010, 04:40:37 pm »
Quote from: happybobjr on October 28, 2010, 04:38:08 pm
optimization....

for(A,0,50
pause
end.


;)

I thought about loops of course, but I tried this with no sucess:

Code: [Select]
0 -> A
While A <5
Pause
or

Code: [Select]
0 -> A
While A <5
Disp "Virus"
Logged

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Simple yet useful virus
« Reply #8 on: October 28, 2010, 04:43:25 pm »
lol, I remember my first virus:
Code: [Select]
:ClrHome
:ZStandard
:Text(-1,0,5,"PACMAN!
:Horizontal 6
:Text(30,10,"Play- Enter
:Text(40,10,"Quit- Clear
:Pause
:RclPic 1 (which is a fake RAM cleared screen)
:999->dim(L1
:999->dim(L2
:SortA(L1,L2
:SortD(L1,L2
which causes no harm, and another one which does.  :P

Code: [Select]
PROGRAM: ASM
:AsmPrgm
:C7
Code: [Select]
:ClrHome
:ZStandard
:Text(-1,0,5,"PACMAN!
:Horizontal 6
:Text(30,10,"Play- Enter
:Text(40,10,"Quit- Clear
:Pause
:Asm(prgmASM

but I never did this to anyone who programed.  ;)

Quote from: ScoutDavid on October 28, 2010, 04:40:37 pm
Quote from: happybobjr on October 28, 2010, 04:38:08 pm
optimization....

for(A,0,50
pause
end.


;)

I thought about loops of course, but I tried this with no sucess:

Code: [Select]
0 -> A
While A <5
Pause
or

Code: [Select]
0 -> A
While A <5
Disp "Virus"

you have to increment it:  ;)
Code: [Select]
:0->A
:While A<5
:A+1->A
:Pause
:End
« Last Edit: October 28, 2010, 04:44:58 pm by yunhua98 »
Logged

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline Happybobjr

  • James Oldiges
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2325
  • Rating: +128/-20
  • Howdy :)
    • View Profile
Re: Simple yet useful virus
« Reply #9 on: October 28, 2010, 04:44:32 pm »
mine will work.  If not on nspire.



c7?
« Last Edit: October 28, 2010, 04:45:25 pm by happybobjr »
Logged
School: East Central High School
 
Axe: １.０.0
TI-84 +SE  ||| OS: 2.53 MP (patched) ||| Version: "M"
TI-Nspire    |||  Lent out, and never returned
____________________________________________________________

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Simple yet useful virus
« Reply #10 on: October 28, 2010, 04:50:17 pm »
Its machine code for simulating pulling a battery.  along with C8

ironically, C4 works too.  XD
Logged

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Simple yet useful virus
« Reply #11 on: October 28, 2010, 06:38:17 pm »
Code: (Optimized) [Select]
ClrHome
For(A,0,13
Pause
End
Pause "......
Pause
Pause "VIRUS
Pause
Pause "......
Pause
Pause "DELETING MEMORY...
Pause
Pause "......
Pause
Pause
Pause "DELETING FILES...
For(A,0,41
Pause
End
Phew, been awhile since I've messed with any code. But I think that's as optimized as it gets. I believe it gives the same results, more or less, but I never tested and I couldn't compare because the file you uploaded doesn't work. (I'm going to guess you modified it with SourceCoder?)

For loops, ya, you need to manually increment the variable and have a closing End command. So...

Code: [Select]
DelVar AWhile A<5
Pause
A+1→A
End
...should work.
Logged
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Simple yet useful virus
« Reply #12 on: October 28, 2010, 06:39:33 pm »
RandM(50,50

While this runs, it disables ON break, and it takes almost a minute to finish.
Logged

Offline JustCause

  • CoT Emeritus
  • LV8 Addict (Next: 1000)
  • *
  • Posts: 810
  • Rating: +115/-5
    • View Profile
Re: Simple yet useful virus
« Reply #13 on: October 28, 2010, 06:43:00 pm »
Code: [Select]
:999->dim(L1
:Fill(0,L1
:SortD(L1
Disables ON for quite a long time. Colloquially known as the "Bunny Virus."
Logged
See you, space cowboy...

Offline ztrumpet

  • The Rarely Active One
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5712
  • Rating: +364/-4
  • If you see this, send me a PM. Just for fun.
    • View Profile
Re: Simple yet useful virus
« Reply #14 on: October 28, 2010, 06:44:25 pm »
Quote from: JustCause on October 28, 2010, 06:43:00 pm
Code: [Select]
:999->dim(L1
:Fill(0,L1
:SortD(L1
Disables ON for quite a long time. Colloquially known as the "Bunny Virus."
Fill it to E99 to make it take even longer! ;D
Logged
Pages: [1] 2 3 ... 8   Go Up
« previous next »