diff --git a/.gitattributes b/.gitattributes
index 4f158de9a4c0e0a156ce174e6100cb83ee00b608..4b2061237bfbbabb3bd961f86154798e121740c3 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -35,7 +35,6 @@ testfont binary
 /lib/modules/LR.pmod/scanner.pike foreign_ident
 /lib/modules/MIME.pmod foreign_ident
 /lib/modules/SSL.pmod/alert.pike foreign_ident
-/lib/modules/SSL.pmod/asn1.pmod foreign_ident
 /lib/modules/SSL.pmod/cipher.pike foreign_ident
 /lib/modules/SSL.pmod/connection.pike foreign_ident
 /lib/modules/SSL.pmod/constants.pike foreign_ident
diff --git a/lib/modules/SSL.pmod/asn1.pmod b/lib/modules/SSL.pmod/asn1.pmod
deleted file mode 100644
index 3b86991515edcf2629d16e8d3cf44952c1d19d2e..0000000000000000000000000000000000000000
--- a/lib/modules/SSL.pmod/asn1.pmod
+++ /dev/null
@@ -1,120 +0,0 @@
-/* asn1.pmod.pike
- *
- * Rudimentary support for decoding ASN.1 encoded data.
- *
- * $Id: asn1.pmod,v 1.2 1997/08/26 05:48:13 nisse Exp $
- */
-
-/* BER decoder
- *
- * Values are represented as arrays ({ tag, value }).
- * Tag is either an integer tag number, or a string, in case
- * the tag recognized.
- *
- * Values are strings, integers, or arrays */
-
-class ber_decode {
-  inherit ADT.struct;
-
-  array get_asn1()
-  {
-    int|string tag = get_int(1);
-    int len;
-    string contents;
-    mixed value;
-    
-#ifdef SSL3_DEBUG
-    werror(sprintf("decoding tag %x\n", tag));
-#endif
-    if ( (tag & 0x1f) == 0x1f)
-      throw( ({ "high tag numbers is not supported\n", backtrace() }) );
-    int len = get_int(1);
-    if (len & 0x80)
-      len = get_int(len & 0x7f);
-    
-#ifdef SSL3_DEBUG
-    werror(sprintf("len : %d\n", len));
-#endif
-    contents = get_fix_string(len);
-#ifdef SSL3_DEBUG
-    werror(sprintf("contents: %O\n", contents));
-#endif
-    value = contents; /* Default is no conversion */
-    if (tag & 0x20)
-    {
-      object seq = object_program(this_object())(contents);
-      value = ({ });
-      while(! seq->is_empty())
-      {
-	array elem = seq->get_asn1();
-#ifdef SSL3_DEBUG
-	// werror(sprintf("elem: %O\n", elem));
-#endif
-	value += ({ elem });
-      }
-    }
-    switch(tag & 0xdf)
-    {
-    case 1: /* Boolean */
-      if (strlen(contents) != 1)
-	throw( ({ "SSL.asn1: Invalid boolean value.\n", backtrace() }) );
-      tag = "BOOLEAN";
-      value = !!contents[0];
-      break;
-    case 2: /* Integer */
-      tag = "INTEGER";
-      value = Gmp.mpz(contents, 256);
-      if (contents[0] & 0x80)  /* Negative */
-	value -= Gmp.pow(256, strlen(contents));
-      break;
-    case 3: /* Bit string */
-      tag = "BIT STRING";
-      break;
-    case 4: /* Octet string */
-      tag = "OCTET STRING";
-      break;
-    case 5: /* Null */
-      if (strlen(contents))
-	throw( ({ "SSL.asn1: Invalid NULL value.\n", backtrace() }) );
-      tag = "NULL";
-      value = 0;
-      break;
-    case 6: /* Object id */
-    {
-      tag = "Identifier";
-      if (contents[0] < 120)
-	value = ({ contents[0] / 40, contents[0] % 40 });
-      else
-	value = ({ 2, contents[0] - 80 });
-      int index = 1;
-      while(index < strlen(contents))
-      {
-	int id = 0;
-	do
-	{
-	  id = id << 7 | (contents[index] & 0x7f);
-	} while(contents[index++] & 0x80);
-	value += ({ id });
-      }
-      break;
-    }
-    case 9: /* Real */
-      tag = "REAL";
-      break;
-    case 10: /* Enumerated */
-      tag = "ENUMERATED";
-      break;
-    case 16: /* Sequence */
-      tag = "SEQUENCE";
-      break;
-    case 17: /* Set */
-      tag = "SET";
-      break;
-    default: /* Keep numeric tag */
-      break;
-    }
-      
-    return ({ tag, value });
-  }
-}
-