Import of old SSLeay release: SSLeay 0.9.0b

[openssl.git] / perl / y.pl

diff --git a/perl/y.pl b/perl/y.pl
new file mode 100644 (file)
index 0000000..e869460
--- /dev/null
+++ b/perl/y.pl
@@ -0,0 +1,7 @@
+#!/usr/local/bin/perl
+use ExtUtils::testlib;
+use SSLeay;
+
+$message=SSLeay::BN::dec2bn("936345681743241125150760694794510965960940252288797108931456691368672287489405603308617928680920874760917824938589009714909675985261365549781893129784821682998948722");
+
+print $message->bn2hex."\n";