(HOTP) Authenticator 寫法請教

gary8349

https://www.autoitscript.com/for ... tor-implementation/
在下不才，在網上找到這個UDF，但還是不懂寫法

要如何才能生成 6位數密鑰，每30秒更換一次
其公式如何？
懇請先進們解惑，感謝~


以下我參考 網站 寫的code和 此網站 的結果不相符...請問是哪邊要修改？

1. #include <_HMAC.au3>
   
2. #include <_GAuth.au3>
   
3. #include <math.au3>
   
4. 
   
5. 
   
6. Dim $overSec = Null, $a, $n
   
7. 
   
8. Dim $unixTime = _GetUnixTimeUTC() + 28800 ;;UTC+8 ?
   
9. 
   
10. ;每30秒一次的時間戳
    
11. For $n = 0 To 29 ;;判斷是否為30可整除，否則減少至可整除
    
12.         If _MathCheckDiv($unixTime,30) = 2 Then
    
13.                 $overSec = 29 - $n ;;30秒一次的金鑰 剩餘時間（GUI顯示用）
    
14.                 ExitLoop(1)
    
15.         Else
    
16.                 $a = $unixTime - $n
    
17.                 If _MathCheckDiv($a,30) = 2 Then
    
18.                         $unixTime = $a
    
19.                         $overSec = 29 - $n
    
20.                         ExitLoop(1)
    
    
21.                 EndIf
    
22.         EndIf
    
23. Next
    
24. ;;MsgBox(0,0,$unixTime)
    
25. 
    
26. Dim $counter = Int($unixTime) / 30
    
27. Dim $key = _HMAC_SHA1('JBSWY3DPEHPK3PXP',$counter)
    
28. Dim $Offset = StringRight($key,1) ;;---取16進制最後一字（偏移量）
    
29. If StringRegExp($Offset,'[a-fA-F]',0) = 1 Then
    
30.         If $Offset = 'A' Then $Offset = '10'
    
31.         If $Offset = 'B' Then $Offset = '11'
    
32.         If $Offset = 'C' Then $Offset = '12'
    
33.         If $Offset = 'D' Then $Offset = '13'
    
34.         If $Offset = 'E' Then $Offset = '14'
    
35.         If $Offset = 'F' Then $Offset = '15'
    
36. EndIf
    
37. $m = StringSplit($key,'x')
    
38. $Sbits = StringMid($m[2],$Offset,8) ;;---16進制
    
39. 
    
40. ;;---16轉為10進制
    
41. Dim $s = 7
    
42. Dim $tenVal = Null, $num = Null, $num2 = Null
    
43. For $i = 0 to 7
    
44.         $num = StringMid ($Sbits,$i+1,1)
    
45.         If StringRegExp($num,'[a-fA-F]',0) = 1 Then
    
46.                 If $num = 'A' Then $num = '10'
    
47.                 If $num = 'B' Then $num = '11'
    
48.                 If $num = 'C' Then $num = '12'
    
49.                 If $num = 'D' Then $num = '13'
    
50.                 If $num = 'E' Then $num = '14'
    
51.                 If $num = 'F' Then $num = '15'
    
    
52.         EndIf
    
53.         $num2 = $num * 16 ^ $s
    
54.         $s -= 1
    
55.         $tenVal += $num2 ;;10進制
    
56. Next
    
57. 
    
58. $Digit = 6 ;;6位數金鑰
    
59. $OTP = Mod($tenVal,10^$Digit)
    
60. 
    
61. ;;---補齊6位數
    
62. If StringLen($OTP) < 6 Then
    
63.         $a = 6 - StringLen($OTP)
    
64.         If $a = 6 Then $OTP = '000000' & Mod($tenVal,10^6)
    
65.         If $a = 5 Then $OTP = '00000' & Mod($tenVal,10^6)
    
66.         If $a = 4 Then $OTP = '0000' & Mod($tenVal,10^6)
    
67.         If $a = 3 Then $OTP = '000' & Mod($tenVal,10^6)
    
68.         If $a = 2 Then $OTP = '00' & Mod($tenVal,10^6)
    
69.         If $a = 1 Then $OTP = '0' & Mod($tenVal,10^6)
    
70. EndIf
    
71. 
    
72. MsgBox(64,'','$key: ' & $key & @CRLF & '$Sbits: ' & $Sbits & @CRLF & '$tenVal: ' & $tenVal & @CRLF & '$OTP: ' & $OTP)

複製代碼

ad6543210

以前用 JS 寫過，但已經忘得差不多了

只看得出一個地方
時間戳的部分不用加八小時，因為那是一個固定數字

從 1970/01/01 00:00:00 到當下的秒數