Function EnCrypt(strCryptThis) Dim strChar, iKeyChar, iStringChar, I for I = 1 to Len(strCryptThis) iKeyChar = Asc(mid(g_Key,I,1)) iStringChar = Asc(mid(strCryptThis,I,1)) ' *** uncomment below to encrypt with addition, ' iCryptChar = iStringChar + iKeyChar iCryptChar = iKeyChar Xor iStringChar strEncrypted = strEncrypted & Chr(iCryptChar) next EnCrypt = strEncrypted End Function
Function DeCrypt(strEncrypted) Dim strChar, iKeyChar, iStringChar, I for I = 1 to Len(strEncrypted) iKeyChar = (Asc(mid(g_Key,I,1))) iStringChar = Asc(mid(strEncrypted,I,1)) ' *** uncomment below to decrypt with subtraction ' iDeCryptChar = iStringChar - iKeyChar iDeCryptChar = iKeyChar Xor iStringChar strDecrypted = strDecrypted & Chr(iDeCryptChar) next DeCrypt = strDecrypted End Function
Function ReadKeyFromFile(strFileName) Dim keyFile, fso, f set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.GetFile(strFileName) set ts = f.OpenAsTextStream(1, -2)
Do While not ts.AtEndOfStream keyFile = keyFile & ts.ReadLine Loop