MD5 Hash Plug-in SHA-1

[solistic]

Very useful plugin. I am using the SHA-1 module in my app.

[zaldwaik]

I am using the MD5 DLL to write a program that finds duplicate files. However, in several instances the function returns 0 for the hash, although the file sent actually exists. The majority work fine, but because of this files with "0" hashes are found similar while in reality there are not. Some file names had french characters in their name. I wonder if there is a way to debug this. I am also not sure what the "true" and "1" mean in this call from my program

MD5Hash($Files[$i], 1, True)

Example file name that returns 0 for hash

My Music\divers artistes\20 Ans Nostalgie Française Disc 1\03 L'été indien.mp3

Thanks

[ptrex]

@zaldwaik

Maybe this can get you going : Duplicate Files Finder - MD5 Hash CheckSum

regards,

ptrex

[goldenix]

where is MD5Hash function?

After I run the md5 sample I get :

How can I use this to get md5 of a file? I want to make a check sum of my file.

: ==> Unknown function name.:
MsgBox(0, "Test MD5Hash.DLL", "String 'Test String':" & @TAB & MD5Hash("Test String",
MsgBox(0, "Test MD5Hash.DLL", "String 'Test String':" & @TAB & ^ ERROR

Edit: Ok I dont know what is the sample problem, it wont work, but this sample works fine: the speed is kind of slow tho:( it took 30 sec to checksum 1500 files total size 500 MB

But this seems to be the only UDF that actually works so I say Thank you!

$begin = TimerInit()

#compiler_plugin_funcs = MD5Hash

Dim $FileMD5
$MD5Plugin  = PluginOpen(@ScriptDir & "\MD5Hash.dll")   

;~ ------------------------------------------------------
    $path   = 'D:\temp\F1\Sumacher\'
    $search = FileFindFirstFile($path & "*.*")  

    ; Check if the search was successful
    If $search = -1 Then
        MsgBox(0, "Error", "No files/directories matched the search pattern")
        Exit
    EndIf
    While 1
        $file = FileFindNextFile($search) 
        If @error Then ExitLoop

        
        $FileMD5    = MD5Hash($path & $file,1,True)

        $dif = TimerDiff($begin)        
        ConsoleWrite($file & ' ' & $FileMD5 & ' ' & $dif/1000 & @CRLF)  

    WEnd

;~ ------------------------------------------------------

FileClose($search)
PluginClose($MD5Plugin)

$dif = TimerDiff($begin)

ConsoleWrite($dif/1000 & @CRLF)

Edited June 5, 2009 by goldenix

[Nuttapong]

Thank alot

[Melba23]

Nuttapong,

In future, please do not necro-post just to say thanks. Asking a valid question about the code is fine, but merely padding the thread is not.

M23

[wakillon]

@Melba

He just say thanks !

if you repress newcomers when they say thank you, what will you say when they ask something stupid ?

Please do not scare polite newbies, they are now so rares...

[Melba23]

wakillon,

I stand by my original post - necroing a 3 1/2-year old thread just to say thanks is not something to be encouraged. And if the poster is scared away by that very mild comment complete with "smiley", I have grave fears for their survival in the real world let alone the internet.

M23

[heryisme]

Where the Files,

I cant download the files,

Tq

[wakillon]

Where the Files,

I cant download the files,

Tq

All dll are in the FSHash.zip link in the first post.

[jtrout]

I am having the same issue as Goldenix. What am I doing wrong?

: ==> Unknown function name.:

MsgBox(0, "Test MD5Hash.DLL", "String 'Test String':" & @TAB & MD5Hash("Test String",

MsgBox(0, "Test MD5Hash.DLL", "String 'Test String':" & @TAB & ^ ERROR

Edited April 12, 2013 by jtrout