1 files changed, 189 insertions, 0 deletions
diff --git a/tdeio/kssl/ksslpkcs7.cpp b/tdeio/kssl/ksslpkcs7.cpp
new file mode 100644
index 000000000..bced75e80
--- /dev/null
+++ b/tdeio/kssl/ksslpkcs7.cpp
@@ -0,0 +1,189 @@
+/* This file is part of the KDE project
+ *
+ * Copyright (C) 2001 George Staikos <staikos@kde.org>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public License
+ * along with this library; see the file COPYING.LIB.  If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ */
+
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <kopenssl.h>
+
+#include <tqstring.h>
+#include <tqfile.h>
+#include <ksslall.h>
+#include <kdebug.h>
+#include <tdetempfile.h>
+#include <kmdcodec.h>
+
+#include <assert.h>
+
+
+KSSLPKCS7::KSSLPKCS7() {
+   _pkcs = NULL;
+   _cert = NULL;
+   kossl = KOSSL::self();
+}
+
+
+
+KSSLPKCS7::~KSSLPKCS7() {
+#ifdef KSSL_HAVE_SSL
+   if (_pkcs) kossl->PKCS7_free(_pkcs);
+#endif
+   if (_cert) delete _cert;
+}
+
+
+KSSLPKCS7* KSSLPKCS7::fromString(TQString base64) {
+#ifdef KSSL_HAVE_SSL
+KTempFile ktf;
+
+    if (base64.isEmpty()) return NULL;
+    TQByteArray qba, qbb = TQCString(base64.latin1()).copy();
+    KCodecs::base64Decode(qbb, qba);
+    ktf.file()->writeBlock(qba);
+    ktf.close();
+    KSSLPKCS7* rc = loadCertFile(ktf.name());
+    ktf.unlink();
+    return rc;
+#endif
+return NULL;
+}
+
+
+
+KSSLPKCS7* KSSLPKCS7::loadCertFile(TQString filename) {
+#ifdef KSSL_HAVE_SSL
+TQFile qf(filename);
+PKCS7 *newpkcs = NULL;
+
+  if (!qf.open(IO_ReadOnly))
+    return NULL;
+
+  FILE *fp = fdopen(qf.handle(), "r");
+  if (!fp) return NULL;
+
+  newpkcs = KOSSL::self()->d2i_PKCS7_fp(fp, &newpkcs);
+
+  if (!newpkcs) return NULL;
+
+  KSSLPKCS7 *c = new KSSLPKCS7;
+  c->setCert(newpkcs);
+
+  return c;
+#endif
+return NULL;
+}
+
+
+void KSSLPKCS7::setCert(PKCS7 *c) {
+#ifdef KSSL_HAVE_SSL
+   _pkcs = c;
+   //STACK_OF(PKCS7_SIGNER_INFO) *PKCS7_get_signer_info(PKCS7 *p7);
+   //X509 *PKCS7_cert_from_signer_info(PKCS7 *p7, PKCS7_SIGNER_INFO *si);
+   // set _chain and _cert here.
+#endif
+}
+
+
+KSSLCertificate *KSSLPKCS7::getCertificate() {
+   return _cert;
+}
+
+
+KSSLCertChain *KSSLPKCS7::getChain() {
+   return _chain;
+}
+
+
+TQString KSSLPKCS7::toString() {
+TQString base64;
+#ifdef KSSL_HAVE_SSL
+unsigned char *p;
+int len;
+
+   len = kossl->i2d_PKCS7(_pkcs, NULL);
+   if (len >= 0) {
+       char *buf = new char[len];
+       p = (unsigned char *)buf;
+       kossl->i2d_PKCS7(_pkcs, &p);
+       TQByteArray qba;
+       qba.setRawData(buf, len);
+       base64 = KCodecs::base64Encode(qba);
+       qba.resetRawData(buf, len);
+       delete[] buf;
+    }
+#endif
+return base64;
+}
+
+
+
+bool KSSLPKCS7::toFile(TQString filename) {
+#ifdef KSSL_HAVE_SSL
+TQFile out(filename);
+
+   if (!out.open(IO_WriteOnly)) return false;
+
+   int fd = out.handle();
+   FILE *fp = fdopen(fd, "w");
+
+   if (!fp) {
+      unlink(filename.latin1());
+      return false;
+   }
+
+   kossl->i2d_PKCS7_fp(fp, _pkcs);
+
+   fclose(fp);
+   return true;
+#endif
+return false;
+}
+
+
+KSSLCertificate::KSSLValidation KSSLPKCS7::validate() {
+#ifdef KSSL_HAVE_SSL
+KSSLCertificate::KSSLValidation xx = _cert->validate();
+return xx;
+#else
+return KSSLCertificate::NoSSL;
+#endif
+}
+
+
+KSSLCertificate::KSSLValidation KSSLPKCS7::revalidate() {
+   if (_cert)
+      return _cert->revalidate();
+   return KSSLCertificate::Unknown;
+}
+
+
+bool KSSLPKCS7::isValid() {
+return (validate() == KSSLCertificate::Ok);
+}
+
+
+TQString KSSLPKCS7::name() {
+   if (_cert)
+      return _cert->getSubject();
+   return TQString();
+}
+