if (crypt($guess,$real) eq $real)
{
     # ...
}