From 19305f351668cb0cbf9b3909c3116acf0f891db2 Mon Sep 17 00:00:00 2001
From: David Bors <daviddvd267@gmail.com>
Date: Mon, 19 Aug 2019 11:53:23 +0300
Subject: [PATCH] Haskell version. (#30)

Adde haskell version
---
 pwned.hs | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 pwned.hs

diff --git a/pwned.hs b/pwned.hs
new file mode 100644
index 0000000..92ac2a0
--- /dev/null
+++ b/pwned.hs
@@ -0,0 +1,51 @@
+-- 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!"