Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

n1vux (1492)

n1vux
  (email not shown publicly)
http://boston.pm ... x.cgi?BillRicker
AOL IM: n1vux (Add Buddy, Send Message)
Yahoo! ID: n1vux (Add User, Send Message)

Only started with Perl4 and Perl5 in 1995. I was doing AWK etc for 12 years before that, and resisted switching. I've been doing OO since before C++ hit bigtime, with Objective-C and SmallTalk, so I really like the (no longer new) Perl5 OO style; and the Lispish Map style is also an old friend. What do I hack with Perl? All data that passes my way; systems monitoring scripts at $DayJob, weather data at night, and I cheat on NPR word puzzles. Member: Boston.pm.org [pm.org] BLU.org [blu.org] /. LinkedIn [linkedin.com]

N1VUX is my FCC-issued ham radio callsign.

Journal of n1vux (1492)

Tuesday May 10, 2005
04:33 PM

Verifcation of RSA-200 Factorization

[ #24616 ]
A simple Perl script (using Math::BigInt) confirms that the product of the two factors exhibited is indeed RSA200 as shown. I can not at this time confirm the two factors are prime, but I would trust RSA to have verified that before the original challenge.

#! perl

use strict;
use warnings;

use Math::BigInt;

my $rsa200="27997833911221327870829467638722601621070446786955428537560009929326128 40010760934567105295536085606182235191095136578863710595448200657677509858055761 3579098734950144178863178946295187237869221823983";
#  (200 digits, checksum = 213598)
my $product="27_997_833_911_221_327_870_829_467_638_722_601_621_070_446_786_955_428 _537_560_009_929_326_128_400_107_609_345_671_052_955_360_856_061_822_351_910_951 _365_788_637_105_954_482_006_576_775_098_580_557_613_579_098_734_950_144_178_863 _178_946_295_187_237_869_221_823_983";
my $x="3_532_461_934_402_770_121_272_604_978_198_464_368_671_197_400_197_625_023_64 9_303_468_776_121_253_679_423_200_058_547_956_528_088_349";
my $y="7_925_869_954_478_333_033_347_085_841_480_059_687_737_975_857_364_219_960_73 4_330_341_455_767_872_818_152_135_381_409_304_740_185_467";

$product=Math::Bi gInt->new($product);
$x= Math::BigInt->new($x);
$y= Math::BigInt->new($y);

my $xy= $x->copy()->bmul($y);

my $cmp= $product->bcmp($xy);

print "Equal\n" unless $cmp;
print "Equal rsa200 = product" unless Math::BigInt->new($rsa200)->bcmp($product);

The Announcement of the new factoring record was posted on a mailing list, archived in France on a records page now mirrored at the Factoring Records Homepage as RSA200.

I cited the above in comment to the WikiNews discussion of the story Two hundred digit number factored-- which they are apparently first outside the Factory community to carry. (Slashdot got it from WikiNews.)

(I used an independent copy of the RSA200 number to verify authenticity.)

IAAAM, Bill / N1VUX
I am an Apostate mathematician ...
I work went over to the darkside of *Software*

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.