Local $sDBFile = @ScriptDir & "PW.txt"
    Local $sItem
    Local $hFile = FileOpen($sDBFile, 2)
    Local $PW = "Passwort"
    Local $Crypt = _Crypt_HashData($PW, $CALG_MD5)
    FileWrite($hFile, $Crypt)
    MsgBox(0,"",$Crypt)
    FileClose($hFile)