#original-date: 9.03.2008 Sun
#original-time: 11:06 PM
#original-day: 2783
#original-host: WinXP Prof SP2 (Build 2600)
Код программы с Башорга, которая позволит общаться по сети, если всё отрублено ^_^ При этом не нужно держать зоопарк вирусов, достаточно тестового вируса, который ни чего не делает, но детектриуется.
Option Explicit
'====================================================================
Public Sub Main()
Dim hFile As VB_FILE_NUMBER
Dim FileName As BStr
Const EICAR = "X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"
If Command = "" Then
FileName = "EICAR.COM"
Else
FileName = Command
FileName = Replace(FileName, """", "'")
FileName = Replace(FileName, ":", " ")
FileName = Replace(FileName, "/", "-")
FileName = Replace(FileName, "\", "-")
FileName = Replace(FileName, "|", "-")
End If
On Error Resume Next
hFile = FreeFile
Open FileName For Output Lock Read Write As #hFile
Print #hFile, EICAR
Close #hFile
End Sub
Программа создаёт файл с именем из командной строки. В командной строке может быть всё что угодно, любой текст - антивирус выведет имя заражённого файла так, что собеседник прочитает его как сообщение. Если командная строка пуста, файл будет зваться EICAR.COM.
#music: Shinkichi Mitsumune\Utena OST 5 Disc 1\Confession