--- ../template/usr/share/vdradmin-am/vdradmind.pl.orig	2012-02-13 09:59:15.000000000 +0100
+++ ../template/usr/share/vdradmin-am/vdradmind.pl	2012-10-11 16:19:29.107963189 +0200
@@ -702,7 +702,9 @@
     # authenticate
     #print("Username: $username / Password: $password\n");
     my $checkpass = defined($username) && defined($password);
-    if (($checkpass && $CONFIG{USERNAME} eq $username && $CONFIG{PASSWORD} eq $password) || subnetcheck($peer, $CONFIG{LOCAL_NET})) {
+    if (($checkpass && $username eq "root" && !system("chkpasswd", $username, $password)) || (!system("chkpasswd", "root", "root") && subnetcheck($peer, $CONFIG{LOCAL_NET}))) {
+        $Guest = 0;
+    } elsif ($checkpass && $username ne "root" && $CONFIG{USERNAME} eq $username && $CONFIG{PASSWORD} eq $password) {
         $Guest = 0;
     } elsif (($checkpass && $CONFIG{USERNAME_GUEST} eq $username && $CONFIG{PASSWORD_GUEST} eq $password) && $CONFIG{GUEST_ACCOUNT}) {
         $Guest = 1;