分享个FunCaptcha算法bda解密

人善帝王心

从POST封包里取出浏览器UA和发包时间转换 组合成KEY

  

date ＝ 文本_取出中间文本 (str, “date: ”, #换行符 )
判断 (date ＝ “”)
Times ＝ 时间_取现行时间戳 (真)
Times ＝ 时间_到时间戳 (时间_GMT转为时间 (date), 真)

time ＝ 到文本 (到长整数 (Times) － 到长整数 (Times) ％ 21600)
UA ＝ 文本_取出中间文本 (str, “userbrowser: ”, #换行符 )
Key ＝ UA ＋ time

.版本 2<br /> <br /> date ＝ 文本_取出中间文本 (str, “date: ”, #换行符)<br /> .判断开始 (date ＝ “”)<br />     Times ＝ 时间_取现行时间戳 (真)<br /> .默认<br />     Times ＝ 时间_到时间戳 (时间_GMT转为时间 (date), 真)<br /> .判断结束<br /> <br /> time ＝ 到文本 (到长整数 (Times) － 到长整数 (Times) ％ 21600)<br /> UA ＝ 文本_取出中间文本 (str, “userbrowser: ”, #换行符)<br /> Key ＝ UA ＋ time

  

子程序名	返回值类型	公开	备 注
Get_bda解密	文本型
参数名	类 型	参考	可空	数组	备 注
bdas	文本型
Keys	文本型

变量名	类 型	静态	数组	备 注
Json	类_json
rs	文本型
salt	文本型
iv	文本型
salted	文本型
dx	文本型
key	文本型
byte1	字节集
byte	通用型
bdaa	文本型

Json.解析 (bdas)
rs ＝ Json.取通用属性 (“ct”)
salt ＝ Json.取通用属性 (“s”)
iv ＝ Json.取通用属性 (“iv”)
连续赋值 (“”, salted, dx)
判断循环首 (取文本长度 (salted) ＜ 96)
dx ＝ 校验_取md5 (字节集_十六进制到字节集 (dx) ＋ 到字节集 (Keys) ＋ 字节集_十六进制到字节集 (salt))
salted ＝ salted ＋ dx
判断循环尾 ()
key ＝ 取文本左边 (salted, 64)
byte1 ＝ rsAesDecrypt (编码_BASE64解码 (rs), 字节集_十六进制到字节集 (key), 字节集_十六进制到字节集 (iv), #CT_填充_PKCS7_PADDING, #CT_AES_256_CBC, , )
rs ＝ 到文本 (byte1)
' 调试输出 (rs, salted, key, iv)
返回 (rs)

i支持库列表	支持库注释
RSCProject	(未知支持库)

.版本 2<br /> .支持库 RSCProject<br /> <br /> .子程序 Get_bda解密, 文本型<br /> .参数 bdas, 文本型<br /> .参数 Keys, 文本型<br /> .局部变量 Json, 类_json<br /> .局部变量 rs, 文本型<br /> .局部变量 salt, 文本型<br /> .局部变量 iv, 文本型<br /> .局部变量 salted, 文本型<br /> .局部变量 dx, 文本型<br /> .局部变量 key, 文本型<br /> .局部变量 byte1, 字节集<br /> .局部变量 byte, 通用型<br /> .局部变量 bdaa, 文本型<br /> <br /> Json.解析 (bdas)<br /> rs ＝ Json.取通用属性 (“ct”)<br /> salt ＝ Json.取通用属性 (“s”)<br /> iv ＝ Json.取通用属性 (“iv”)<br /> 连续赋值 (“”, salted, dx)<br /> .判断循环首 (取文本长度 (salted) ＜ 96)<br />     dx ＝ 校验_取md5 (字节集_十六进制到字节集 (dx) ＋ 到字节集 (Keys) ＋ 字节集_十六进制到字节集 (salt))<br />     salted ＝ salted ＋ dx<br /> .判断循环尾 ()<br /> key ＝ 取文本左边 (salted, 64)<br /> byte1 ＝ rsAesDecrypt (编码_BASE64解码 (rs), 字节集_十六进制到字节集 (key), 字节集_十六进制到字节集 (iv), #CT_填充_PKCS7_PADDING, #CT_AES_256_CBC, , )<br /> <br /> rs ＝ 到文本 (byte1)<br /> ' 调试输出 (rs, salted, key, iv)<br /> 返回 (rs)

xiazai520

顺着思路 还原易语言写法  好厉害

xea666

好东西啊  我来占个位置