Bl_anti_autorun

[blue_life]

Flash belleklerin fiyatlarının düşmesiyle ülkemizde flah belleklerin kullanımı hızlı bir şekilde yaygınlaştı.
Bunun ile beraber virüslerin yayılmasıda flash bellekler sayesinde baya artmış durumda.
Gerçekten bu virüsler (autorun virüsleri) çok basit yöntemler ile bir çok bilgisyara kolaylıkla bulaşabilmektedir.

Bazı kullanıcılar basit önlemler ile bu virüslerden korunabiliyor...
Mesela ben güncel Nod32 antivürüs kullanıyorum ve ayrıca sürücülerimdeki autorun özelliğini kapattım.
Bu sayade autorun virüslerinden korunabiliyorum..
Geçenlerde bir arkadaşın yazdığı mesaj;

Konusu açılmışken bir nebze de benim tuzum olsun; tüm sabit disk ve taşınabilir sürücülerinize AUTORUN.INF isimli içinde de başka dosyalar olan bir klasör açıp, özelliklerini salt okunur + gizli (ya da cmd den örn: C:\>attrib AUTORUN.INF +s +r +h) yaparsanız aynı yerde aynı isimde tek bir dosya veya klasör olabileceğenden AUTORUN.INF mikrobuna bir nebze bağışıklık kazanmış olursunuz. Bunu eski bilgilerime dayanarak bir yıldan beridir uygulamaktayım. Bir bilgisayarda hangi yazılım olduğunu hatırlamadığım bir koruma yazılımı da aynı yöntemi kullanmış. Açtığı AUTORUN.INF adlı klasörün içindeki dosyaya düştüğü nottan anladım.

Yazdıkları bana çok mantıklı geldi. Bunun için ufak boyutlu bir autoit çalışması yaptım.
Program kısaca seçili sürücüde Autorun.inf adında bir kalasör oluşturuyor.
Ardından içerisine windows tarafından normal yöntemler ile silnemeyen bir kaç klasör oluşturup Autorun.inf klasörünün özelliklerin değiştiriyor. (Salt okunur + Sistem + Gizli yapıyor)
Bu kadar basit bir şey.

Ama gerçekten flash belleğinizde virüslerin autorun.inf dosyası oluşturmasını engelleyecektir.
İsterseniz yaptığınız değişiklikleri program üzerinden kaldırabilirsiniz...

http://www.fileswap.com/dl/lpFEA3oCRA/BL_ANTI_AUTORUN.zip.html

Sağlıcakla kalın.....

Edit:Link güncellendi!

Edited December 6, 2012 by blue_life

[Chezidek]

Deneyelım bakalım bılınclı olarak usb ye wrus attım bakalım alıcakmı usb ye wırusu

[BuRak2677]

Yardım edicek warmı yapamıorumm

edit : autorun.ini yi silip senın werdıgını kounca oldu sanırım sımdı wırus atıorum gırmıo usß ye

Edited December 13, 2009 by burc ugur

[Bultar]

Forumda 1 den fazla hesap yasaktır. Hele 6 hesap o dahada yasaktır. Banned.

Forumda 1 den fazla hesap yasaktır. Hele 6 hesap o dahada yasaktır. Banned.

[sevimliukala]

teşekkür ederim işime yarar kulanıp denicem

Edited December 13, 2009 by sevimliukala

[dloolb]

?

Edited December 13, 2012 by dloolb

[blue_life]

@dloolb

 

Linki güncelledim ama çok eski bir çalışma!

[blue_life]

Çok eski bir çalışma. Kodlama biraz acemice olabilir. Değişiklik yapmadan kodları aşağıda veriyorum...

 

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Keys.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_LegalCopyright=http://www.autoitscript.com/autoit3/
#AutoIt3Wrapper_Res_Description=BlueLife Autorun Virüs Protect
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Field=Author|BlueLife
#EndRegion
Anti_Auto()
Func Anti_Auto()
    Opt("GUIResizeMode", 802)
    Local $BGETDRIVE = DriveGetDrive("ALL"), $b, $Autorun_FL = "autorun.inf"
    Local $Anti_Gui = GUICreate("BlueLife Autorun Virüs Protect v1.0", 125, 35, -1, -1, BitOR(0x80880000, 0x00C00000)), $Anti_Gui1 = 10, $Anti_ALL, $ANTI_OK
    Local $All_DRV[28], $Aktiv_DRV, $CMD_PARAM, $ALL_CHECK = True
    If Not @error Then
        Local $AntiAuto[$BGETDRIVE[0] + 1]
        For $b = 1 To $BGETDRIVE[0]
            If DriveStatus($BGETDRIVE[$b]) = "READY" And DriveGetType($BGETDRIVE[$b]) <> "CDROM" Then
                If StringRight($BGETDRIVE[$b], 1) <> "\" Then $BGETDRIVE[$b] &= "\"
                $BGETDRIVE[$b] = StringUpper($BGETDRIVE[$b])
                $Aktiv_DRV = StringLeft($BGETDRIVE[$b], 1)
                $All_DRV[0] &= $Aktiv_DRV & ","
                $Aktiv_DRV = Asc($Aktiv_DRV) - 64
