asp 一些支付接口(25)

                varlow = Left(Hex(Asc(varchar)),2)
                varhigh = right(Hex(Asc(varchar)),2)
                ASP_Str2binold = ASP_Str2binold & chrB("&H" & varlow) & chrB("&H" & varhigh)
             Else
                ASP_Str2binold = ASP_Str2binold & chrB(AscB(varchar))
             End If
         Next
    End Function
    Private Function ASP_Str2bin(varstr)
        ASP_Str2bin=""
         For i=1 To Len(varstr)
             varchar=mid(varstr,i,1)
             code = Server.UrlEncode(varchar)
             if len(code) = 1 then
             ASP_Str2bin = ASP_Str2bin & chrB(AscB(code))
             else
                codearr = split(code,"%")
                for j=1 to ubound(codearr)
                 ASP_Str2bin = ASP_Str2bin & chrB("&H" & codearr(j))
                next

             End If
         Next
    End Function
    Private Function ASP_RShift(lValue, iShiftBits)
        If iShiftBits = 0 Then
            ASP_RShift = lValue
            Exit Function
        ElseIf iShiftBits = 31 Then
            If lValue And &H80000000 Then
                ASP_RShift = 1
            Else
                ASP_RShift = 0