Changeset 10271 for lang/perl/Crypt-DH-GMP

Timestamp:

04/24/08 12:20:12 (5 years ago)

Author:

daisuke

Message:

Add binary two's complement hack, so we can use it from Net::OpenID::Consumer

Location:

lang/perl/Crypt-DH-GMP/trunk

Files:

• GMP.xs (modified) (7 diffs)
• t/01-dh.t (modified) (1 diff)
• t/99-binhack.t (added)

lang/perl/Crypt-DH-GMP/trunk/GMP.xs

@@ -30 +30 @@
 
 static inline
-char *DH_mpz2sv_str(mpz_t *v, unsigned int base)
+char *DH_mpz2sv_str(mpz_t *v, unsigned int base, unsigned int *length)
 {
     STRLEN len = 0;
@@ -43 +43 @@
         Renew(buf, len - 1, char); /* got one shorter than expected */
     }
+
+    if (length != NULL)
+        *length = len;
+
     return buf;
 }
@@ -108 +112 @@
         mpz_init_set_str(mpz_pub_key, pub_key, 0);
         mpz_powm(mpz_ret, mpz_pub_key, DH_PRIVKEY(dh), DH_P(dh));
-        RETVAL = DH_mpz2sv_str(&mpz_ret, 10);
+        RETVAL = DH_mpz2sv_str(&mpz_ret, 10, NULL);
         mpz_clear(mpz_ret);
         mpz_clear(mpz_pub_key);
@@ -118 +122 @@
         DH_gmp_t *dh;
     CODE:
-        RETVAL = DH_mpz2sv_str(DH_PRIVKEY_PTR(dh), 10);
+        RETVAL = DH_mpz2sv_str(DH_PRIVKEY_PTR(dh), 10, NULL);
     OUTPUT:
         RETVAL
@@ -126 +130 @@
         DH_gmp_t *dh;
     CODE:
-        RETVAL = DH_mpz2sv_str(DH_PUBKEY_PTR(dh), 10);
+        RETVAL = DH_mpz2sv_str(DH_PUBKEY_PTR(dh), 10, NULL);
+    OUTPUT:
+        RETVAL
+
+char *
+DH_gmp_pub_key_twoc(dh)
+        DH_gmp_t *dh;
+    PREINIT:
+        unsigned int len = 0;
+        unsigned int pad = 0;
+        char *buf;
+    CODE:
+        buf = DH_mpz2sv_str(DH_PUBKEY_PTR(dh), 2, &len);
+        pad = (8 - len % 8);
+        if (pad <= 0 && *buf == '1') {
+            pad = 8;
+        }
+
+        if (pad > 0) {
+            unsigned int ipad = 0;
+            char *tmp;
+            Newxz(tmp, len + pad, char);
+            for (ipad = 0; ipad < pad; ipad++)
+                *(tmp + ipad) = '0';
+            Copy(buf, tmp + pad, len + 1, char);
+            Safefree(buf);
+            buf = tmp;
+        }
+        RETVAL = buf;
     OUTPUT:
         RETVAL
@@ -136 +168 @@
         STRLEN n_a;
     CODE:
-        RETVAL = DH_mpz2sv_str(DH_G_PTR(dh), 10);
+        RETVAL = DH_mpz2sv_str(DH_G_PTR(dh), 10, NULL);
         if (items > 1) {
             mpz_init_set_str( DH_G(dh), (char *) SvPV(ST(1), n_a), 0 );
@@ -149 +181 @@
         STRLEN n_a;
     CODE:
-        RETVAL = DH_mpz2sv_str(DH_P_PTR(dh), 10);
+        RETVAL = DH_mpz2sv_str(DH_P_PTR(dh), 10, NULL);
         if (items > 1) {
             mpz_init_set_str( DH_P(dh), (char *) SvPV(ST(1), n_a), 0 );

lang/perl/Crypt-DH-GMP/trunk/t/01-dh.t

@@ -22 +22 @@
            );
 
-=head1
-my $num = '10000000000000000001';
-my @try = ($num, Math::BigInt->new($num));
-push @try, Math::Pari->new($num) if $has_pari;
-for my $try (@try) {
-    my $type = 'any2bigint(' . (ref($try) || 'scalar') . ')';
-    my $val = Crypt::DH::_any2bigint($try);
-    ok($val, $type . ' returns a defined value');
-    is(ref($val), 'Math::BigInt', $type  . ' returns a Math::BigInt');
-    is($val->bstr, $num, $type . ' returns the correct value');
-}
-=cut
-
 for my $pg (@pgs) {
     my $dh1 = Crypt::DH::GMP->new(g => $pg->{g}, p => $pg->{p});