--- deliantra/server/ext/login.ext	2012/02/03 03:01:44	1.117
+++ deliantra/server/ext/login.ext	2012/11/08 00:16:07	1.118
@@ -142,7 +142,9 @@
 sub compare_password($$) {
    my ($pass, $token) = @_;
 
-   if ($token =~ /\!(.*)/) {
+   if ($token =~ /!!(.*)/) {
+      return +(substr $pass, 0, 8) eq pack "H*", $1;
+   } elsif ($token =~ /!(.*)/) {
       return $pass eq pack "H*", $1;
    } else {
       return $token eq crypt $pass, $token;