1、在.net下新建一个类库，再添加一个类文件

2、定义一个接口，并给接口添加一个GUID

[Guid("47E62378-B300-43f6-BDB4-0DEAC60F8EB6")]
public interface IEncrypt
{
 string MyEncoding(string ss);
 string MyDecoding(string ss);
}

3.实现接口

[Guid("532FF790-079A-4e2b-AB1E-6DFC7E1DFD21")]
 public class MyEnCrypt : IEncrypt
{
public MyEnCrypt()
{}
//加密方法  
  public string MyEncoding(string ss)
  {
   SymmetricAlgorithm symm = new RijndaelManaged();
   symm.GenerateKey();
   symm.GenerateIV();
   byte[] key=symm.Key;
   byte[] iv=symm.IV;
byte[] bs=_getBytesFromUnicode(ss);
   byte[] be=_doDESEncoding(key,iv,bs);
   byte[] bmd5=(new MD5CryptoServiceProvider()).ComputeHash(bs);
byte[] be2=_combinateBytes(bmd5,key,iv,be);
   return System.Convert.ToBase64String(be2);
  }
 //解密方法  
  public string MyDecoding(string ss)
  {
   byte[] bs=System.Convert.FromBase64String(ss);
   byte[] bs2=_doDESDecoding(bs);
   if( bs2==null )
  return null;
   else
  return _getUnicodeFromBytes(bs2);
  }
 }

4.编译生成动态链接库SXCryptPwd.dll

在.net命令提示下注册动态链接库 regasm /tlb SXCryptPwd.tlb SXCryptPwd.dll。这样就注册成了COM组件。

5.在asp下的应用

<%
set obj = Server.CreateObject("MyEnCrypt")
dim str1
str1 = obj.MyEncoding("测试.Net组件") // 加密
response.write("strEnCript=" & str1 & "<br>")
dim str2
str2 = obj.MyDecoding(str1) // 解密
response.write("strDecrypt=" & str2 & "<br>")
%>