From 38bc355d47875b405c8977050e02d68329ee5ce8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 26 Jan 2000 20:48:26 +0100
Subject: [PATCH] First version -- only dummy functions.
Rev: src/modules/_Crypto/rsa.c:1.1
---
.gitattributes | 1 +
src/modules/_Crypto/rsa.c | 228 ++++++++++++++++++++++++++++++++++++++
2 files changed, 229 insertions(+)
create mode 100644 src/modules/_Crypto/rsa.c
diff --git a/.gitattributes b/.gitattributes
index 51f2ba5b07..90d7753a25 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -386,6 +386,7 @@ testfont binary
/src/modules/_Crypto/nt.c foreign_ident
/src/modules/_Crypto/pipe.c foreign_ident
/src/modules/_Crypto/rc4.c foreign_ident
+/src/modules/_Crypto/rsa.c foreign_ident
/src/modules/_Crypto/sha.c foreign_ident
/src/modules/_Crypto/test_crypto.pike foreign_ident
/src/modules/_Image_JPEG/Makefile.in foreign_ident
diff --git a/src/modules/_Crypto/rsa.c b/src/modules/_Crypto/rsa.c
new file mode 100644
index 0000000000..595adaa8e6
--- /dev/null
+++ b/src/modules/_Crypto/rsa.c
@@ -0,0 +1,228 @@
+/*
+ * $Id: rsa.c,v 1.1 2000/01/26 19:48:26 grubba Exp $
+ *
+ * Glue to RSA BSAFE's RSA implementation.
+ *
+ * Henrik Grubbström 2000-01-26
+ */
+
+#include "config.h"
+#include "global.h"
+#include "svalue.h"
+#include "program.h"
+
+#ifdef HAVE_B_RSA_PUBLIC_KEY_TYPE
+#define HAVE_RSA_LIB
+#endif /* HAVE_B_RSA_PUBLIC_KEY_TYPE */
+
+#ifdef HAVE_RSA_LIB
+
+#include <bsafe.h>
+
+RSCID("$Id: rsa.c,v 1.1 2000/01/26 19:48:26 grubba Exp $");
+
+void f_set_public_key(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_set_private_key(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_query_blocksize(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_rsa_pad(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_rsa_unpad(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_raw_sign(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_raw_verify(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_sign(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_verify(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_sha_sign(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_sha_verify(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_generate_key(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_encrypt(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_decrypt(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_set_encrypt_key(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_set_decrypt_key(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_crypt_block(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_rsa_size(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+void f_public_key_equal(INT32 args)
+{
+ pop_n_elems(args);
+ push_int(0);
+}
+
+#endif /* HAVE_RSA_LIB */
+
+/*
+ * Module linkage.
+ */
+
+void pike_rsa_init(void)
+{
+ /*
+ * start_new_program();
+ *
+ * add_storage();
+ *
+ * add_function();
+ * add_function();
+ * ...
+ *
+ * set_init_callback();
+ * set_exit_callback();
+ *
+ * program = end_c_program();
+ * program->refs++;
+ *
+ */
+#ifdef HAVE_RSA_LIB
+ start_new_program();
+
+ ADD_FUNCTION("set_public_key", f_set_public_key,
+ tFunc(tObj tObj,tObj), 0);
+
+ ADD_FUNCTION("set_private_key", f_set_private_key,
+ tFunc(tObj tOr(tArr(tObj),tVoid),tObj), 0);
+
+ ADD_FUNCTION("query_blocksize", f_query_blocksize,
+ tFunc(tNone, tInt), 0);
+
+ ADD_FUNCTION("rsa_pad", f_rsa_pad,
+ tFunc(tString tInt tOr(tMix,tVoid), tObj), 0);
+
+ ADD_FUNCTION("rsa_unpad", f_rsa_unpad,
+ tFunc(tObj tInt, tString), 0);
+
+ ADD_FUNCTION("raw_sign", f_raw_sign,
+ tFunc(tString, tObj), 0);
+
+ ADD_FUNCTION("raw_verify", f_raw_verify,
+ tFunc(tString tObj, tInt), 0);
+
+ ADD_FUNCTION("sign", f_sign,
+ tFunc(tString tProg tOr(tMix, tVoid), tObj), 0);
+
+ ADD_FUNCTION("verify", f_verify,
+ tFunc(tString tProg tObj, tInt), 0);
+
+ ADD_FUNCTION("sha_sign", f_sha_sign,
+ tFunc(tString tOr(tMix, tVoid), tString), 0);
+
+ ADD_FUNCTION("sha_verify", f_sha_verify,
+ tFunc(tString tString, tInt), 0);
+
+ ADD_FUNCTION("generate_key", f_generate_key,
+ tFunc(tInt tOr(tFunction, tVoid), tObj), 0);
+
+ ADD_FUNCTION("encrypt", f_encrypt,
+ tFunc(tString tOr(tMix, tVoid), tString), 0);
+
+ ADD_FUNCTION("decrypt", f_decrypt,
+ tFunc(tString, tString), 0);
+
+ ADD_FUNCTION("set_encrypt_key", f_set_encrypt_key,
+ tFunc(tArr(tObj), tObj), 0);
+
+ ADD_FUNCTION("set_decrypt_key", f_set_decrypt_key,
+ tFunc(tArr(tObj), tObj), 0);
+
+ ADD_FUNCTION("crypt_block", f_crypt_block,
+ tFunc(tString, tString), 0);
+
+ ADD_FUNCTION("rsa_size", f_rsa_size,
+ tFunc(tNone, tInt), 0);
+
+ ADD_FUNCTION("public_key_equal", f_public_key_equal,
+ tFunc(tObj, tInt), 0);
+
+ end_class("idea", 0);
+#endif /* HAVE_RSA_LIB */
+}
+
+void pike_rsa_exit(void)
+{
+}
--
GitLab