Spoiler alert - don't read more of this comment if you want to solve it yourself. Almost all of the solution in Haskell (except for the bit about extracting th

Spoiler alert - don't read more of this comment if you want to solve it yourself. Almost all of the solution in Haskell (except for the bit about extracting the actual answer from the Javascript); it's probably not what they intended, since the job is for a web-dev, but most of us here are probably just doing it for fun. I found the bit about guessing what string was hashed to make the MD5 the hardest, because it was basically just pure brute force (I didn't know what timezone it was in or what date format was used - so the hint wasn't very helpful). import Network.URI import Network.HTTP import Data.Maybe import Data.Time.Clock.POSIX import Data.Time.LocalTime.TimeZone.Olson import Data.Time.LocalTime.TimeZone.Series import Data.Time.Clock import Data.Time.LocalTime import Data.Time.Calendar import Text.Printf import Control.Monad import Codec.Binary.Base64.String main = do -- Is there a more portable way to do this? pdtTZS <- getTimeZoneSeriesFromOlsonFile "/usr/share/zoneinfo/America/Los_Angeles" pdtTime <- liftM (utcToLocalTime' pdtTZS) getCurrentTime let next = printf "w%02d%02d" ((\(_, _, d) -> d) . toGregorian . localDay $ pdtTime) (todHour $ localTimeOfDay pdtTime) ts <- getPOSIXTime let str = urlEncodeVars [("pos", "solvepuzzle"), ("auth", show ts), ("msg", "SYN/ACK"), ("next", next)] r <- simpleHTTP (Request (fromJust $ parseURI "http://www.weebly.com/weebly/publicBackend.php") POST [Header HdrContentLength (show $ length str), Header (HdrCustom "X-Requested-With") "XMLHttpRequest", Header (HdrCustom "X-Prototype-Version") "1.7_rc1", Header HdrContentType "application/x-www-form-urlencoded"] str ) case r of Left err -> print err Right b -> do putStrLn (decode . rspBody $ b)