bilibili BV转AV 纯本地运算易语言源码

.版本 2

.子程序 BV转AV, 整数型
.参数 参_BV, 文本型
.局部变量 局_key, 文本型
.局部变量 局_base58位置, 整数型, , "0"
.局部变量 局_异或数, 整数型
.局部变量 局_减数, 整数型
.局部变量 局_结果, 整数型
.局部变量 局_次数, 整数型

局_key ＝ “fZodR9XQDSUm21yCkr6zBqiveYah8bt4xsWpHnJE7jL5VG3guMTKNPAwcF”
局_base58位置 ＝ { 12, 11, 4, 9, 5, 7 }
局_异或数 ＝ 177451812
局_减数 ＝ 8728348608
局_结果 ＝ 0
.计次循环首 (6, 局_次数)
    局_结果 ＝ 局_结果 ＋ (寻找文本 (局_key, 取文本中间 (参_BV, 局_base58位置 [局_次数], 1), , 假) － 1) × 求次方 (58, 局_次数 － 1)
.计次循环尾 ()
返回 (位异或 (局_结果 － 局_减数, 局_异或数))