看论坛没有谷歌身份验证器相关算法，自己写了js函数

花间一壶酒

这还有另外一种  忘了从哪弄得了  这个韩服游戏里用过

花间一壶酒

  

窗口程序集名	保 留	保 留	备 注
谷歌验证器

子程序名	返回值类型	公开	备 注
谷歌身份验证生成	文本型		默认为谷歌身份验证，请把本地时间调准确至北京时间
参数名	类 型	参考	可空	数组	备 注
密钥	文本型
剩余时间	整数型				0 < 剩余 <= 30

变量名	类 型	静态	数组	备 注
h	字节集
t
l

t ＝ 取时间间隔 (取现行时间 (), [1970年1月1日8时], #秒 )
剩余时间 ＝ 30 － t ％ 30
h ＝ sha1 (字节集翻转 (到字节集 (到长整数 (t ÷ 30))), base32解码 (密钥))
l ＝ 取字节集长度 (h)
返回 (取文本右边 (“000000000” ＋ 取文本右边 (到文本 (位与 (取字节集数据 (字节集翻转 (h), #整数型, l － 位与 (h [l], 15) － 3), 2147483647)), 6), 6))

子程序名	返回值类型	公开	备 注
base32解码	字节集
参数名	类 型	参考	可空	数组	备 注
编码数据	文本型				ABCDEFGHIJKLMNOPQRSTUVWXYZ234567

变量名	类 型	静态	数组	备 注
数据	字节集
i	整数型
a	字节型
二进制	字节集
返回	字节集
len	整数型
b	字节集
j	整数型

数据 ＝ 到字节集 (子文本替换 (编码数据, “=”, , , , 真))
len ＝ 取字节集长度 (数据)
如果真 (len ≤ 0)
返回 ({  })
计次循环首 (len, i)
a ＝ 寻找字节集 ({ 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 50, 51, 52, 53, 54, 55 }, 到字节集 (数据 [i]), ) － 1
如果真 (a ＝ -2)
返回 ({  })
b ＝ {  }
判断循环首 (a ≠ 0)
b ＝ 选择 (a ％ 2 ＝ 0, { 48 }, { 49 }) ＋ b
a ＝ a ＼ 2
判断循环尾 ()
二进制 ＝ 二进制 ＋ 取字节集右边 ({ 48, 48, 48, 48, 48 } ＋ b, 5)
计次循环尾 ()
len ＝ len × 5
len ＝ len － len ％ 8
len ＝ len ÷ 8
返回 ＝ 取空白字节集 (len)
计次循环首 (len, i)
a ＝ 0
计次循环首 (8, j)
a ＝ a × 2 ＋ 二进制 [ (i － 1) × 8 ＋ j] － 48
计次循环尾 ()
返回 [i] ＝ a
计次循环尾 ()
返回 (返回)

子程序名	返回值类型	公开	备 注
字节集翻转	字节集
参数名	类 型	参考	可空	数组	备 注
bin	字节集

变量名	类 型	静态	数组	备 注
i	整数型
len	整数型
b	字节集

len ＝ 取字节集长度 (bin)
b ＝ bin
计次循环首 (len ＼ 2, i)
b [i] ＝ bin [len － i ＋ 1]
b [len － i ＋ 1] ＝ bin [i]
计次循环尾 ()
返回 (b)

子程序名	返回值类型	公开	备 注
sha1	字节集
参数名	类 型	参考	可空	数组	备 注
data	字节集
key	字节集

变量名	类 型	静态	数组	备 注
AlgHandle	整数型
HashLength	整数型
ResultLength	整数型
hash	字节集
HashHandle	整数型

BCryptOpenAlgorithmProvider (AlgHandle, { 83, 0, 72, 0, 65, 0, 49, 0, 0, 0 }, 0, 8)
如果真 (AlgHandle ＝ 0)
返回 ({  })
BCryptGetProperty (AlgHandle, { 72, 0, 97, 0, 115, 0, 104, 0, 68, 0, 105, 0, 103, 0, 101, 0, 115, 0, 116, 0, 76, 0, 101, 0, 110, 0, 103, 0, 116, 0, 104, 0, 0, 0 }, HashLength, 4, ResultLength, 0)
如果真 (ResultLength ＝ 0)
BCryptCloseAlgorithmProvider (AlgHandle, 0)
返回 ({  })
hash ＝ 取空白字节集 (HashLength)
BCryptCreateHash2 (AlgHandle, HashHandle, 0, 0, key, 取字节集长度 (key), 32)
如果真 (HashHandle ＝ 0)
BCryptCloseAlgorithmProvider (AlgHandle, 0)
返回 ({  })

BCryptHashData (HashHandle, data, 取字节集长度 (data), 0)
BCryptFinishHash (HashHandle, hash, HashLength, 0)
BCryptDestroyHash (HashHandle)
BCryptCloseAlgorithmProvider (AlgHandle, 0)
返回 (hash)

.版本 2<br /> <br /> .程序集 谷歌验证器<br /> <br /> .子程序 谷歌身份验证生成, 文本型, 公开, 默认为谷歌身份验证，请把本地时间调准确至北京时间<br /> .参数 密钥, 文本型<br /> .参数 剩余时间, 整数型, 参考 可空, 0 < 剩余 <= 30<br /> .局部变量 h, 字节集<br /> .局部变量 t<br /> .局部变量 l<br /> <br /> t ＝ 取时间间隔 (取现行时间 (), [1970年1月1日8时], #秒)<br /> 剩余时间 ＝ 30 － t ％ 30<br /> h ＝ sha1 (字节集翻转 (到字节集 (到长整数 (t ÷ 30))), base32解码 (密钥))<br /> l ＝ 取字节集长度 (h)<br /> 返回 (取文本右边 (“000000000” ＋ 取文本右边 (到文本 (位与 (取字节集数据 (字节集翻转 (h), #整数型, l － 位与 (h [l], 15) － 3), 2147483647)), 6), 6))<br /> <br /> .子程序 base32解码, 字节集<br /> .参数 编码数据, 文本型, , ABCDEFGHIJKLMNOPQRSTUVWXYZ234567<br /> .局部变量 数据, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 a, 字节型<br /> .局部变量 二进制, 字节集<br /> .局部变量 返回, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 b, 字节集<br /> .局部变量 j, 整数型<br /> <br /> 数据 ＝ 到字节集 (子文本替换 (编码数据, “=”, , , , 真))<br /> len ＝ 取字节集长度 (数据)<br /> .如果真 (len ≤ 0)<br />     返回 ({  })<br /> .如果真结束<br /> .计次循环首 (len, i)<br />     a ＝ 寻找字节集 ({ 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 50, 51, 52, 53, 54, 55 }, 到字节集 (数据 <i>), ) － 1<br />     .如果真 (a ＝ -2)<br />         返回 ({  })<br />     .如果真结束<br />     b ＝ {  }<br />     .判断循环首 (a ≠ 0)<br />         b ＝ 选择 (a ％ 2 ＝ 0, { 48 }, { 49 }) ＋ b<br />         a ＝ a ＼ 2<br />     .判断循环尾 ()<br />     二进制 ＝ 二进制 ＋ 取字节集右边 ({ 48, 48, 48, 48, 48 } ＋ b, 5)<br /> .计次循环尾 ()<br /> len ＝ len × 5<br /> len ＝ len － len ％ 8<br /> len ＝ len ÷ 8<br /> 返回 ＝ 取空白字节集 (len)<br /> .计次循环首 (len, i)<br />     a ＝ 0<br />     .计次循环首 (8, j)<br />         a ＝ a × 2 ＋ 二进制 [(i － 1) × 8 ＋ j] － 48<br />     .计次循环尾 ()<br />     返回 <i> ＝ a<br /> .计次循环尾 ()<br /> 返回 (返回)<br /> <br /> .子程序 字节集翻转, 字节集<br /> .参数 bin, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 b, 字节集<br /> <br /> len ＝ 取字节集长度 (bin)<br /> b ＝ bin<br /> .计次循环首 (len ＼ 2, i)<br />     b <i> ＝ bin [len － i ＋ 1]<br />     b [len － i ＋ 1] ＝ bin <i><br /> .计次循环尾 ()<br /> 返回 (b)<br /> <br /> <br /> .子程序 sha1, 字节集<br /> .参数 data, 字节集<br /> .参数 key, 字节集<br /> .局部变量 AlgHandle, 整数型<br /> .局部变量 HashLength, 整数型<br /> .局部变量 ResultLength, 整数型<br /> .局部变量 hash, 字节集<br /> .局部变量 HashHandle, 整数型<br /> <br /> BCryptOpenAlgorithmProvider (AlgHandle, { 83, 0, 72, 0, 65, 0, 49, 0, 0, 0 }, 0, 8)<br /> .如果真 (AlgHandle ＝ 0)<br />     返回 ({  })<br /> .如果真结束<br /> BCryptGetProperty (AlgHandle, { 72, 0, 97, 0, 115, 0, 104, 0, 68, 0, 105, 0, 103, 0, 101, 0, 115, 0, 116, 0, 76, 0, 101, 0, 110, 0, 103, 0, 116, 0, 104, 0, 0, 0 }, HashLength, 4, ResultLength, 0)<br /> .如果真 (ResultLength ＝ 0)<br />     BCryptCloseAlgorithmProvider (AlgHandle, 0)<br />     返回 ({  })<br /> .如果真结束<br /> hash ＝ 取空白字节集 (HashLength)<br /> BCryptCreateHash2 (AlgHandle, HashHandle, 0, 0, key, 取字节集长度 (key), 32)<br /> .如果真 (HashHandle ＝ 0)<br />     BCryptCloseAlgorithmProvider (AlgHandle, 0)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> BCryptHashData (HashHandle, data, 取字节集长度 (data), 0)<br /> BCryptFinishHash (HashHandle, hash, HashLength, 0)<br /> BCryptDestroyHash (HashHandle)<br /> BCryptCloseAlgorithmProvider (AlgHandle, 0)<br /> 返回 (hash)

  

DLL命令名	返回值类型	公开	备 注
BCryptOpenAlgorithmProvider	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptOpenAlgorithmProvider
参数名	类 型	传址	数组	备 注
phAlgorithm	整数型
pszAlgId	字节集
pszImplementation	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
BCryptGetProperty	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptGetProperty
参数名	类 型	传址	数组	备 注
hObject	整数型
pszProperty	字节集
pbOutput	整数型
cbOutput	整数型
pcbResult	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
BCryptCloseAlgorithmProvider	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptCloseAlgorithmProvider
参数名	类 型	传址	数组	备 注
hAlgorithm	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
BCryptCreateHash2	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptCreateHash
参数名	类 型	传址	数组	备 注
hAlgorithm	整数型
phHash	整数型
pbHashObject	整数型
cbHashObject	整数型
pbSecret	字节集
cbSecret	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
BCryptHashData	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptHashData
参数名	类 型	传址	数组	备 注
hHash	整数型
pbInput	字节集
cbInput	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
BCryptFinishHash	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptFinishHash
参数名	类 型	传址	数组	备 注
hHash	整数型
pbOutput	字节集
cbOutput	整数型
dwFlags	整数型

DLL命令名	返回值类型	公开	备 注
BCryptDestroyHash	整数型
DLL库文件名:
bcrypt.dll
在DLL库中对应命令名:
BCryptDestroyHash
参数名	类 型	传址	数组	备 注
hHash	整数型

.版本 2<br /> <br /> .DLL命令 BCryptOpenAlgorithmProvider, 整数型, "bcrypt.dll", "BCryptOpenAlgorithmProvider"<br />     .参数 phAlgorithm, 整数型, 传址<br />     .参数 pszAlgId, 字节集<br />     .参数 pszImplementation, 整数型<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 BCryptGetProperty, 整数型, "bcrypt.dll", "BCryptGetProperty"<br />     .参数 hObject, 整数型<br />     .参数 pszProperty, 字节集<br />     .参数 pbOutput, 整数型, 传址<br />     .参数 cbOutput, 整数型<br />     .参数 pcbResult, 整数型, 传址<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 BCryptCloseAlgorithmProvider, 整数型, "bcrypt.dll", "BCryptCloseAlgorithmProvider"<br />     .参数 hAlgorithm, 整数型<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 BCryptCreateHash2, 整数型, "bcrypt.dll", "BCryptCreateHash"<br />     .参数 hAlgorithm, 整数型<br />     .参数 phHash, 整数型, 传址<br />     .参数 pbHashObject, 整数型<br />     .参数 cbHashObject, 整数型<br />     .参数 pbSecret, 字节集<br />     .参数 cbSecret, 整数型<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 BCryptHashData, 整数型, "bcrypt.dll", "BCryptHashData"<br />     .参数 hHash, 整数型<br />     .参数 pbInput, 字节集<br />     .参数 cbInput, 整数型<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 BCryptFinishHash, 整数型, "bcrypt.dll", "BCryptFinishHash"<br />     .参数 hHash, 整数型<br />     .参数 pbOutput, 字节集<br />     .参数 cbOutput, 整数型<br />     .参数 dwFlags, 整数型<br /> <br /> .DLL命令 BCryptDestroyHash, 整数型, "bcrypt.dll", "BCryptDestroyHash"<br />     .参数 hHash, 整数型

这个东西是吧

花间一壶酒

吾爱那边有   之前下载过

wjswzj0

支持开源~！感谢分享

ouyasq

感谢分享，很给力！~

jysoft2022

谢谢分享

ttggnn

感谢分享

1184798949

感谢分享

婲乔

7ian 发表于 2025-3-3 12:40
你妹认真找吧

搜索确实没看到有你这个，不然我干嘛自己写

深圳梦

        支持开源~！感谢分享