diff --git a/Graphics/X11/Xauth.hsc b/Graphics/X11/Xauth.hsc
new file mode 100644
--- /dev/null
+++ b/Graphics/X11/Xauth.hsc
@@ -0,0 +1,48 @@
+module Graphics.X11.Xauth
+    (Xauth(..), familyLocal, familyWild, familyNetname,
+    familyKrb5Principal, familyLocalHost, getAuthByAddr) where
+
+#include <X11/Xauth.h>
+
+import Foreign
+import Foreign.C
+import Control.Monad (liftM2, zipWithM_)
+
+data Xauth = Xauth { xauthName, xauthData :: [CChar] } deriving (Show, Read)
+
+familyLocal, familyWild, familyNetname, familyKrb5Principal, familyLocalHost :: CUShort
+familyLocal         = #{const FamilyLocal}
+familyWild          = #{const FamilyWild}
+familyNetname       = #{const FamilyNetname}
+familyKrb5Principal = #{const FamilyKrb5Principal}
+familyLocalHost     = #{const FamilyLocalHost}
+
+foreign import ccall "X11/Xauth.h XauGetAuthByAddr"
+    xauGetAuthByAddr :: CUShort -> CUShort -> Ptr CChar -> CUShort -> Ptr CChar
+                         -> CInt -> Ptr CChar -> IO (Ptr Xauth)
+
+foreign import ccall "X11/Xauth.h XauDisposeAuth"
+    xauDisposeAuth :: Ptr Xauth -> IO ()
+
+getAuthByAddr :: CUShort -> [CChar] -> [CChar] -> [CChar] -> IO (Maybe Xauth)
+getAuthByAddr family address number atype
+ = withArray address $ \addr_p -> withArray number $ \num_p ->
+   withArray atype $ \atype_p -> do
+        res <- xauGetAuthByAddr family (slength address) addr_p (slength number)
+                             num_p (slength atype) atype_p
+        if res == nullPtr
+            then return Nothing
+            else do
+                name_p   <- #{peek Xauth, name}        res
+                name_len <- #{peek Xauth, name_length} res :: IO CUShort
+                data_p   <- #{peek Xauth, data}        res
+                data_len <- #{peek Xauth, data_length} res :: IO CUShort
+                x <- if or [nullPtr == name_p, nullPtr == data_p, data_len <= 0, name_len <= 0]
+                    then return $ Nothing
+                    else
+                        liftM2 ((Just .) . Xauth)
+                            (peekArray (fromIntegral name_len) name_p)
+                            (peekArray (fromIntegral data_len) data_p)
+                xauDisposeAuth res
+                return x
+ where slength x = fromIntegral $ length x
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,30 @@
+Copyright (c) 2008 Spencer Janssen
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+
+3. Neither the name of the author nor the names of his contributors
+   may be used to endorse or promote products derived from this software
+   without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR
+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
+ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,6 @@
+module Main (main) where
+
+import Distribution.Simple
+
+main :: IO ()
+main = defaultMain
diff --git a/Xauth.cabal b/Xauth.cabal
new file mode 100644
--- /dev/null
+++ b/Xauth.cabal
@@ -0,0 +1,15 @@
+name:           Xauth
+version:        0.1
+license:        BSD3
+license-file:   LICENSE
+copyright:      Spencer Janssen <spencerjanssen@gmail.com>
+maintainer:     Spencer Janssen <spencerjanssen@gmail.com>
+category:       Graphics
+synopsis:       A binding to the X11 authentication library
+description:    A Haskell binding to the X11 authentication library.
+exposed-modules:
+    Graphics.X11.Xauth
+extensions:     ForeignFunctionInterface, CPP
+build-depends:  base
+build-type:     Simple
+pkgconfig-depends: xau