sub simpelCrypt {
    my $p = @_;
(1)    my $salt = join '', ('.', '/', 0..9, 'A'..'Z','a'..'z')[rand 64, rand 64];

(2)    #my $salt  = ($p =~ /^(..)/);
    my $crypt = crypt($p, $salt);
    return $crypt;
}