TOTP校验

大家好我是新手

  

子程序名	返回值类型	公开	备 注
TOTP_gen	整数型
参数名	类 型	参考	可空	数组	备 注
time	长整数型
key	文本型

变量名	类 型	静态	数组	备 注
mtimeStep	整数型
v1	整数型
bArr2	字节集
i2	整数型
Crypto	CryptoAPI类
hash	字节集
offset	整数型
base	整数型		4
ret	整数型

mtimeStep ＝ 30
v1 ＝ time ÷ 1000 ÷ mtimeStep
bArr2 ＝ 取空白字节集 (8)
变量循环首 (8, 1, -1, i2)
bArr2 [i2] ＝ 位与 (255, v1)
v1 ＝ 右移 (v1, 8)
变量循环尾 ()
hash ＝ Crypto.Hmac (bArr2, 到字节集 (key), #CALG_SHA1 )
base [1] ＝ 取字节集数据 (取字节集中间 (hash, 20, 1), #整数型, )
offset ＝ 位与 (base [1], 15)
base [1] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 1, 1), #整数型, )
base [1] ＝ 左移 (位与 (base [1], 127), 24)
base [2] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 2, 1), #整数型, )
base [2] ＝ 左移 (位与 (base [2], 255), 16)
base [3] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 3, 1), #整数型, )
base [3] ＝ 左移 (位与 (base [3], 255), 8)
base [4] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 4, 1), #整数型, )
base [4] ＝ 位与 (base [4], 255)
ret ＝ 位或 (位或 (位或 (base [1], base [2]), base [3]), base [4]) ％ 1000000
返回 (ret)

.版本 2<br /> <br /> .子程序 TOTP_gen, 整数型<br /> .参数 time, 长整数型<br /> .参数 key, 文本型<br /> .局部变量 mtimeStep, 整数型<br /> .局部变量 v1, 整数型<br /> .局部变量 bArr2, 字节集<br /> .局部变量 i2, 整数型<br /> .局部变量 Crypto, CryptoAPI类<br /> .局部变量 hash, 字节集<br /> .局部变量 offset, 整数型<br /> .局部变量 base, 整数型, , "4"<br /> .局部变量 ret, 整数型<br /> <br /> mtimeStep ＝ 30<br /> v1 ＝ time ÷ 1000 ÷ mtimeStep<br /> bArr2 ＝ 取空白字节集 (8)<br /> .变量循环首 (8, 1, -1, i2)<br />     bArr2 [i2] ＝ 位与 (255, v1)<br />     v1 ＝ 右移 (v1, 8)<br /> .变量循环尾 ()<br /> hash ＝ Crypto.Hmac (bArr2, 到字节集 (key), #CALG_SHA1)<br /> base [1] ＝ 取字节集数据 (取字节集中间 (hash, 20, 1), #整数型, )<br /> offset ＝ 位与 (base [1], 15)<br /> <br /> base [1] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 1, 1), #整数型, )<br /> base [1] ＝ 左移 (位与 (base [1], 127), 24)<br /> <br /> base [2] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 2, 1), #整数型, )<br /> base [2] ＝ 左移 (位与 (base [2], 255), 16)<br /> <br /> base [3] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 3, 1), #整数型, )<br /> base [3] ＝ 左移 (位与 (base [3], 255), 8)<br /> <br /> base [4] ＝ 取字节集数据 (取字节集中间 (hash, offset ＋ 4, 1), #整数型, )<br /> base [4] ＝ 位与 (base [4], 255)<br /> <br /> ret ＝ 位或 (位或 (位或 (base [1], base [2]), base [3]), base [4]) ％ 1000000<br /> 返回 (ret)

hmac sha1 你们自己搞

漂亮雪儿

看看~~~~~~~~~~~~~~~~~~~~~~~~~！

ghost12

共同努力，共同进步

MrSean

不用考虑负数位移操作码

深圳梦

支持开源~！感谢分享

xujunfengswxj

好哥哥，你就发发完吧

凉城o

谢谢大佬分享 支持支持

7ian

谷歌身份验证器(Google Authenticator)GA
https://bbs.125.la/forum.php?mod=viewthread&tid=14676212
(出处: 精易论坛)

gaoqing

看看是干嘛的

胖虎O

看看是干嘛的