52 lines
1.8 KiB
Haskell
52 lines
1.8 KiB
Haskell
-- FAIR License, Copyright (c) 2019 davidxbors
|
|
-- Usage of the works is permitted provided that this instrument is retained
|
|
-- with the works, so that any entity that uses the works is notified of this instrument
|
|
-- DISCLAIMER: THE WORKS ARE WITHOUT WARRANTY.
|
|
-- Usage: runghc pwned.hs <password that you want to try>
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import qualified Data.ByteString.Lazy as B
|
|
import Data.ByteString.Lazy.Char8 as Char8 (unpack)
|
|
import Network.HTTP.Conduit
|
|
import Crypto.Hash
|
|
import Data.ByteString (ByteString)
|
|
import Data.ByteString.Char8 as C (pack)
|
|
import Data.List.Split
|
|
import Data.Char
|
|
import System.Environment
|
|
|
|
get :: String -> IO B.ByteString
|
|
get url = simpleHttp url
|
|
|
|
up str = [toUpper char | char <- str]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
-- get the password from the command line args and make it a ByteString
|
|
args <- getArgs
|
|
let password = C.pack $ args !! 0
|
|
|
|
-- hashing the password
|
|
let hashedPassword = up . show $ hashWith SHA1 password
|
|
|
|
-- getting the first 5 bytes of the hash, and the rest of the hash in 2 separate variables
|
|
let ffive = take 5 hashedPassword
|
|
let lfive = drop 5 hashedPassword
|
|
|
|
-- get the data from the api
|
|
bodyy <- get $ "https://api.pwnedpasswords.com/range/" ++ ffive
|
|
let textFromBody = Char8.unpack $ bodyy
|
|
|
|
-- search for the hash and save it together with it's count
|
|
let lines = splitOn "\r\n" textFromBody
|
|
let hashes = [hash | hash <- lines, head (splitOn ":" hash) == lfive]
|
|
|
|
-- check if the hash was found and give a response to the user
|
|
if null hashes == True
|
|
then putStrLn $ "Your password has the hash: " ++ hashedPassword ++ " and hasn't been seen before!"
|
|
else do
|
|
let ourHash = head hashes
|
|
let noA = read ((splitOn ":" ourHash) !! 1) :: Integer
|
|
putStrLn $ "Your password has the hash: " ++ hashedPassword ++ " and has been seen " ++ show noA ++ " times before!"
|