diff --git a/lib/Net/Jabber/Component.pm b/lib/Net/Jabber/Component.pm
index 079426a..ae25f46 100644
--- a/lib/Net/Jabber/Component.pm
+++ b/lib/Net/Jabber/Component.pm
@@ -219,7 +219,7 @@ sub _auth
     
     $self->{STREAM}->SetCallBacks(node=>undef);
 
-    $self->Send("<handshake>".Digest::SHA1::sha1_hex($self->{SESSION}->{id}.$args{secret})."</handshake>");
+    $self->Send("<handshake>".Digest::SHA::sha1_hex($self->{SESSION}->{id}.$args{secret})."</handshake>");
     my $handshake = $self->Process();
 
     if (!defined($handshake) ||
diff --git a/lib/Net/Jabber/Key.pm b/lib/Net/Jabber/Key.pm
index 200c919..809f1a4 100644
--- a/lib/Net/Jabber/Key.pm
+++ b/lib/Net/Jabber/Key.pm
@@ -103,10 +103,10 @@ sub new
     
     $self->{CACHE} = {};
 
-    if (eval "require Digest::SHA1")
+    if (eval "require Digest::SHA")
     {
         $self->{DIGEST} = 1;
-        Digest::SHA1->import(qw(sha1 sha1_hex sha1_base64));
+        Digest::SHA->import(qw(sha1 sha1_hex sha1_base64));
     }
     else
     {