--- deliantra/server/ext/login.ext	2010/04/11 21:26:36	1.103
+++ deliantra/server/ext/login.ext	2010/04/22 12:50:24	1.104
@@ -305,7 +305,7 @@
          nuke_str $pass2;
 
          my $pl = cf::player::new $user;
-         $pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]);
+         $pl->password (crypt $pass, join '', ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[(cf::rndm 64), (cf::rndm 64)]);
          nuke_str $pass;
          $pl->connect ($ns);
          my $ob = $pl->ob;