HEX解码

原文链接:https://yq.aliyun.com/articles/556494

<%

On Error Resume Next

Response.Buffer = True 

Response.ExpiresAbsolute = Now() - 1 

Response.Expires = 0 

Response.CacheControl = "no-cache" 

Response.AddHeader "Pragma", "No-Cache"

Response.Charset ="GB2312"

temp_url = "%77%77%77%2e%66%6f%72%61%73%70%2e%63%6e"'这里没有HTTp://

temp_url_array = Split(temp_url,"%")

For i = 1 To UBound(temp_url_array)

end_code = end_code& Chr(CLng("&H"&temp_url_array(i)))

Next

response.write end_code '解密后输出www.ynpxrz.com

%>










本文转自 卓行天下  51CTO博客,原文链接:http://blog.51cto.com/9951038/1745934,如需转载请自行联系原作者
展开阅读全文
博主设置当前文章不允许评论。

Ascii <--> Hex

08-11

下面是我从网上搜来的c语言Ascii <-> Hex的函数(不知道可用否?),我对c语言不熟,不太会用这些函数。rn假如我声明字符数组如下:rnunsigned char pwd[6] = "\0";rnunsigned char hex_pwd[6]="\0";rn应使用什么样的赋值语句让pwd字符数组的内容为:"SUN435",再就是我应该如何调用下面的函数来做Ascii <-> Hex的转换呢,最好给个实际调用代码供我学学。谢谢!rnrn//函 数 名:CharToHex()rn//功能描述:把ASCII字符转换为16进制rn//函数说明:rn//调用函数:rn//全局变量:rn//输 入:ASCII字符rn//返 回:16进制rn/////////////////////////////////////////////////////////////////////rnunsigned char CharToHex(unsigned char bHex)rn if((bHex>=0)&&(bHex<=9))rn bHex += 0x30;rn else if((bHex>=10)&&(bHex<=15))//大写字母rn bHex += 0x37;rn else bHex = 0xff;rn return bHex;rnrn/////////////////////////////////////////////////////////////////////rn//函 数 名:HexToChar()rn//功能描述:把16进制转换为ASCII字符rn//函数说明:rn//调用函数:rn//全局变量:rn//输 入:16进制rn//返 回:ASCII字符rn/////////////////////////////////////////////////////////////////////rnunsigned char HexToChar(unsigned char bChar)rn if((bChar>=0x30)&&(bChar<=0x39))rn bChar -= 0x30;rn else if((bChar>=0x41)&&(bChar<=0x46))//大写字母rn bChar -= 0x37;rn else if((bChar>=0x61)&&(bChar<=0x66))//小写字母rn bChar -= 0x57;rn else bChar = 0xff;rn return bChar; rn 论坛

没有更多推荐了,返回首页