<% '****************************** ' Crypt.asp '****************************** Dim g_Key, g_KeyLocation g_KeyLocation = rootPath & "\sec\key.txt" Function EnCrypt(strCryptThis) g_Key = mid(ReadKeyFromFile(g_KeyLocation),1,Len(strCryptThis)) Dim strChar, iKeyChar, iStringChar, i, iCryptChar, strEncrypted for i = 1 to Len(strCryptThis) iKeyChar = Asc(mid(g_Key,i,1)) iStringChar = Asc(mid(strCryptThis,i,1)) iCryptChar = iStringChar + iKeyChar iCryptChar = Mid ( CStr( FormatNumber( (iCryptChar / 1000), 3 ) ), 3, 3 ) 'Response.write "["& mid(strCryptThis,i,1) &"]"& iKeyChar &" + "& iStringChar &" = "& iCryptChar &"
" strEncrypted = strEncrypted & iCryptChar next EnCrypt = CStr(strEncrypted) End Function Function ReadKeyFromFile(strFileName) Dim keyFile, fso, f, ts 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 ReadKeyFromFile = keyFile End Function %>