Using cracklib from F#

cracklib-from-fsharp.fs

open System
open System.Runtime.InteropServices

[<DllImport("libcrack.so.2", CallingConvention=CallingConvention.Cdecl)>]
extern nativeint FascistCheck(string pw, string dictPath)

[<EntryPoint>]
let main argv =
    while true do
        Console.WriteLine "Enter a potential password:"
        let input = Console.ReadLine ()
        try
            let res = FascistCheck(input, "/var/cache/cracklib/cracklib_dict")
            let s = Marshal.PtrToStringAnsi res
            if String.IsNullOrEmpty s then
                Console.WriteLine "Acceptable"
            else
                Console.WriteLine s
        with
        | :? DllNotFoundException ->
            Console.Error.WriteLine "libcrack not installed."
    0