- if ($message =~ /^crypt(\s+(.*))?$/i) {
- my @args = split /\s+/, $2;
-
- if (!scalar @args or scalar @args > 2) {
- &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($args[1], $args[0]) );
+ if ($message =~ /^crypt\s+(\S*)?\s*(.*)?$/i) {
+&status("crypt: $1:$2:$3");
+ if ("$2" ne '') {
+ &performStrictReply(crypt($2, $1));