28,391
社区成员
发帖
与我相关
我的任务
分享
Function decode(str)
Dim val
With Server.CreateObject("MSXML2.DOMDocument").createElement("TXT")
.dataType = "bin.base64"
.text = str
val = .nodeTypedValue
End With
With Server.CreateObject("ADODB.Stream")
.Type = 1
.Open
.Write val
.Position = 0
.Type = 2
.Charset = "GBK"
decode = .ReadText(-1)
End With
End Function
Dim s
s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhtcDAvLXEzujH+ihKdWxpYW4gQnJlYW0gRWRpdGlvbiBWb2wuMzogRGFuY2VzIG9mIERvd2xhbmQpISEnIEFuZCBUeXBlPSfS9Ma1Jw=="
Response.Write decode(s)
Function decode(str)
Dim val
With Server.CreateObject("MSXML2.DOMDocument").createElement("TXT")
.dataType = "bin.base64"
.text = str
val = .nodeTypedValue
End With
With Server.CreateObject("ADODB.Stream")
.Type = 1
.Open
.Write val
.Position = 0
.Type = 2
.Charset = "GBK"
decode = .ReadText(-1)
End With
End Function
Dim s
s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw="
Response.Write decode(s)
Function decode(str)
Dim val
With (CreateObject("MSXML2.DOMDocument").createElement("TXT"))
.dataType = "bin.base64"
.text = str
val = .nodeTypedValue
End With
With CreateObject("ADODB.Stream")
.Type = 1
.Open
.Write val
.Position = 0
.Type = 2
.Charset = "GBK"
WScript.Echo .ReadText(-1)
End With
End Function
Dim s
s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw="
decode(s)