;~                 MsgBox(64,"",$Aktiv_DRV)
                $All_DRV[$Aktiv_DRV] = GUICtrlCreateCheckbox($BGETDRIVE[$b] & " " & DriveGetLabel($BGETDRIVE[$b]), 10, $Anti_Gui1, 97, 17)
                If FileExists($BGETDRIVE[$b] & "Autorun.inf") And StringInStr(FileGetAttrib($BGETDRIVE[$b] & "Autorun.inf"), "D") Then
                    GUICtrlSetState($All_DRV[$Aktiv_DRV], 1)
                Else
                    $ALL_CHECK = False
                EndIf
                $Anti_Gui1 += 20
            EndIf
        Next
        $Anti_ALL = GUICtrlCreateCheckbox("Hepsini Seç", 10, $Anti_Gui1 + 5, 97, 17)
        If $ALL_CHECK Then GUICtrlSetState($Anti_ALL, 1)
        $ANTI_OK = GUICtrlCreateButton("Uygula", 10, $Anti_Gui1 + 25, 110, 20, 0)
        $size = WinGetPos($Anti_Gui)
        WinMove($Anti_Gui, "", $size[0], $size[1], $size[2], $Anti_Gui1 + 80)
    EndIf
    GUISetState(@SW_SHOW)
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case - 3
                Exit
            Case $Anti_ALL
                For $I = 1 To 27
                    $Aktiv_DRV = Chr($I + 64)
                    If GUICtrlRead($Anti_ALL) = 1 Then
                        If StringInStr($All_DRV[0], $Aktiv_DRV) Then
                            GUICtrlSetState($All_DRV[$I], 1)
                        EndIf
                    Else
                        If StringInStr($All_DRV[0], $Aktiv_DRV) Then
                            GUICtrlSetState($All_DRV[$I], 4)
                        EndIf
                    EndIf
                Next
            Case $ANTI_OK
                For $I = 1 To 27
                    $Aktiv_DRV = Chr($I + 64)
                    $Autorun_FL = $Aktiv_DRV & ":\Autorun.inf"
                    If StringInStr($All_DRV[0], $Aktiv_DRV) Then
                        If GUICtrlRead($All_DRV[$I]) = 1 Then
                            If FileExists($Autorun_FL) And Not StringInStr(FileGetAttrib($Autorun_FL), "D") Then
                                FileSetAttrib($Autorun_FL, "-RSH")
                                FileMove($Autorun_FL, $Aktiv_DRV & ":\!Autorun.inf", 1)
                            EndIf
                            If Not FileExists($Autorun_FL) Then DirCreate($Autorun_FL)
                            If Not FileExists($Autorun_FL & "\\lpt1\\") Then DirCreate($Autorun_FL & "\\lpt1\\")
                            If Not FileExists($Autorun_FL & "\\lpt1\\lpt2\\") Then DirCreate($Autorun_FL & "\\lpt1\\lpt2\\")
                            If Not FileExists($Autorun_FL & "\\lpt1\\lpt2\\lpt3\\") Then DirCreate($Autorun_FL & "\\lpt1\\lpt2\\lpt3\\")
                            If Not FileExists($Autorun_FL & "\\lpt1\\lpt2\\lpt3\\BlueLife") Then FileWrite($Autorun_FL & "\\lpt1\\lpt2\\lpt3\\BlueLife", "BlueLife Autorun Virüs Protect v1.0")
                            FileSetAttrib($Autorun_FL & "\\lpt1\\lpt2\\lpt3\\BlueLife", "+RSH", 1)
                            FileSetAttrib($Autorun_FL, "+RSH", 1)
                        Else
                            If FileExists($Autorun_FL) And StringInStr(FileGetAttrib($Autorun_FL), "D") Then
                                If FileExists($Autorun_FL & "\\lpt1\\lpt2\\lpt3\\") Then $CMD_PARAM = " RD /S /Q " & $Autorun_FL & "\\lpt1\\lpt2\\lpt3\\"
                                If FileExists($Autorun_FL & "\\lpt1\\lpt2\\") Then $CMD_PARAM &= " && RD /S /Q " & $Autorun_FL & "\\lpt1\\lpt2\\"
                                If FileExists($Autorun_FL & "\\lpt1\") Then $CMD_PARAM &= " && RD /S /Q " & $Autorun_FL & "\\lpt1\\"
                                If FileExists($Autorun_FL) Then $CMD_PARAM &= " && RD /S /Q " & $Autorun_FL
                                If StringLeft($CMD_PARAM, 3) = " &&" Then $CMD_PARAM = StringTrimLeft($CMD_PARAM, 3)
                                MsgBox(64,"",$CMD_PARAM)
                                ClipPut($CMD_PARAM)
                                RunWait(@ComSpec & " /c" & $CMD_PARAM, "", @SW_HIDE)
                            EndIf
                        EndIf
                    EndIf
                Next
                MsgBox(64,"BlueLife Autorun Virüs Protect v1.0","Seçili ayarlar uygulandı",0,$Anti_Gui)
        EndSwitch
    WEnd
EndFunc   ;==>Anti_Auto
Exit