【程序编程相关:[asp.net]保留password框】
【推荐阅读:图像处理网络资源( 转载)】
【扩展信息:“计算机通信理论”问题问答 - 绝对精彩】private function decryptstring(strcryptstring)´#################################################################### ´### crypt function (c) 2001 by slavic kozyuk grindkore@yahoo.com ### ´### arguments: encrypted hex stringt ### ´### output: decrypted ascii string ### ´#################################################################### ´### note this function uses hexconv() and get_hxno() functions ### ´### so make sure they are not removed ### ´####################################################################dim strraw, arhexcharset, i, intkey, intoffset, strrawkey, strhexcrypdata
strrawkey = right(strcryptstring, len(strcryptstring) - instr(strcryptstring, "|")) intoffset = right(strrawkey, len(strrawkey) - instr(strrawkey,"|")) intkey = hexconv(left(strrawkey, instr(strrawkey, "|") - 1)) - hexconv(intoffset) strhexcrypdata = left(strcryptstring, len(strcryptstring) - (len(strrawkey) + 1)) arhexcharset = split(strhexcrypdata, hex(intkey))for i=0 to ubound(arhexcharset)
strraw = strraw & chr(hexconv(arhexcharset(i))/intkey) nextdecryptstring = strraw
end function
private function hexconv(hexvar)
dim hxx, hxx_var, multiply if hexvar <> "" then hexvar = ucase(hexvar) hexvar = strreverse(hexvar) dim hx() redim hx(len(hexvar)) hxx = 0 hxx_var = 0 for hxx = 1 to len(hexvar) if multiply = "" then multiply = 1 ... 下一页