Encrypted Password field

knight · June 21st, 2004, 03:08 AM

Can i encrypt password field in access database such as
mysql password("abc") function how can it possible pls tell me

happygv · June 21st, 2004, 05:48 AM

Hi Knight,

You can use some simple logic to do that on your own.

May be something like this.

Code:

<Script language="vbscript" runat="server">

    Dim i, Char
     Function Encrypt(pwdStr)
        For i = 1 To Len(pwdStr)
            Char = Asc(Mid(pwdStr, i, 1))
            Encrypt = Encrypt & Chr(((Char Xor 111) + 32) Mod 256)
        Next

    End Function

    Function Decrypt(pwdStr)
        For i = 1 To Len(pwdStr)
            Char = Asc(Mid(pwdStr, i, 1))
            Decrypt = Decrypt & Chr(((Char - 32 + 256) Mod 256) Xor 111)
        Next
    End Function

</Script>

Hope that helps.
Cheers!

_________________________
-Vijay G

Strive for Perfection

knight · June 22nd, 2004, 02:04 AM

yea but Decrypt() is not working i mean the same output is shown both
cases

happygv · June 22nd, 2004, 06:20 AM

No Knight, that cannot happen, as I am using this for a long long time. I think you are passing the same string for both. Only Ecrypted string can be Decrypted.

Just try this in the same page...

Code:

<%
response.write Encrypt("test") & "<BR>"
response.write Decrypt(Encrypt("test"))
%>

I get result printed as

;*<;
test

Cheers!

_________________________
-Vijay G

Strive for Perfection

knight · June 22nd, 2004, 11:50 PM

yea dear u r right i use same string for both as i think that decrypt
function works the same string ok now it is good
thanks a lot

belete · June 26th, 2004, 04:19 PM

hi Happgv,
This is code is very interesting. I have got an error on line 8 when i made some changes and tries to run it.

Please help me,

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30491: Expression does not produce a value.

Source Error:

Line 6: sub page_Load(obj as object, e as eventargs)
Line 7:
Line 8: Response.write(Encrypt("test") & "<br>")
Line 9: Response.write(Decrypt(Encrypt("test")) & "<br>")
Line 10:

<%@ Page Language ="VB" %>

<Script runat="server">

sub page_Load(obj as object, e as eventargs)

    Response.write(Encrypt("test") & "<br>")
    Response.write(Decrypt(Encrypt("test")) & "<br>")

End sub

   sub Encrypt(pwdStr AS String)
         Dim i
         Dim Cha
         For i = 1 To Len(pwdStr)
           Cha = Asc(Mid(pwdStr, i, 1))
           Encrypt = Encrypt & Chr(((Cha Xor 111) + 32) Mod 256)
           Next
      End sub

   sub Decrypt(pwdStr As String)
        Dim i
        Dim Cha
        For i = 1 To Len(pwdStr)
           Cha = Asc(Mid(pwdStr, i, 1))
           Decrypt = Decrypt & Chr(((Cha - 32 + 256) Mod 256) Xor 111)
           Next
  End sub

</Script>
<html>
<body>
</body>
</html>

happygv · June 27th, 2004, 10:31 PM

Hi belete,

A SUB doesn't return value, but a FUNCTION does.;)

Change those SUBs to FUNCTIONs. See my previous post with the code.

Cheers!

_________________________
-Vijay G

Strive for Perfection

belete · June 28th, 2004, 12:35 PM

Hi Happygv,
I have fixed the problem
Thank you.