script problems again...

[GianAutoitprogrammer]

Hellow

I am having problem in this script, I just found it on g**gle

I dont know how to read all the virus definition file... it will only read the first line

of the virus definition...

the virus definition is MD5

I ve used the

FileReadline()

method but ut didnt work, maybe I am missing something?

the code and the program is attched below...

here is the code:

expandcollapse popup

#NoTrayIcon


$file = FileOpen(@Scriptdir & "\Virus.vdf", 0) ;filopen - opens the virus definition file
$MD5 = FileReadLine($file) ;filereadline
;$MD5 = FileReadLine(@Scriptdir & "\virus.gvd", 1)
$FileCount = 0
$var = DriveGetDrive("all")
if $MD5 <> "" Then ; <= I dont know what this means 
For $i = 1 to $var[0]
If DriveStatus($var[$i]) <> "NOTREADY"  Then ScanFolder($var[$i])
Next
MsgBox(64,"Done!","Folder Scan Complete.  Infected Files " & $FileCount & " ")
EndIf
Func ScanFolder($SourceFolder)
    Local $Search
    Local $File
    Local $FileAttributes
    Local $FullFilePath
    $Search = FileFindFirstFile($SourceFolder & "\*.*")
    While 1
        If $Search = -1 Then
            ExitLoop
        EndIf
        $File = FileFindNextFile($Search)
        If @error Then ExitLoop
        $FullFilePath = $SourceFolder & "\" & $File
        $FileAttributes = FileGetAttrib($FullFilePath)
        If StringInStr($FileAttributes,"D") Then
            ScanFolder($FullFilePath)
        Else
            if FileGetSize($FullFilePath) < 3000000 Then
            ToolTip($FullFilePath,0,0,"Scanning...",1)
            if md51($FullFilePath) = $MD5 then
                if md51($FullFilePath) <> "0" Then
                LogFile($FullFilePath)
          ProcessClose($File)

            FileDelete($FullFilePath)

            EndIf
            EndIf
        EndIf
        EndIf
    WEnd
    FileClose($Search)
    FileClose($file)
EndFunc

Func LogFile($FileName)
    FileWriteLine(@DesktopDir & "\Scan Result",$FileName)
    $FileCount += 1
    ToolTip($FileName,0,0)
EndFunc

Func MD51($N)
Dim $MD5Plugin
Dim $FileMD5
$MD5Plugin = PluginOpen(@ScriptDir & "\MD5Hash.dll")
$FileMD5 = MD5Hash($N,1,True)
Return $FileMD5
EndFunc

tnx in advanced

scanner.zip

[BrewManNH]

You only read the first line of the file because you only use the command FileReadLine once. I'm not sure what you're expecting that command to do, but as its name says it reads a line from a file.

[GianAutoitprogrammer]

does it means that I will use the

While 1
Wend

?

[BrewManNH]

You'd be better off reading the file to an array and looping through the array. Unless the file has a lot of data in it, because however you do it, this is going to take an obscenely long time to run if you plan of scanning every file against every line in the .vdf file.

If you're thinking this is going to be some kind of virus scanner, it won't be a very effective one. All you're doing is comparing the files on the drive with an MD5 hash that you have saved. Files on a computer change all the time, only .exe files will stay relatively the same unless updated.

[wakillon]

In the help File FileReadline function is used with a loop for read line by line,

why don't you use it ?