【Asp】ASP Unescape加密/解密/编码/解码

  • A+
所属分类:lcx

ASP Unescape加密/编码,ASP Unescape加密,ASP Unescape编码:

Function vbEscape(psString)
    Dim nTemp, sTemp, sTempChar, nTempAsc
    For nTemp =1 To Len(psString)
        sTempChar =Mid(psString, nTemp, 1)
        nTempAsc =Ascw(sTempChar)
        If (nTempAsc >=48 and nTempAsc =65 and nTempAsc =97 and nTempAsc 0 Then
            sTemp =sTemp & sTempChar
        ElseIf nTempAsc >0 and nTempAsc
            sTemp =sTemp & "%0" & Hex(nTempAsc)
        ElseIf nTempAsc >=16 and nTempAsc
            sTemp =sTemp & "%" & Hex(nTempAsc)
        Else
            sTemp =sTemp & "%u" & Hex(nTempAsc)
        End If
    Next
    vbEscape =sTemp
End Function
%>

ASP Unescape解密/解码,ASP Unescape解密,ASP Unescape解码:

Function vbUnEscape(psString)
    Dim nTemp, sTemp, sTempChar
    sTemp =""
    For nTemp =1 To Len(psString)
        sTempChar =Mid(psString, nTemp, 1)
        If Mid(psString, nTemp, 2) ="%u" and nTemp
            If IsNumeric("&H" & Mid(psString, nTemp +2,4)) Then
                sTemp =sTemp & Chrw(CInt("&H" & Mid(psString, nTemp +2, 4)))
                nTemp = nTemp +5
            Else
                sTemp =sTemp & sTempChar
            End If
        ElseIf sTempChar ="%" and nTemp
            If IsNumeric("&H" & Mid(psString, nTemp +1, 2)) Then
                sTemp =sTemp & CHRW(CInt("&H" & Mid(psString, nTemp +1, 2)))
                nTemp =nTemp +2
            Else
                sTemp =sTemp & c
            End If
        Else
            sTemp =sTemp & sTempChar
        End If
    Next
    vbUnEscape =sTemp
End Function
%>

文章来源于lcx.cc:【Asp】ASP Unescape加密/解密/编码/解码

相关推荐: 黑吃黑到底谁吃谁?冒用身份也敢这么叼! - 绿盟也中枪

今天本站点发布了一篇最新过狗菜刀隐藏后门 于是跟加后门的此人争吵起来。 今天晚上习科出面澄清本站并非造谣诬陷! 索引 1) 发现后门 1.1 来自作者的分析 1.2 谁是幕后黑手 2) 深入调查 2.1 绿盟躺枪,胡柳枝还是另有他人 2.2 隐藏这么深你又这么…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: