Changeset 13188 for lang/perl/XMPP-Bomber/trunk

Timestamp:

06/04/08 13:07:37 (5 years ago)

Author:

daisuke

Message:

小山さん++

Files:

• lang/perl/XMPP-Bomber/trunk/lib/XMPP/Bomber/UserProvider/OpenFire/Random.pm (modified) (1 diff)

lang/perl/XMPP-Bomber/trunk/lib/XMPP/Bomber/UserProvider/OpenFire/Random.pm

@@ -123 +123 @@
     $sth->finish;
 
+    # All this encryption stuff was possible because of Oyama-san
+    # thank you thank you thank you
     my $iv = get_random(8);
     $key = Digest::SHA1::sha1($key);