что мешает написать примерно такое:

R. Averkov 10.03.2005 12:22 / 10.03.2005 12:26

@crypt[password;salt_start;salt_body]
^switch[$salt_body]{

    ^case[constant]{
#       в результате -- постоянная строка
        $result[constant_string]
    }

    ^case[this]{
#       в результате -- исходный password
        $result[$password]
    }

    ^case[DEFAULT]{
#       в результате -- нормальный хеш
        $result[^math:crypt[$password;${salt_start}${salt_body}]]
    }
}