Parallel brute force: Difference between revisions

Content added Content deleted
Line 826: Line 826:
hashed = hashWith SHA256 bStr
hashed = hashWith SHA256 bStr


searchWorker :: Chan [TestString] -> Chan (Encrypted, String) -> IO ()
searchWorker :: Chan [TestString] -> Chan (Encrypted, Decrypted) -> IO ()
searchWorker batchChan resultChan = forever (readChan batchChan >>= writeList2Chan resultChan . foldr findMatch [])
searchWorker batchChan resultChan = forever (readChan batchChan >>= writeList2Chan resultChan . foldr findMatch [])