Subversion Repositories DevTools

<%
'******************************
'   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 &"<br>"
          
          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
%>