From a6f148c4c72b0242ed11a52cf6b2ad30bbeb2028 Mon Sep 17 00:00:00 2001 From: "jrayhawk+piny.be@omgwallhack.org" Date: Wed, 27 Apr 2011 20:01:39 -0700 Subject: newuser.cgi: switching Convert::Base32 syntax over to MIME::Base32 syntax --- pinyweb/cgi-bin/newuser.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pinyweb/cgi-bin/newuser.cgi') diff --git a/pinyweb/cgi-bin/newuser.cgi b/pinyweb/cgi-bin/newuser.cgi index 0fad219..43c9178 100755 --- a/pinyweb/cgi-bin/newuser.cgi +++ b/pinyweb/cgi-bin/newuser.cgi @@ -27,11 +27,11 @@ if( $q->param("n") && $q->param("a") && $q->param("p") ) { my $code; if ( $q->param("h") ) { - $pass = $cipher->decrypt( decode_base32( $pass ) ); + $pass = $cipher->decrypt( MIME::Base32::decode( $pass ) ); $code = $auth->hash( { "n" => $q->param( "n" ), "a" => $q->param( "a" ), "p" => $pass } ); } else { $code = $auth->hash( { "n" => $q->param( "n" ), "a" => $q->param( "a" ), "p" => $pass } ); - $pass = encode_base32( $cipher->encrypt( $pass ) ); + $pass = MIME::Base32::encode( $cipher->encrypt( $pass ) ); }; if ( $q->param("h") && $q->param("h") eq $code ) { -- cgit v1.2.3