Autorun virus 감염 pc 간단하게 확인

usb를 연결하기전에 한번 확인하고 연결하자는 의미에서 만들어 봤습니다.

AutorunVirus의 몇가지 성질과 Autoit이라는 매크로 프로그램으로 제작되었습니다.

AutorunVirusPC Checker.exe

위 실행파일을 실행시키면 됩니다.

#NoTrayIcon
Global $szSName = 'PC - autorunVirus Check'

ProgressOn($szSName, '')
Local $Drive
For $i = 90 To 65 Step - 1
    $Drive = Chr($i) & ':'
    If DriveStatus($Drive) = 'INVALID' Then ExitLoop
Next
ConsoleWrite($Drive & @LF)

Local $sPath = @TempDir & '\' & $szSName
If FileExists($sPath) Then
    Local $i = 0, $var = $sPath
    Do
        $sPath = StringFormat('%s (%d)', $var, $i)
    Until Not FileExists($sPath)
EndIf
ProgressSet(0, '', 'Mount [' & $Drive & ']')

DirCreate($sPath)
RunWait(StringFormat('subst %s "%s"', $Drive, $sPath), @WorkingDir, @SW_HIDE)
ConsoleWrite(DriveGetDrive($Drive) & @LF)

Local $Init = TimerInit(), $diff, $len = 1000 * 30
Do
    $diff = TimerDiff($Init)
    Sleep(100)
    ProgressSet($diff / $len * 100, StringFormat('%d', ($len - $diff) / 1000))
Until $len < $diff
RunWait(StringFormat('subst %s /D', $Drive), @WorkingDir, @SW_HIDE)
ProgressOff()

If Not DirRemove($sPath) Then
    MsgBox(16, $szSName, '현재 PC에서는 autorun virus의 감염이 의심됩니다.', 10)
Else
    MsgBox(0, $szSName, '현재 PC에서는 autorun virus의 감염이 의심되지 않습니다.', 10)
EndIf
DirRemove($sPath, 1)