--- deliantra/Deliantra-Client/DC/Main.pm	2012/11/16 12:03:26	1.23
+++ deliantra/Deliantra-Client/DC/Main.pm	2012/11/17 10:40:09	1.24
@@ -977,7 +977,7 @@
          port => $port,
          create_login => $create,
          user => $PROFILE->{user},
-         pass => $PROFILE->{password},
+         pass => (pack "H*", $PROFILE->{password}),
          mapw => $mapw,
          maph => $maph,
 
@@ -1917,7 +1917,7 @@
       },
       on_changed => sub {
          my ($self, $value) = @_;
-         $PROFILE->{password} = Deliantra::Util::hash_pw $value
+         $PROFILE->{password} = pack "H*", Deliantra::Util::hash_pw $value
             if length $value && $value ne $nullpw;
          1
       },
@@ -3082,9 +3082,9 @@
          $PROFILE = $CFG->{profile}{$profile};
          $PROFILE->{host} ||= "gameserver.deliantra.net";
 
-         $PROFILE->{host}     = $args[0] if @args > 0;
-         $PROFILE->{user}     = $args[1] if @args > 1;
-         $PROFILE->{password} = $args[2] if @args > 2;
+         $PROFILE->{host}     =                                       $args[0] if @args > 0;
+         $PROFILE->{user}     =                                       $args[1] if @args > 1;
+         $PROFILE->{password} = unpack "H*", Deliantra::Util::hash_pw $args[2] if @args > 2;
 
          # convert old bindings (only default profile matters)
          if (my $bindings = delete $PROFILE->{bindings}) {