CORNACCHIA Algorithm * * GOAL: given d and p prime, find (x,y) such that x^2 + y^2 = d * p * * in this implementation, d = 1. This code does not accept d <> 1 !!! * see "A Course in Computational Algebraic Number Theory" by Henri

BASE64解码 VBS源代码 Function fDecode(sStringToDecode) Const CharList = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" Dim iDataLength, sOutputString, iGroupInitialCharacter sStringToDecode = Replace(Replace(Replace(sSt

一，产生密钥（算法实现可参照文档后的<附件1>KeyGeN.asp） 与<附件1>不同的是，实际要求密钥存放在字符串接受方数据库表KeyPool中，表结构如下： 1，personalID{主码} 2，secret_key{密钥，数据类型最好用text，与实际代码密钥生成长度有关} 3，serverTime{密钥生成时间，用以检验密钥是否失效} 接受方发现密钥失效，则拒绝验证 二，字符串加密（算法实现可参照文档后的<附