level 2
超强力喷子
楼主
为什么怎么都通不过验证呢,高手来看看,这段代码究竟有何问题?
Private Function CheckSignature() As Boolean
Dim signature As String = Request.QueryString("signature").ToString()
Dim timestamp As String = Request.QueryString("timestamp").ToString()
Dim nonce As String = Request.QueryString("nonce").ToString()
Dim ArrTmp As String() = {Token, timestamp, nonce}
Array.Sort(ArrTmp) '字典排序
Dim tmpStr As String = String.Join("", ArrTmp)
tmpStr = FormsAuthentication.HashPasswordForStoringInConfigFile(tmpStr, "SHA1") tmpStr = tmpStr.ToLower()
If tmpStr = signature Then Return True Else Return False End If
End Function
Private Sub Valid()
Dim echoStr As String= Request.QueryString("echoStr").ToString()
If CheckSignature() Then
If Not String.IsNullOrEmpty(echoStr) Then
Response.Write(echoStr )
Response.[End]()
End If
End If
End Sub
2013年04月19日 09点04分
1
Private Function CheckSignature() As Boolean
Dim signature As String = Request.QueryString("signature").ToString()
Dim timestamp As String = Request.QueryString("timestamp").ToString()
Dim nonce As String = Request.QueryString("nonce").ToString()
Dim ArrTmp As String() = {Token, timestamp, nonce}
Array.Sort(ArrTmp) '字典排序
Dim tmpStr As String = String.Join("", ArrTmp)
tmpStr = FormsAuthentication.HashPasswordForStoringInConfigFile(tmpStr, "SHA1") tmpStr = tmpStr.ToLower()
If tmpStr = signature Then Return True Else Return False End If
End Function
Private Sub Valid()
Dim echoStr As String= Request.QueryString("echoStr").ToString()
If CheckSignature() Then
If Not String.IsNullOrEmpty(echoStr) Then
Response.Write(echoStr )
Response.[End]()
End If
End If
End Sub