From 9c10ada9060c9745f49652469e172be8152f6cad Mon Sep 17 00:00:00 2001
From: Mike Macgirvin <mike@macgirvin.com>
Date: Wed, 6 Oct 2010 21:13:15 -0700
Subject: salmon-magic-public-freaking-nasty-keys

---
 mod/modexp.php | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 mod/modexp.php

(limited to 'mod/modexp.php')

diff --git a/mod/modexp.php b/mod/modexp.php
new file mode 100644
index 000000000..d424b4c39
--- /dev/null
+++ b/mod/modexp.php
@@ -0,0 +1,33 @@
+<?php
+
+include('library/asn1.php');
+
+function modexp_init(&$a) {
+
+	if($a->argc != 2)
+		killme();
+
+	$nick = $a->argv[1];
+	$r = q("SELECT `pubkey` FROM `user` WHERE `nickname` = '%s' LIMIT 1",
+			dbesc($nick)
+	);
+
+	if(! count($r))
+		killme();
+
+	$lines = explode("\n",$r[0]['pubkey']);
+	unset($lines[0]);
+	unset($lines[count($lines)]);
+	$x = base64_decode(implode('',$lines));
+
+	$r = ASN_BASE::parseASNString($x);
+
+	$m = $r[0]->asnData[1]->asnData[0]->asnData[0]->asnData;
+	$e = $r[0]->asnData[1]->asnData[0]->asnData[1]->asnData;
+
+	header("Content-type: application/magic-public-key");
+	echo 'RSA' . '.' . $m . '.' . $e ;
+
+	killme();
+
+}
\ No newline at end of file
-- 
cgit v1.2.3