在第一部分,讨论了如何生成密钥,下面将介绍如何使用这个密钥来加密和解密一个
    字符串。
    下面的代码就是能够同时实现这个功能的函数
    Crypt.asp文件
    <% 
    Dim g_Key
    
    Const g_CryptThis = "Now is the time for all good men to come to the aid of their     country."
    Const g_KeyLocation = "c:\key.txt"
    
    g_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(g_CryptThis))
    
    Response.Write "