Can U guys see error in this code . I have got the follwowing error:
Compiler Error Message: BC30491: Expression does not produce a value.
Source Error:
Line 7: sub page_Load(obj as object, e as eventargs)
Line 8:
Line 9: Response.write(Encrypt("test") & "<br>")
Line 10: Response.write(Decrypt(Encrypt("test")) & "<br>")
Line 11:
---------------------
<%@ 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>
Thank U.