- if ($message =~ /^crypt(\s+(.*))?$/i) {
- # Sorry, its messy, but it seems to work now. Added $salt and $ciphertext -- troubled
- my $salt;
- my $ciphertext;
- ($salt, $ciphertext) = split /\s+(.*)$/, $2;
- my @args = split /\s+/, $2;
-
- # Original was > 2 and thus only allowed 1 word to be passed to crypt.
- # Although now it will crypt to random salt if only 1 param -- troubled
- if (!scalar @args or scalar @args < 1) {
- &help("crypt");
- return;
- }
-
- if (scalar @args >= 2) {
-# disable cause $1$ will use md5
-# if (length $args[0] != 2) {
-# &msg($who, "invalid format...");
-# return;
-# }
-
- &performStrictReply( crypt($ciphertext, $salt) );
+ if ($message =~ /^crypt\s+(\S*)?\s*(.*)?$/i) {
+&status("crypt: $1:$2:$3");
+ if ("$2" ne '') {
+ &performStrictReply(crypt($2, $1));