I have an encryption method, and you are welcome to correct me.

<%
IF Request ("Action") =1 Then
Dim String,stringlen,i,stringnumtmp,stringrndnum,resultstring,j
String = Request ("pass") ' Password string
' Start computing character data
Stringlen = Len (String)
For i = 1 to Stringlen
Stringnumtmp = ASC (Mid (string,i,1))

Randomize
Stringrndnum=int ((18-1) *rnd+1)

If Len (stringnumtmp + stringrndnum) < 3 Then

For j = 1 to 3-int (Len (stringnumtmp + stringrndnum))
Stringnumber = "0" & (stringnumtmp + stringrndnum)
Next

Else

Stringnumber = stringnumtmp + stringrndnum

End If

resultstring = resultstring & Chr (stringnumtmp-stringrndnum) & Stringnumber
Next
Response.Write "Encrypted Result:" & resultstring ' output result
%>
<BR>
<%
' Start cracking
For i = 1 to Len (resultstring) Step 4
Pstring = Left (Mid (resultstring,i,4), 1)

PSTRINGNUM1 = ASC (pstring)

PStringNum2 = Int (right (Mid resultstring,i,4), 3)

Pstringnum = (PStringNum1 + PStringNum2)/2

PString1 = PString1 & Chr (Pstringnum)
Next
Response.Write "Cracked after the result:" & PString1
End If
%>
<form method= "POST" action= "Ttt.asp?action=1" >
<input type=password name= "Pass" Size=15><input type=submit>
</form>