Add $router_name and $transport_name variables. Bug 308.
[users/heiko/exim.git] / src / util / cramtest.pl
index 87b3eb451699c7841311bf792ea98f82b116ad65..cb70eb40461fc7c66e3b4eb72bc7e9e6b9e87b88 100755 (executable)
@@ -1,10 +1,9 @@
 #!/usr/bin/perl
 #!/usr/bin/perl
-# $Cambridge: exim/src/util/cramtest.pl,v 1.1 2004/10/07 10:39:03 ph10 Exp $
 
 
-# This script is contributed by Vadim Vygonets to aid in debugging CRAM-MD5 
-# authentication. 
+# This script is contributed by Vadim Vygonets to aid in debugging CRAM-MD5
+# authentication.
 
 
-# A patch was contributed by Jon Warbrick to upgrade it to use the Digest::MD5 
+# A patch was contributed by Jon Warbrick to upgrade it to use the Digest::MD5
 # module instead of the deprecated MD5 module.
 
 # The script prompts for three data values: a user name, a password, and the
 # module instead of the deprecated MD5 module.
 
 # The script prompts for three data values: a user name, a password, and the
 
 
 # Copyright (c) 2002
 
 
 # Copyright (c) 2002
-#      Vadim Vygonets <vadik-exim@vygo.net>.  All rights reserved.
+#       Vadim Vygonets <vadik-exim@vygo.net>.  All rights reserved.
 # Public domain is OK with me.
 
 use MIME::Base64;
 # Public domain is OK with me.
 
 use MIME::Base64;
-use DIGEST::MD5;
+use Digest::MD5;
 
 print "User: ";
 chop($user = <>);
 
 print "User: ";
 chop($user = <>);
@@ -38,15 +37,15 @@ $chal =~ s/^334 //;
 
 $context = new Digest::MD5;
 if (length($passwd) > 64) {
 
 $context = new Digest::MD5;
 if (length($passwd) > 64) {
-       $context->add($passwd);
-       $passwd = $context->digest();
-       $context->reset();
+        $context->add($passwd);
+        $passwd = $context->digest();
+        $context->reset();
 }
 
 @passwd = unpack("C*", pack("a64", $passwd));
 for ($i = 0; $i < 64; $i++) {
 }
 
 @passwd = unpack("C*", pack("a64", $passwd));
 for ($i = 0; $i < 64; $i++) {
-       $pass_ipad[$i] = $passwd[$i] ^ 0x36;
-       $pass_opad[$i] = $passwd[$i] ^ 0x5C;
+        $pass_ipad[$i] = $passwd[$i] ^ 0x36;
+        $pass_opad[$i] = $passwd[$i] ^ 0x5C;
 }
 $context->add(pack("C64", @pass_ipad), decode_base64($chal));
 $digest = $context->digest();
 }
 $context->add(pack("C64", @pass_ipad), decode_base64($chal));
 $digest = $context->digest();