Parallel brute force: Difference between revisions

Line 795:

<lang haskell>import Control.Concurrent (forkIO, setNumCapabilities)

import Control.Concurrent.Chan (Chan, newChan, readChan, writeList2Chan)

import Control.Monad (replicateM, ~~forever~~, ~~replicateM_~~)

import Control.Monad (replicateM, replicateM_, forever)

import Crypto.Hash (SHA256(..), Digest, hashWith)

import Data.Bifunctor (first)

import Data.ByteString (pack)

import Data.ByteString (ByteString, pack)

import Data.Char (isDigit)

import Data.List.Split (chunksOf)

Line 818:

chunks = chunksOf (10^3) $ replicateM 5 [97..122]

findMatch :: [TestString] -> [(Encrypted, Decrypted)]

findMatch :: TestString -> [(Encrypted, Decrypted)] -> [(Encrypted, Decrypted)]

findMatch [] ~~= []~~

findMatch w acc

| hashed `elem` hashedValues = (hashed, show bStr):acc

findMatch (x:xs)

| otherwise = acc

| hashed `elem` hashedValues = (hashed, show bStr):~~findMatch xs~~

| otherwise = ~~findMatch xs~~

where

bStr = pack x

bStr = pack w

hashed = hashWith SHA256 bStr

searchWorker :: Chan [TestString] -> Chan (Encrypted, String) -> IO ()

searchWorker batchChan resultChan = forever (readChan batchChan >>= writeList2Chan resultChan . findMatch)

searchWorker batchChan resultChan = forever (readChan batchChan >>= writeList2Chan resultChan . foldr findMatch [])

parseInput :: [String] -> Int

parseInput [] = 2