Reversible encryption component ====================== 使用 方法 ======================= === Dim ObjencryptSet Objencrypt = Server.createObject ("MyEncrypt.clsencrypt") DIM STRRETURN 'Encrypted Text DIM STRVALUE' Encrypted Text 'Encryption Start' Setting Key (This line can be omitted) Objencrypt.KeyCode = "1111" Start encryption strreturn = ObjEncrypt.Encrypt (Strvalue) 'Decrypt' Setting the key (if there is no setting when encrypted, this line can be omitted) Objencrypt.KeyCode = "1111" Start Decryption Strreturn = Objencrypt.unencrypt (strreturn) Note: Strreturn Returns the following value -3: The key length exceeds 10-2: indicates that the text sets the key, but does not specify a key-1 when decrypts, indicates that the text sets the key, but the specified key specified when decrypts and the original setting The key is not the same: the key requires less than 10 characters and must be characters on the keyboard, otherwise it may result in the correct decryption ===================== version history ===================================================== 20041130: Repair big text overflow Error change the special character processing, theoretically increase the execution speed 1000 times increase key, further increase security 20041126: Temporary solve double quotation character encryption and decryption issues, but the efficiency is reduced 20041125: The current reversible algorithm is handled in Chinese I have no problem in VB, but in ASP, I can decrypt it in ASP. I can't realize I specialize in writing a component and test file. If you can use the component, you can use my component directly. Attach the complete code of the component has a small problem because there is a double quotation number of two quotes in the ASP. There is a problem with dual quotation characters encryption and decryption. 2004-11-30babyt@mail.9cbs.net Ate's full code download address http: / / www.facesun.cn/portal/download/encrypt.rar
