xor i asp ?

Jeg har en lidt VB kode der kryptere passwords i en database.
Jeg har nu brug for at logge brugere ind via en asp side med brug af dette password.
Er det der noget hjælp at hente ?


Public Temp$
Public Sub EncryptDecrypt(Strpassword)
EncryptDecrypt(Strpassword)
Dim i As IntegerDim intLocation As Integer
Dim Code As String
Code = "1234567890" 'This is key for encrypting/decrypting
  Temp$ = ""
  For i = 1 To Len(Strpassword)
      intLocation = (i Mod Len(Code)) + 1
      'Use XOR logic combination for encrypting/decrypting
Temp$ = Temp$ + Chr$(Asc(Mid$(Strpassword, i%, 1)) Xor Asc(Mid$(Code, intLocation%, 1)))
  Next i
End Sub